Log Message:
-----------
Sort course names without regard to case.
Modified Files:
--------------
webwork-modperl/lib/WeBWorK/ContentGenerator:
Home.pm
Revision Data
-------------
Index: Home.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Home.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -Llib/WeBWorK/ContentGenerator/Home.pm -Llib/WeBWorK/ContentGenerator/Home.pm -u -r1.7 -r1.8
--- lib/WeBWorK/ContentGenerator/Home.pm
+++ lib/WeBWorK/ContentGenerator/Home.pm
@@ -61,7 +61,7 @@
print CGI::start_ul();
- foreach my $courseID (sort @courseIDs) {
+ foreach my $courseID (sort {lc($a) cmp lc($b) } @courseIDs) {
next if $courseID eq "admin"; # done already above
my $urlpath = $r->urlpath->newFromModule("WeBWorK::ContentGenerator::ProblemSets", courseID => $courseID);
print CGI::li(CGI::a({href=>$self->systemLink($urlpath, authen => 0)}, $courseID));
|
