loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.255, 2003/10/15 18:01:10	version 1.256, 2003/10/20 17:38:51
Line 1074 ENDPART	Line 1074 ENDPART
unless ($temp_file = Apache::File->new('>'.$filename)) {	unless ($temp_file = Apache::File->new('>'.$filename)) {
$r->log_error("Couldn't open $filename for output $!");	$r->log_error("Couldn't open $filename for output $!");
return SERVER_ERROR;	return SERVER_ERROR;
}	}

	########
	my $identifier = time.'_'.int(rand(1000));
	&Apache::lonnet::appenv($identifier.'.file' => $filename,
	$identifier.'.layout' => $laystyle,
	$identifier.'.numcol' => $numberofcolumns,
	$identifier.'.selection' => $selectionmade);

	##<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">
	########

print $temp_file $result;	print $temp_file $result;

$r->print(<<FINALEND);	$r->print(<<FINALEND);
<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">	<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier">
</body>	</body>
</html>	</html>
FINALEND	FINALEND