version 1.47, 2004/02/13 21:17:50
|
version 1.48, 2004/02/16 22:32:59
|
Line 145 foreach $texfile (@texfile) {
|
Line 145 foreach $texfile (@texfile) {
|
$ind++; |
$ind++; |
my @stud_info=split(/_END_/,$names_pack[$ind]); |
my @stud_info=split(/_END_/,$names_pack[$ind]); |
my @tempo_array=split(/:/,$stud_info[0]); |
my @tempo_array=split(/:/,$stud_info[0]); |
$final_statement='Link to PDF document for <b>'.$tempo_array[3].'</b> '; |
my $name; |
$status_statement.=$tempo_array[3]; |
if ($tempo_array[3]) { |
|
$name=$tempo_array[3]; |
|
} else { |
|
$name=$tempo_array[0].'@'.$tempo_array[1]; |
|
} |
|
$final_statement='Link to PDF document for <b>'.$name.'</b> '; |
|
$status_statement.=$name; |
if ($#stud_info>0) { |
if ($#stud_info>0) { |
@tempo_array=split(/:/,$stud_info[-1]); |
@tempo_array=split(/:/,$stud_info[-1]); |
$final_statement.='- <b>'.$tempo_array[3].':</b> '; |
if ($tempo_array[3]) { |
$status_statement.=' - '.$tempo_array[3]; |
$name=$tempo_array[3]; |
|
} else { |
|
$name=$tempo_array[0].'@'.$tempo_array[1]; |
|
} |
|
$final_statement.='- <b>'.$name.':</b> '; |
|
$status_statement.=' - '.$name; |
} |
} |
} |
} |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'last PDF file '.$status_statement); |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'last PDF file '.$status_statement); |