--- loncom/interface/loncreateuser.pm	2006/08/11 22:47:36	1.125.2.4
+++ loncom/interface/loncreateuser.pm	2006/09/07 21:43:20	1.125.2.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.125.2.4 2006/08/11 22:47:36 albertel Exp $
+# $Id: loncreateuser.pm,v 1.125.2.7 2006/09/07 21:43:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -321,10 +321,10 @@ sub print_user_modification_page {
             else { 
                 var coursename = "_$dcdom"+"_"+course+"_"+userrole
                 document.cu.elements[numcourse].name = "act"+coursename
-                document.cu.elements[numcourse+5].name = "sec"+coursename
-                document.cu.elements[numcourse+5].value = section
-                document.cu.elements[numcourse+7].name = "start"+coursename
-                document.cu.elements[numcourse+8].name = "end"+coursename
+                document.cu.elements[numcourse+4].name = "sec"+coursename
+                document.cu.elements[numcourse+4].value = section
+                document.cu.elements[numcourse+6].name = "start"+coursename
+                document.cu.elements[numcourse+7].name = "end"+coursename
             }
         }
         document.cu.submit();
@@ -604,7 +604,7 @@ END
                if ($area =~ /^\/(\w+)\/(\d\w+)/ ) {
 		   $class='Course';
                    my ($coursedom,$coursedir) = ($1,$2);
-		   $sortkey.="\0$1";
+		   $sortkey.="\0$coursedom";
                    # $1.'_'.$2 is the course id (eg. 103_12345abcef103l3).
                    my %coursedata=
                        &Apache::lonnet::coursedescription($1.'_'.$2);
@@ -619,6 +619,7 @@ END
 		       $carea=&mt('Unavailable course').': '.$area;
 		       $sortkey.="\0".&mt('Unavailable course').': '.$area;
 		   }
+		   $sortkey.="\0$coursedir";
                    $inccourses{$1.'_'.$2}=1;
                    if ((&Apache::lonnet::allowed('c'.$role_code,$1.'/'.$2)) ||
                        (&Apache::lonnet::allowed('c'.$role_code,$ccdomain))) {