loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.18, 2003/10/19 16:46:16	version 1.19, 2003/11/18 04:08:15
Line 99 sub handler {	Line 99 sub handler {
return OK if $r->header_only;	return OK if $r->header_only;

my $lowerframe=$r->path_info;	my $lowerframe=$r->path_info;

&Debug($r, "Initial URL for lower frame: ".$lowerframe);	&Debug($r, "Initial URL for lower frame: ".$lowerframe);
$lowerframe=~s/^\//\/\~/;	$lowerframe=~s/^\//\/\~/;
&Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe);	&Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe);
Line 123 sub handler {	Line 122 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?decompress";	&Apache::lonnet::appenv('cgi.path' => $r->path_info);
	$lowerframe="http://$ENV{SERVER_NAME}/cgi-bin/decompress.pl";

}	}
$r->print(<<ENDPAGE);	$r->print(<<ENDPAGE);
<html>	<html>