--- loncom/interface/statistics/lonproblemstatistics.pm 2002/11/12 19:52:46 1.36 +++ loncom/interface/statistics/lonproblemstatistics.pm 2002/11/26 16:59:03 1.37 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # (Publication Handler # -# $Id: lonproblemstatistics.pm,v 1.36 2002/11/12 19:52:46 minaeibi Exp $ +# $Id: lonproblemstatistics.pm,v 1.37 2002/11/26 16:59:03 minaeibi Exp $ # # Copyright Michigan State University Board of Trustees # @@ -299,8 +299,6 @@ sub DrawGraph { #(10 - $Max % 10); } else { $Max = 1; } -# my @GData = ($courseDescription, 'Problem_number', -# $title, $Max, $sendCount, $sendValues); my @GData = ('','Problem_number',$title,$Max,$sendCount,$sendValues); # $r->print(''."\n"); @@ -659,7 +657,7 @@ sub ExtractStudentData { sub SortDivideByTries { my ($toSort, $data, $sortOn)=@_; - my @orderedData = sort { ($data->{$a.':totalTries'}) ? + my @orderedData = sort { ($data->{$a.':totalTries'}) ? ($data->{$a.$sortOn}/$data->{$a.':totalTries'}):0 <=> ($data->{$b.':totalTries'}) ?