[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/) {