loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.36, 2002/11/12 19:52:46	version 1.37, 2002/11/26 16:59:03
Line 299 sub DrawGraph {	Line 299 sub DrawGraph {
#(10 - $Max % 10);	#(10 - $Max % 10);
} else { $Max = 1; }	} else { $Max = 1; }

# my @GData = ($courseDescription, 'Problem_number',
# $title, $Max, $sendCount, $sendValues);
my @GData = ('','Problem_number',$title,$Max,$sendCount,$sendValues);	my @GData = ('','Problem_number',$title,$Max,$sendCount,$sendValues);

# $r->print('</form>'."\n");	# $r->print('</form>'."\n");
Line 659 sub ExtractStudentData {	Line 657 sub ExtractStudentData {

sub SortDivideByTries {	sub SortDivideByTries {
my ($toSort, $data, $sortOn)=@_;	my ($toSort, $data, $sortOn)=@_;
my @orderedData = sort { ($data->{$a.':totalTries'}) ?	my @orderedData = sort { ($data->{$a.':totalTries'}) ?
($data->{$a.$sortOn}/$data->{$a.':totalTries'}):0	($data->{$a.$sortOn}/$data->{$a.':totalTries'}):0
<=>	<=>
($data->{$b.':totalTries'}) ?	($data->{$b.':totalTries'}) ?