--- loncom/interface/lonprintout.pm 2003/10/15 18:01:10 1.255
+++ 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.255 2003/10/15 18:01:10 www Exp $
+# $Id: lonprintout.pm,v 1.256 2003/10/20 17:38:51 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1074,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(<
+