[LON-CAPA-cvs] cvs: loncom /interface loncreateuser.pm

[albertel]

albertel		Wed Sep 17 13:30:11 2003 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  - the top of the modify roles screen is now sorted in the same order as the roles screen
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.66 loncom/interface/loncreateuser.pm:1.67
--- loncom/interface/loncreateuser.pm:1.66	Thu Jul 24 21:18:04 2003
+++ loncom/interface/loncreateuser.pm	Wed Sep 17 13:30:10 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.66 2003/07/25 01:18:04 bowersj2 Exp $
+# $Id: loncreateuser.pm,v 1.67 2003/09/17 17:30:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -310,7 +310,10 @@
 <table border=2>
 <tr><th>Revoke</th><th>Delete</th><th>Role</th><th>Extent</th><th>Start</th><th>End</th>
 END
-	   foreach my $area (sort keys(%rolesdump)) {
+	   foreach my $area (sort { my $a1=join('_',(split('_',$a))[1,0]);
+				    my $b1=join('_',(split('_',$b))[1,0]);
+				    return $a1 cmp $b1;
+				} keys(%rolesdump)) {
                next if ($area =~ /^rolesdef/);
                my $role = $rolesdump{$area};
                my $thisrole=$area;