--- loncom/cgi/graph.png 2002/01/22 13:49:03 1.6 +++ loncom/cgi/graph.png 2002/01/22 15:12:05 1.7 @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $Id: graph.png,v 1.6 2002/01/22 13:49:03 minaeibi Exp $ +# $Id: graph.png,v 1.7 2002/01/22 15:12:05 minaeibi Exp $ # # Copyright Michigan State University Board of Trustees # @@ -53,9 +53,7 @@ my $Range; if ( $PNo > 10 ) {$Range = 30*$PNo;} else { $Range = 300+30*$PNo; } -if ( $Max <= 1 ) { $Max = 1; } -elsif ( $Max <= 10 ) { $Max = 10; } -else { $Max = 100; } +$Max += (10 - $Max % 10); my $MyGraph = GD::Graph::bars3d->new($Range, 400);