version 1.184, 2020/02/02 20:12:31
|
version 1.185, 2022/09/21 11:49:48
|
Line 40 use Apache::lonxml;
|
Line 40 use Apache::lonxml;
|
use Apache::edit; |
use Apache::edit; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Time::HiRes qw(gettimeofday); |
use LONCAPA; |
use LONCAPA; |
|
|
use vars qw/$weboutputformat $version $colorprefix/; |
use vars qw/$weboutputformat $version $colorprefix/; |
Line 728 sub end_gnuplot {
|
Line 729 sub end_gnuplot {
|
&check_inputs(); # Make sure we have all the data we need |
&check_inputs(); # Make sure we have all the data we need |
## |
## |
## Determine filename |
## Determine filename |
|
my ($seconds, $microseconds) = gettimeofday; |
my $filename = $env{'user.name'}.'_'.$env{'user.domain'}. |
my $filename = $env{'user.name'}.'_'.$env{'user.domain'}. |
'_'.time.'_'.$$.$randnumber.'_plot'; |
'_'.$seconds.'_'.$microseconds.'_'.$$.$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); |
$filename = &escape($filename); |
$filename = &escape($filename); |