--- loncom/interface/printout.pl 2004/02/13 21:17:50 1.47
+++ loncom/interface/printout.pl 2004/02/16 22:32:59 1.48
@@ -1,7 +1,7 @@
#!/usr/bin/perl
# CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
#
-# $Id: printout.pl,v 1.47 2004/02/13 21:17:50 sakharuk Exp $
+# $Id: printout.pl,v 1.48 2004/02/16 22:32:59 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -145,12 +145,23 @@ foreach $texfile (@texfile) {
$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];
+ my $name;
+ if ($tempo_array[3]) {
+ $name=$tempo_array[3];
+ } else {
+ $name=$tempo_array[0].'@'.$tempo_array[1];
+ }
+ $final_statement='Link to PDF document for '.$name.' ';
+ $status_statement.=$name;
if ($#stud_info>0) {
@tempo_array=split(/:/,$stud_info[-1]);
- $final_statement.='- '.$tempo_array[3].': ';
- $status_statement.=' - '.$tempo_array[3];
+ if ($tempo_array[3]) {
+ $name=$tempo_array[3];
+ } else {
+ $name=$tempo_array[0].'@'.$tempo_array[1];
+ }
+ $final_statement.='- '.$name.': ';
+ $status_statement.=' - '.$name;
}
}
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'last PDF file '.$status_statement);