--- loncom/interface/lonstatistics.pm 2006/08/18 15:15:38 1.137 +++ loncom/interface/lonstatistics.pm 2007/06/06 17:30:40 1.138 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstatistics.pm,v 1.137 2006/08/18 15:15:38 raeburn Exp $ +# $Id: lonstatistics.pm,v 1.138 2007/06/06 17:30:40 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -76,7 +76,6 @@ use Apache::lonpercentage; use Apache::lonstudentsubmissions(); use Apache::lonsurveyreports(); use Apache::longradinganalysis(); -use lib '/home/httpd/lib/perl/'; use LONCAPA; ####################################################### @@ -313,7 +312,11 @@ sub PrepareClasslist { if ($env{'request.course.sec'} !~ /^\s*$/) { @Sections = ($env{'request.course.sec'}); } else { - @Sections = sort {$a cmp $b} keys(%Sections); + @Sections = sort { + if ($a == $a && $b == $b ) { return $a <=> $b; } + return $a cmp $b; + } keys(%Sections); + unshift(@Sections,'all'); # Put 'all' at the front of the list } # Sort the groups