loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.67, 2002/04/24 21:24:40	version 1.68, 2002/04/25 17:23:10
Line 498 sub end_gnuplot {	Line 498 sub end_gnuplot {
alt = "$plot{'alttag'}" />	alt = "$plot{'alttag'}" />
ENDIMAGE	ENDIMAGE
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
&Apache::lonnet::ssi('cgi-bin/plot.gif?file=$filename'.	&Apache::lonnet::ssi("/cgi-bin/plot.gif?file=$filename&output=eps");
'&output=eps');	$result = '\\\\ \graphicspath{/home/httpd/perl/tmp/}\fbox{\includegraphics[width=9.0 cm]{'.&Apache::lonnet::unescape($filename).'.eps}} \\\\';
$result = "$filename.eps";
}	}
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::tag_end($target,$token);	$result.=&Apache::edit::tag_end($target,$token);
Line 992 sub write_gnuplot_file {	Line 991 sub write_gnuplot_file {
$gnuplot_input .= "set output\n";	$gnuplot_input .= "set output\n";
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$gnuplot_input .= "set term postscript eps monochrome\n";	$gnuplot_input .= "set term postscript eps monochrome\n";
$gnuplot_input .= "set output \"/home/httpd/perl/tmp/$filename.eps\"\n";	$gnuplot_input .= "set output \"/home/httpd/perl/tmp/".
	&Apache::lonnet::unescape($filename).".eps\"\n";
}	}
# grid	# grid
$gnuplot_input .= 'set grid'.$/ if ($plot{'grid'} eq 'on');	$gnuplot_input .= 'set grid'.$/ if ($plot{'grid'} eq 'on');