Return to graph.png CVS log | Up to [LON-CAPA] / loncom / cgi |
version 1.9, 2002/02/01 11:47:34 | version 1.10, 2002/02/02 11:06:00 |
---|---|
Line 54 my $Range; | Line 54 my $Range; |
if ( $PNo > 10 ) {$Range = 30*$PNo;} | if ( $PNo > 10 ) {$Range = 30*$PNo;} |
else { $Range = 400+30*$PNo; } | else { $Range = 400+30*$PNo; } |
$Max += (10 - $Max % 10); | if ( $Max > 1 ) { |
$Max = int($Max); | $Max += (10 - $Max % 10); |
$Max = int($Max); | |
} | |
else { $Max = 1; } | |
my $MyGraph = GD::Graph::bars->new($Range, 400); | my $MyGraph = GD::Graph::bars->new($Range, 400); |