--- loncom/interface/printout.pl 2004/02/05 18:38:12 1.44
+++ loncom/interface/printout.pl 2004/02/06 14:16:39 1.45
@@ -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.45 2004/02/06 14:16:39 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -322,11 +322,18 @@ foreach $texfile (@texfile) {
print "LaTeX file $texfile was not created successfully";
}
}
+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();