--- loncom/interface/lonprintout.pm 2005/10/30 02:24:34 1.395 +++ loncom/interface/lonprintout.pm 2005/10/31 21:06:35 1.396 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.395 2005/10/30 02:24:34 www Exp $ +# $Id: lonprintout.pm,v 1.396 2005/10/31 21:06:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -909,7 +909,7 @@ sub unsupported { sub recently_generated { my $r=shift; my $prtspool=$r->dir_config('lonPrtDir'); - $r->print('

'.&mt('Recently generated printouts').'

'); + my $result; opendir(DIR,$prtspool); while (my $filename=readdir(DIR)) { if ($filename=~/^$env{'user.name'}\_$env{'user.domain'}\_printout\_(\d+)\_.*.pdf$/) { @@ -917,12 +917,17 @@ sub recently_generated { $cuid,$cgid,$crdev,$csize, $catime,$cmtime,$cctime, $cblksize,$cblocks)=stat($prtspool.'/'.$filename); - $r->print ("". - &mt('Generated').' '.&Apache::lonlocal::locallocaltime($cctime). - ' ('.$csize.' bytes)
'); + $result.="". + &mt('Generated [_1] ([_2] bytes)', + &Apache::lonlocal::locallocaltime($cctime),$csize). + '
'; } } closedir(DIR); + if ($result) { + $r->print('

'.&mt('Recently generated printouts').'

'."\n". + $result); + } } #