version 1.4, 2003/01/08 03:27:54
|
version 1.5, 2003/01/11 06:31:26
|
Line 246 sub GraphData {
|
Line 246 sub GraphData {
|
$pno++; |
$pno++; |
} |
} |
|
|
# $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)); |
|
|
my @GData = ('','Percentage','Number_of_Students',$max,$pno, |
my $cId=0; |
join(',',@percent), join(',', @percentCount)); |
my @data1=(); |
|
my @data2=(); |
|
for (my $nIdx=0; $nIdx<$pno; $nIdx++ ) { |
|
$data1[$cId]=$percent[$nIdx]; |
|
$data2[$cId]=$percentCount[$nIdx]; |
|
my $cr=$percent[$nIdx+1]; |
|
while ($data1[$cId]<$cr) { |
|
$cId++; |
|
$data1[$cId]=$cId; |
|
$data2[$cId]=0; |
|
} |
|
} |
|
|
|
# $r->print('<br> percentcount='.join(',', @data1)); |
|
# $r->print('<br> percent='.join(',', @data2)); |
|
|
|
|
# my @GData = ('', 'Percentage', 'Number_of_Students', |
my @GData = ('','Percentage','Number_of_Students',$max,101 , |
# $max, scalar(@percent), |
join(',',@data1), join(',', @data2)); |
# join(',',@percent), join(',', @percentCount)); |
|
|
|
$Ptr .= '</form>'."\n"; |
$Ptr .= '</form>'."\n"; |
$Ptr .= '<IMG src="/cgi-bin/graph.png?'.(join('&', @GData)); |
$Ptr .= '<IMG src="/cgi-bin/graph.png?'.(join('&', @GData)); |