loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40.2.3, 2004/03/15 19:26:49	version 1.41, 2004/01/08 19:50:47
Line 32 use File::Path;	Line 32 use File::Path;
use IO::File;	use IO::File;
use Image::Magick;	use Image::Magick;

my %origENV=%ENV;
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {	if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
print <<END;	print <<END;
Content-type: text/html	Content-type: text/html
Line 59 END	Line 58 END
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};	my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
my $advans_role = $ENV{'cgi.'.$identifier.'role'};	my $advans_role = $ENV{'cgi.'.$identifier.'role'};

#got what we needed reset ENV in case it is to big for system
%ENV=%origENV;

my $figfile = $texfile;	my $figfile = $texfile;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;	$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
my $duefile = $texfile;	my $duefile = $texfile;