--- loncom/cgi/graph.png	2003/01/11 06:28:19	1.18
+++ loncom/cgi/graph.png	2003/01/13 00:07:51	1.19
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# $Id: graph.png,v 1.18 2003/01/11 06:28:19 minaeibi Exp $
+# $Id: graph.png,v 1.19 2003/01/13 00:07:51 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -51,14 +51,14 @@ my $bar_space=10;
 
 my @xlabels;
 
-if ($xlab=~/^Percentage$/){
+if ($Titr =~ /^Percentage$/){
     for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
-#        $xlabels[$nIdx]=$data11[$nIdx];
         $xlabels[$nIdx]=$nIdx;
     }
     @data11=();
     @data11=split(/\,/,$data2);
-    @data12=();  
+    @data12=();
+    $Titr = '';
 } else {
      for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
          $xlabels[$nIdx]=$nIdx+1;
@@ -73,15 +73,14 @@ my $Range2;
 if ($xlab=~/^Concepts$/){
     $Range1=270;
     $Range2=200;
-} elsif ($xlab=~/^Percentage$/){
+} elsif ($xlab=~/^Problem_number$/){
+    $Range1=450;
+    $Range2=200;
+} else {
     $Range1=800;#*$PNo; 
     $Range2=200;
     $skip_x=5;
     $bar_space=1;
-    $xlab='Percentage_of_Correct_Problems';
-} else {
-    $Range1=450;
-    $Range2=200;
 }