--- loncom/interface/lonpickcourse.pm	2003/10/13 22:24:51	1.9
+++ loncom/interface/lonpickcourse.pm	2003/10/13 22:45:09	1.10
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.9 2003/10/13 22:24:51 albertel Exp $
+# $Id: lonpickcourse.pm,v 1.10 2003/10/13 22:45:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -121,10 +121,15 @@ ENDSCRIPT
 	    &Apache::lonnet::courseiddump
 	    ($domainfilter,$descriptfilter,$timefilter);
 	$r->print('<form>');
-	foreach (keys %courses) {
-	    my ($cdom,$cnum)=split(/\_/,$_);
+	my %by_descrip;
+	foreach my $course (keys %courses) {
+	    $by_descrip{lc($courses{$course})}=$course;
+	}
+	foreach my $description (sort(keys(%by_descrip))) {
+	    my $course=$by_descrip{$description};
+	    my ($cdom,$cnum)=split(/\_/,$course);
 	    $r->print('<input type="button" value="Select" onClick="gochoose('.
-		  "'".$cnum."','".$cdom."')".'" /> '.$courses{$_}.' ('.
+		  "'".$cnum."','".$cdom."')".'" /> '.$courses{$course}.' ('.
 		  ($Apache::lonnet::domaindescription{$cdom}?
                    $Apache::lonnet::domaindescription{$cdom}:$cdom).
                  ")<br />\n");