version 1.6, 2003/01/13 00:15:16
|
version 1.7, 2003/01/13 17:31:41
|
Line 241 sub GraphData {
|
Line 241 sub GraphData {
|
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 270 sub GraphData {
|
Line 266 sub GraphData {
|
} |
} |
} |
} |
|
|
# $r->print('<br> xlable='.$xlabel); |
my $xlabel; |
|
my $Freq; |
|
if ($totalProblems >= 100 ) { |
|
$xlabel = 'Percentage_of_Problems_Correct'; |
|
$Freq=100; |
|
} else { |
|
$xlabel = 'Number_of_Problems_Correct'; |
|
$Freq = $cId; |
|
} |
|
|
|
# $r->print('<br>Freq='.$Freq); |
# $r->print('<br>max='.$max); |
# $r->print('<br>max='.$max); |
# $r->print('<br> percentcount='.join(',', @percentCount)); |
# $r->print('<br> percentcount='.join(',', @percentCount)); |
# $r->print('<br> percent='.join(',', @percent)); |
# $r->print('<br> percent='.join(',', @percent)); |
Line 278 sub GraphData {
|
Line 284 sub GraphData {
|
# $r->print('<br> percent='.join(',', @data2)); |
# $r->print('<br> percent='.join(',', @data2)); |
|
|
my @GData = ("Percentage",$xlabel, |
my @GData = ("Percentage",$xlabel, |
'Number_of_Students',$max,100 , |
'Number_of_Students',$max,$Freq, |
join(',',@data1), join(',', @data2)); |
join(',',@data1), join(',', @data2)); |
|
|
$Ptr .= '</form>'."\n"; |
$Ptr .= '</form>'."\n"; |