loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2004/02/05 18:38:12	version 1.46, 2004/02/11 00:19:49
Line 33 use File::Path;	Line 33 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 66 END	Line 67 END
if ($student_names=~/_END_/) {	if ($student_names=~/_END_/) {
@names_pack=split(/_ENDPERSON_/,$student_names);	@names_pack=split(/_ENDPERSON_/,$student_names);
}	}
	#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/;
Line 322 foreach $texfile (@texfile) {	Line 325 foreach $texfile (@texfile) {
print "LaTeX file $texfile was not created successfully";	print "LaTeX file $texfile was not created successfully";
}	}
}	}
	print "<br />";
if ($number_of_files>1) {	if ($number_of_files>1) {
my $statement='';	my $zipfile=$texfile[0];
	$zipfile=~s/\.tex/\.zip/;
	my $statement="zip $zipfile";
foreach my $file (@texfile) {	foreach my $file (@texfile) {
	$file=~s/\.tex/.\pdf/;
	$statement.=' '.$file;
}	}
	system("$statement");
	$zipfile=~s/\/home\/httpd//;
	print "<br /> <a href=\"$zipfile\">Your ZIP file is here</a>";
}	}
&Close_StatWin();	&Close_StatWin();