--- loncom/cgi/graph.png	2002/11/01 22:12:46	1.15
+++ loncom/cgi/graph.png	2002/12/13 21:33:30	1.16
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# $Id: graph.png,v 1.15 2002/11/01 22:12:46 minaeibi Exp $
+# $Id: graph.png,v 1.16 2002/12/13 21:33:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -104,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
 
@@ -122,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;