--- loncom/cgi/graph.png	2003/01/13 00:07:51	1.19
+++ loncom/cgi/graph.png	2003/01/13 17:41:45	1.20
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# $Id: graph.png,v 1.19 2003/01/13 00:07:51 minaeibi Exp $
+# $Id: graph.png,v 1.20 2003/01/13 17:41:45 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,7 +31,7 @@
 # YEAR=2002
 # 2/1/, 5/13, 5/15
 # YEAR=2003
-# 1/7/
+# 1/7/, 1/13
 # A CGI script that dynamically outputs a graphical chart for lonstatistics.
 # 
 #### 
@@ -68,17 +68,14 @@ if ($Titr =~ /^Percentage$/){
 my @data =(\@xlabels,\@data11,\@data12);
 
 my $Range1;
-my $Range2;
+my $Range2 = 200;
 
 if ($xlab=~/^Concepts$/){
     $Range1=270;
-    $Range2=200;
 } elsif ($xlab=~/^Problem_number$/){
     $Range1=450;
-    $Range2=200;
 } else {
-    $Range1=800;#*$PNo; 
-    $Range2=200;
+    $Range1=($PNo==100) ? 800 : (120+$PNo*10); 
     $skip_x=5;
     $bar_space=1;
 }