version 1.19, 2003/11/18 04:08:15
|
version 1.22, 2004/03/31 05:24:00
|
Line 102 sub handler {
|
Line 102 sub handler {
|
&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); |
$lowerframe= &HTML::Entities::encode($lowerframe); |
$lowerframe= &HTML::Entities::encode($lowerframe,'<>&"'); |
&Debug($r, "Lower frame URL after quote subst: ".$lowerframe); |
&Debug($r, "Lower frame URL after quote subst: ".$lowerframe); |
|
|
# |
# |
Line 119 sub handler {
|
Line 119 sub handler {
|
if ($ENV{'form.forceColoredit'}) { |
if ($ENV{'form.forceColoredit'}) { |
$lowerframe.='?editmode=Edit&problemmode=Edit'; |
$lowerframe.='?editmode=Edit&problemmode=Edit'; |
} |
} |
&Apache::loncommon::get_unprocessed_cgi |
|
($ENV{'QUERY_STRING'},['decompress']); |
|
if ($ENV{'form.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> |
<head><title>LON-CAPA Construction Space</title> |
<head><title>LON-CAPA Construction Space</title> |
Line 134 var lastknownpriv="$lowerframe";
|
Line 127 var lastknownpriv="$lowerframe";
|
</script> |
</script> |
</head> |
</head> |
<frameset rows="110,*" border="0"> |
<frameset rows="110,*" border="0"> |
<frame src='/adm/publisher.html'> |
<frame src='/adm/localize/adm/publisher.html'> |
<frame src="$lowerframe" name="LONCAPAToBePublished"> |
<frame src="$lowerframe" name="LONCAPAToBePublished"> |
</frameset> |
</frameset> |
</html> |
</html> |