--- 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);
+ }
}
#