loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.52, 2002/02/27 22:17:06	version 1.54, 2002/03/01 14:03:50
Line 450 sub end_gnuplot {	Line 450 sub end_gnuplot {
'_'.time.'_'.$$.int(rand(1000)).'_plot.data';	'_'.time.'_'.$$.int(rand(1000)).'_plot.data';
## Write the plot description to the file	## Write the plot description to the file
&write_gnuplot_file($tmpdir,$filename,$target);	&write_gnuplot_file($tmpdir,$filename,$target);
	$filename = &Apache::lonnet::escape($filename);
## return image tag for the plot	## return image tag for the plot
if ($target eq 'web') {	if ($target eq 'web') {
$result .= <<"ENDIMAGE";	$result .= <<"ENDIMAGE";
<img src = "/cgi-bin/plot.gif?$filename"	<img src = "/cgi-bin/plot.gif?file=$filename&output=gif"
width = "$plot{'width'}"	width = "$plot{'width'}"
height = "$plot{'height'}"	height = "$plot{'height'}"
align = "$plot{'align'}"	align = "$plot{'align'}"
alt = "image should be /cgi-bin/plot.gif?$filename" />	alt = "image should be /cgi-bin/plot.gif?$filename" />
ENDIMAGE	ENDIMAGE
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
system "gnuplot $filename";	&Apache::lonnet::ssi('cgi-bin/plot.gif?file=$filename'.
	'&output=eps');
$result = "$filename.eps";	$result = "$filename.eps";
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {