version 1.5, 2003/01/11 06:31:26
|
version 1.6, 2003/01/13 00:15:16
|
Line 193 sub GraphData {
|
Line 193 sub GraphData {
|
|
|
my %percentages; |
my %percentages; |
my $Ptr = ''; |
my $Ptr = ''; |
|
my $totalProblems = 0; |
|
|
foreach(@$students) { |
foreach(@$students) { |
my $totalCorrect = 0; |
my $totalCorrect = 0; |
my $totalProblems = 0; |
$totalProblems = 0; |
|
|
foreach my $sequence (split(':',$cache->{'orderedSequences'})) { |
foreach my $sequence (split(':',$cache->{'orderedSequences'})) { |
next if($cache->{$sequence.':title'} ne $sequenceSelected && |
next if($cache->{$sequence.':title'} ne $sequenceSelected && |
Line 221 sub GraphData {
|
Line 222 sub GraphData {
|
} |
} |
} |
} |
} |
} |
|
my $percent; |
my $percent = sprintf("%d", ($totalProblems) ? |
if ( $totalProblems >= 100 ) { |
(($totalCorrect/$totalProblems)*100) : 0); |
$percent = sprintf("%d", ($totalProblems) ? |
|
(($totalCorrect/$totalProblems)*100) : 0); |
|
} else { |
|
$percent = sprintf("%d", ($totalProblems) ? $totalCorrect : 0); |
|
} |
if(defined($percentages{$percent})) { |
if(defined($percentages{$percent})) { |
$percentages{$percent} .= ':::'.$_; |
$percentages{$percent} .= ':::'.$_; |
} else { |
} else { |
Line 235 sub GraphData {
|
Line 240 sub GraphData {
|
my @percentCount = (); |
my @percentCount = (); |
my $max = 0; |
my $max = 0; |
my $pno = 0; |
my $pno = 0; |
|
|
|
my $xlabel = ($totalProblems >= 100 ) ? |
|
'Percentage_of_Problems_Correct' : |
|
'Number_of_Problems_Correct'; |
|
|
foreach my $key (sort NumericSort keys(%percentages)) { |
foreach my $key (sort NumericSort keys(%percentages)) { |
push(@percent, $key); |
push(@percent, $key); |
my @temp = split(':::', $percentages{$key}); |
my @temp = split(':::', $percentages{$key}); |
Line 246 sub GraphData {
|
Line 256 sub GraphData {
|
$pno++; |
$pno++; |
} |
} |
|
|
# $r->print('<br>max='.$max); |
|
# $r->print('<br> percentcount='.join(',', @percentCount)); |
|
# $r->print('<br> percent='.join(',', @percent)); |
|
|
|
my $cId=0; |
my $cId=0; |
my @data1=(); |
my @data1=(); |
my @data2=(); |
my @data2=(); |
Line 264 sub GraphData {
|
Line 270 sub GraphData {
|
} |
} |
} |
} |
|
|
|
# $r->print('<br> xlable='.$xlabel); |
|
# $r->print('<br>max='.$max); |
|
# $r->print('<br> percentcount='.join(',', @percentCount)); |
|
# $r->print('<br> percent='.join(',', @percent)); |
# $r->print('<br> percentcount='.join(',', @data1)); |
# $r->print('<br> percentcount='.join(',', @data1)); |
# $r->print('<br> percent='.join(',', @data2)); |
# $r->print('<br> percent='.join(',', @data2)); |
|
|
|
my @GData = ("Percentage",$xlabel, |
my @GData = ('','Percentage','Number_of_Students',$max,101 , |
'Number_of_Students',$max,100 , |
join(',',@data1), join(',', @data2)); |
join(',',@data1), join(',', @data2)); |
|
|
$Ptr .= '</form>'."\n"; |
$Ptr .= '</form>'."\n"; |