--- loncom/interface/printout.pl 2004/02/05 18:38:12 1.44
+++ loncom/interface/printout.pl 2004/02/11 00:19:49 1.46
@@ -1,7 +1,7 @@
#!/usr/bin/perl
# CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
#
-# $Id: printout.pl,v 1.44 2004/02/05 18:38:12 sakharuk Exp $
+# $Id: printout.pl,v 1.46 2004/02/11 00:19:49 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,6 +33,7 @@ use File::Path;
use IO::File;
use Image::Magick;
+my %origENV=%ENV;
if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {
print <";
if ($number_of_files>1) {
- my $statement='';
+ my $zipfile=$texfile[0];
+ $zipfile=~s/\.tex/\.zip/;
+ my $statement="zip $zipfile";
foreach my $file (@texfile) {
-
+ $file=~s/\.tex/.\pdf/;
+ $statement.=' '.$file;
}
+ system("$statement");
+ $zipfile=~s/\/home\/httpd//;
+ print "
Your ZIP file is here";
}
&Close_StatWin();