[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Fri, 16 Sep 2005 19:47:44 -0000
albertel Fri Sep 16 15:47:44 2005 EDT
Modified files:
/loncom/auth lonroles.pm
Log:
- a desire for Domain to trump other roles
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.128 loncom/auth/lonroles.pm:1.129
--- loncom/auth/lonroles.pm:1.128 Tue Aug 9 16:06:40 2005
+++ loncom/auth/lonroles.pm Fri Sep 16 15:47:42 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.128 2005/08/09 20:06:40 albertel Exp $
+# $Id: lonroles.pm,v 1.129 2005/09/16 19:47:42 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -596,7 +596,7 @@
'</th><th>'.&mt('Start').'</th><th>'.&mt('End').'</th><th>'.
&mt('Remarks and Calendar Announcements').'</th></tr>'."\n");
my $doheaders=-1;
- foreach my $type ('Construction Space','Course','Domain','System') {
+ foreach my $type ('Domain','Construction Space','Course','System') {
my $haverole=0;
foreach my $which (sort {uc($a) cmp uc($b)} (keys(%sortrole))) {
if ($roleclass{$sortrole{$which}} =~ /^\Q$type\E/) {