--- loncom/interface/lonprintout.pm 2003/10/10 13:38:26 1.254
+++ loncom/interface/lonprintout.pm 2003/10/20 17:38:51 1.256
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.254 2003/10/10 13:38:26 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.256 2003/10/20 17:38:51 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -25,17 +25,6 @@
#
# http://www.lon-capa.org/
#
-# (Internal Server Error Handler
-#
-# (Login Screen
-# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
-# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
-#
-# 3/1/1 Gerd Kortemeyer)
-#
-# 3/1 Gerd Kortemeyer
-#
-# 9/17 Alex Sakharuk
#
package Apache::lonprintout;
@@ -51,6 +40,7 @@ use Apache::File();
use Apache::lonnavmaps;
use Apache::lonratedt;
use POSIX qw(strftime);
+use Apache::lonlocal;
use GDBM_File;
@@ -986,7 +976,7 @@ ENDPART
&Apache::lonnet::delenv('form.counter');
&Apache::lonxml::init_counter();
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
- 'last student '.$fullname);
+ &mt('last student').' '.$fullname);
}
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
$result .= '\end{document}';
@@ -1084,11 +1074,22 @@ ENDPART
unless ($temp_file = Apache::File->new('>'.$filename)) {
$r->log_error("Couldn't open $filename for output $!");
return SERVER_ERROR;
- }
+ }
+
+########
+ my $identifier = time.'_'.int(rand(1000));
+ &Apache::lonnet::appenv($identifier.'.file' => $filename,
+ $identifier.'.layout' => $laystyle,
+ $identifier.'.numcol' => $numberofcolumns,
+ $identifier.'.selection' => $selectionmade);
+
+##
+########
+
print $temp_file $result;
$r->print(<
+