version 1.254, 2003/10/10 13:38:26
|
version 1.256, 2003/10/20 17:38:51
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# 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; |
package Apache::lonprintout; |
|
|
Line 51 use Apache::File();
|
Line 40 use Apache::File();
|
use Apache::lonnavmaps; |
use Apache::lonnavmaps; |
use Apache::lonratedt; |
use Apache::lonratedt; |
use POSIX qw(strftime); |
use POSIX qw(strftime); |
|
use Apache::lonlocal; |
use GDBM_File; |
use GDBM_File; |
|
|
|
|
Line 986 ENDPART
|
Line 976 ENDPART
|
&Apache::lonnet::delenv('form.counter'); |
&Apache::lonnet::delenv('form.counter'); |
&Apache::lonxml::init_counter(); |
&Apache::lonxml::init_counter(); |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
'last student '.$fullname); |
&mt('last student').' '.$fullname); |
} |
} |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
$result .= '\end{document}'; |
$result .= '\end{document}'; |
Line 1084 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 |