--- loncom/cgi/graph.png 2002/05/19 15:47:25 1.13 +++ loncom/cgi/graph.png 2002/08/06 18:10:03 1.14 @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $Id: graph.png,v 1.13 2002/05/19 15:47:25 minaeibi Exp $ +# $Id: graph.png,v 1.14 2002/08/06 18:10:03 minaeibi Exp $ # # Copyright Michigan State University Board of Trustees # @@ -65,7 +65,7 @@ if ($xlab=~/^Concepts$/){ $Range1 = 20*$PNo; } else { $Range1 = 250+30*$PNo; - } + } $Range2=200; } @@ -73,12 +73,11 @@ if ($xlab=~/^Concepts$/){ my $MyGraph = GD::Graph::bars->new($Range1,$Range2); $MyGraph->set( - # x_label => $xlab, + x_label => $xlab, y_label => $ylab, long_ticks => 1, tick_length => 0, x_ticks => 0, -# title => 'LON-CAPA Option Response Problem:'.$cid, title => $Titr, y_max_value => $Max, # y_tick_number => $ytic, @@ -103,6 +102,7 @@ $MyGraph->set( transparent => 0, ) or warn $MyGraph->error; + #if ($xlab=~/^Concepts$/){ # $MyGraph->set_legend( 'Correct Answers', 'Incorrect Answers'); #}