loncom/xml/lonplot.pm - diff

Return to lonplot.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.105, 2005/02/24 22:01:40	version 1.106, 2005/04/07 06:56:27
Line 35 use Apache::File;	Line 35 use Apache::File;
use Apache::response;	use Apache::response;
use Apache::lonxml;	use Apache::lonxml;
use Apache::edit;	use Apache::edit;
	use Apache::lonnet;

use vars qw/$weboutputformat $versionstring/;	use vars qw/$weboutputformat $versionstring/;

Line 513 sub end_gnuplot {	Line 514 sub end_gnuplot {
##	##
## Determine filename	## Determine filename
my $tmpdir = '/home/httpd/perl/tmp/';	my $tmpdir = '/home/httpd/perl/tmp/';
my $filename = $ENV{'user.name'}.'_'.$ENV{'user.domain'}.	my $filename = $env{'user.name'}.'_'.$env{'user.domain'}.
'_'.time.'_'.$$.$randnumber.'_plot';	'_'.time.'_'.$$.$randnumber.'_plot';
## 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);