--- loncom/interface/printout.pl 2004/02/03 00:02:15 1.42
+++ loncom/interface/printout.pl 2004/02/05 18:38:12 1.44
@@ -1,7 +1,7 @@
#!/usr/bin/perl
# CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
#
-# $Id: printout.pl,v 1.42 2004/02/03 00:02:15 albertel Exp $
+# $Id: printout.pl,v 1.44 2004/02/05 18:38:12 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -27,6 +27,7 @@
#
use lib '/home/httpd/lib/perl';
+use Time::Local;
use LONCAPA::loncgi();
use File::Path;
use IO::File;
@@ -57,6 +58,14 @@ END
my $tableofcontents = $ENV{'cgi.'.$identifier.'tableofcontents'};
my $tableofindex = $ENV{'cgi.'.$identifier.'tableofindex'};
my $advans_role = $ENV{'cgi.'.$identifier.'role'};
+ my $back_ref = $ENV{'cgi.'.$identifier.'backref'};
+ my $number_of_files = $ENV{'cgi.'.$identifier.'numberoffiles'}+1;
+ my $student_names = $ENV{'cgi.'.$identifier.'studentnames'};
+
+ my @names_pack=();
+ if ($student_names=~/_END_/) {
+ @names_pack=split(/_ENDPERSON_/,$student_names);
+ }
my $figfile = $texfile;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
@@ -69,8 +78,11 @@ END
my @content_of_file = <$temporary_file>;
close $temporary_file;
my $noteps;
+ &Create_StatWin ('Starting eps pictures creation', 'Pictires Status window');
foreach $not_eps (@content_of_file) {
if ($not_eps ne '') {
+ my $status_statement='EPS picture for '.$not_eps;
+ &Update_StaWin ($status_statement);
$not_eps=~s|\/\.\/|\/|g;
my $eps_f = $not_eps;
$eps_f =~ s/\.[^.]*$/\.eps/i;
@@ -107,8 +119,35 @@ END
}
}
}
+ &Close_StatWin();
+ }
+ #print "$texfile\n"; #name of the tex file for debugging only
+ my @texfile=($texfile);
+ if ($number_of_files>1) {
+ for (my $i=1;$i<=$number_of_files-1;$i++) {
+ my $new_texfile=$texfile;
+ $new_texfile=~s/\.tex/_add$i\.tex/;
+ push @texfile,$new_texfile;
+ }
+ }
+my $ind=-1;
+&Create_StatWin ('Starting PDF production for students', 'PDF Status window');
+foreach $texfile (@texfile) {
+ my $final_statement="Link to your PDF document: ";
+ my $status_statement='PDF document for ';
+ if ($number_of_files>1) {
+ $ind++;
+ my @stud_info=split(/_END_/,$names_pack[$ind]);
+ my @tempo_array=split(/:/,$stud_info[0]);
+ $final_statement='Link to PDF document for '.$tempo_array[3].' ';
+ $status_statement.=$tempo_array[3];
+ if ($#stud_info>0) {
+ @tempo_array=split(/:/,$stud_info[-1]);
+ $final_statement.='- '.$tempo_array[3].': ';
+ $status_statement.=' - '.$tempo_array[3];
+ }
}
- #print "$texfile\n"; #name of the tex file for debugging only
+&Update_StaWin ($status_statement);
if (-e $texfile) {
$texfile =~ m/^(.*)\/([^\/]+)$/;
my $name_file = $2;
@@ -141,7 +180,7 @@ END
my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';
my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';
if ($whereitbegins!=-1 and $whereitends!=-1) {
- print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."
";
+ print "With very high probability this error occured in ".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)."
";
}
print "Here are the error messages in the LaTeX log file
";
my $sygnal = 0;
@@ -249,7 +288,7 @@ END
my $comma = "dvips -Ppdf -G0 -o $new_name_file";
system("$comma $name_file 1>/dev/null 2>/dev/null");
if (-e $new_name_file) {
- print "