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

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 16 Aug 2006 19:47:43 -0000


albertel		Wed Aug 16 15:47:43 2006 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  -BUG#4969, different course same name sdidin't show up as seperate lisitng in create user screen
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.129 loncom/interface/loncreateuser.pm:1.130
--- loncom/interface/loncreateuser.pm:1.129	Fri Aug 11 17:55:19 2006
+++ loncom/interface/loncreateuser.pm	Wed Aug 16 15:47:42 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.129 2006/08/11 21:55:19 albertel Exp $
+# $Id: loncreateuser.pm,v 1.130 2006/08/16 19:47:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -604,7 +604,7 @@
                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 @@
 		       $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))) {