--- loncom/cgi/graph.png	2001/10/10 15:26:00	1.1
+++ loncom/cgi/graph.png	2001/10/10 16:03:26	1.2
@@ -23,16 +23,6 @@ for (my $nIdx=0; $nIdx<$PNo; $nIdx++ ) {
 } 
 my @data =(\@xlabels,\@data1);
 
-#print "Content-type: text/html\n\n";
-#print $ENV{'QUERY_STRING';
-#print "<br>";
-#print $Max;
-#print "<br>";
-#print $PNo;
-#print "<br>";
-#print $data;
-#exit;
-
 my $Range;
 if ( $PNo > 10 ) {$Range = 30*$PNo;}
 else { $Range = 300+30*$PNo; }
@@ -72,21 +62,7 @@ END
 my $BinaryData=$MyGraph->plot(\@data)->png;
 undef $MyGraph;
 binmode(STDOUT);
-open IMG,"|pngtopnm|ppmtogif"; # convert into a gif image
+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;
-
-
-
-
-
-
-
-
-
-
-
-
-
-