--- 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(< + FINALEND