|
version 1.15, 2003/10/18 17:17:12
|
version 1.16, 2003/10/18 17:18:14
|
|
Line 123 sub handler {
|
Line 123 sub handler {
|
| &Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
| ($ENV{'QUERY_STRING'},['decompress']); |
($ENV{'QUERY_STRING'},['decompress']); |
| if ($ENV{'form.decompress'}) { |
if ($ENV{'form.decompress'}) { |
| $lowerframe='http://$ENV{'SERVER_NAME'}/cgi-bin/decompress.pl?something'; |
$lowerframe='http://$ENV{'SERVER_NAME'}/cgi-bin/decompress.pl?decompress'; |
| } |
} |
| $r->print(<<ENDPAGE); |
$r->print(<<ENDPAGE); |
| <html> |
<html> |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonconstruct.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher