--- loncom/interface/lonpickcourse.pm 2006/02/01 22:46:09 1.38
+++ loncom/interface/lonpickcourse.pm 2006/02/02 17:57:40 1.39
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.38 2006/02/01 22:46:09 www Exp $
+# $Id: lonpickcourse.pm,v 1.39 2006/02/02 17:57:40 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -301,7 +301,8 @@ ENDSCRIPT
onclick="javascript:uncheckAll(document.courselist.course_id)" />
');
}
- foreach my $description (sort(keys(%by_descrip))) {
+ foreach my $description (sort
+ { lc($a) cmp lc($b) } (keys(%by_descrip))) {
foreach my $course (@{$by_descrip{$description}}) {
my $cleandesc=&HTML::Entities::encode($description,'<>&"');
$cleandesc=~s/'/\\'/g;