--- loncom/interface/lonpickcourse.pm	2003/09/22 00:48:32	1.8
+++ loncom/interface/lonpickcourse.pm	2003/11/04 16:31:50	1.11
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.8 2003/09/22 00:48:32 www Exp $
+# $Id: lonpickcourse.pm,v 1.11 2003/11/04 16:31:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -74,7 +74,10 @@ ENDDOCUMENT
                       '2592000' => 'last month',
                       '7776000' => 'last three months',
                       '15552000' => 'last six months',
-                      '31104000' => 'last year'));
+                      '31104000' => 'last year',
+                      'select_form_order' =>
+                      ['-1','86400','604800','2592000','7776000',
+		      '15552000','31104000']));
        
     $r->print(&Apache::loncommon::bodytag("Selecting a Course"));
     my %lt=&Apache::lonlocal::texthash(
@@ -118,14 +121,20 @@ 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");
 	}
+	if (!%courses) { $r->print('None found'); }
         $r->print('</form>');
     }
     $r->print('</body></html>');