--- loncom/interface/lonstatistics.pm 2005/12/13 16:25:32 1.126 +++ loncom/interface/lonstatistics.pm 2005/12/13 16:32:22 1.127 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstatistics.pm,v 1.126 2005/12/13 16:25:32 albertel Exp $ +# $Id: lonstatistics.pm,v 1.127 2005/12/13 16:32:22 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -267,7 +267,7 @@ sub PrepareClasslist { # Sort the Students my $sortby = 'fullname'; $sortby = $env{'form.sort'} if (exists($env{'form.sort'})); - my @TmpStudents = sort { $a->{$sortby} cmp $b->{$sortby} || + my @TmpStudents = sort { lc($a->{$sortby}) cmp lc($b->{$sortby}) || lc($a->{'fullname'}) cmp lc($b->{'fullname'}) || lc($a->{'username'}) cmp lc($b->{'username'}) } @Students; @Students = @TmpStudents;