[LON-CAPA-cvs] cvs: loncom /cgi graph.gif

[minaeibi]

minaeibi		Tue Aug  6 14:10:03 2002 EDT

  Modified files:              
    /loncom/cgi	graph.gif 
  Log:
  revised for horizental label
  
  
Index: loncom/cgi/graph.gif
diff -u loncom/cgi/graph.gif:1.13 loncom/cgi/graph.gif:1.14
--- loncom/cgi/graph.gif:1.13	Sun May 19 11:47:25 2002
+++ loncom/cgi/graph.gif	Tue Aug  6 14:10:03 2002
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# $Id: graph.gif,v 1.13 2002/05/19 15:47:25 minaeibi Exp $
+# $Id: graph.gif,v 1.14 2002/08/06 18:10:03 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -65,7 +65,7 @@
 	$Range1 = 20*$PNo;
     } else { 
         $Range1 = 250+30*$PNo; 
-    }
+  }
     $Range2=200; 
 }
 
@@ -73,12 +73,11 @@
 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 @@
 
     transparent     => 0,
 ) or warn $MyGraph->error; 
+
 #if ($xlab=~/^Concepts$/){
 #    $MyGraph->set_legend( 'Correct Answers', 'Incorrect Answers');
 #}