--- loncom/cgi/graph.png	2002/08/06 18:10:03	1.14
+++ loncom/cgi/graph.png	2002/12/13 21:33:30	1.16
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# $Id: graph.png,v 1.14 2002/08/06 18:10:03 minaeibi Exp $
+# $Id: graph.png,v 1.16 2002/12/13 21:33:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,11 +61,7 @@ if ($xlab=~/^Concepts$/){
     $Range1=270;
     $Range2=200;
 } else {
-    if ( $PNo > 10 ) {
-	$Range1 = 20*$PNo;
-    } else { 
-        $Range1 = 250+30*$PNo; 
-  }
+    $Range1=450;#250+30*$PNo; 
     $Range2=200; 
 }
 
@@ -108,9 +104,9 @@ $MyGraph->set(
 #}
 
 
-# Tell the server we are sending a gif graphic
+# Tell the server we are sending a png graphic
 print <<END;
-Content-type: image/gif
+Content-type: image/png
 
 END
 
@@ -126,7 +122,8 @@ END
 my $BinaryData=$MyGraph->plot(\@data)->png;
 undef $MyGraph;
 binmode(STDOUT);
-open IMG,"|pngtopnm|ppmtogif 2>/dev/null"; # convert into a gif image
-print IMG $BinaryData; # output image
-$|=1; # be sure to flush before closing
-close IMG;
+#open IMG,"|pngtopnm|ppmtogif 2>/dev/null"; # convert into a gif image
+#print IMG $BinaryData; # output image
+#$|=1; # be sure to flush before closing
+#close IMG;
+print $BinaryData;