loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.47, 2004/02/13 21:17:50
+version 1.48, 2004/02/16 22:32:59
  Line 145  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 <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) {
  	  @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);