version 1.19, 2003/11/18 04:08:15
|
version 1.27, 2004/12/10 18:26:49
|
Line 85 sub Debug {
|
Line 85 sub Debug {
|
} |
} |
|
|
|
|
|
|
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
sub handler { |
sub handler { |
Line 102 sub handler {
|
Line 100 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 117 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'}) { |
# Checking to see if we should display the topframe |
&Apache::lonnet::appenv('cgi.path' => $r->path_info); |
# |
$lowerframe="http://$ENV{SERVER_NAME}/cgi-bin/decompress.pl"; |
my $toprows = 0; |
|
my $topsrc = ''; |
|
if ($ENV{'environment.remote'} ne 'off') { |
|
$toprows = '110'; |
|
$topsrc = '/adm/localize/adm/publisher.html'; |
} |
} |
$r->print(<<ENDPAGE); |
$r->print(<<ENDPAGE); |
<html> |
<html> |
Line 133 sub handler {
|
Line 134 sub handler {
|
var lastknownpriv="$lowerframe"; |
var lastknownpriv="$lowerframe"; |
</script> |
</script> |
</head> |
</head> |
<frameset rows="110,*" border="0"> |
<frameset rows="$toprows,*" border="0"> |
<frame src='/adm/publisher.html'> |
<frame src='$topsrc'> |
<frame src="$lowerframe" name="LONCAPAToBePublished"> |
<frame src="$lowerframe" name="LONCAPAToBePublished"> |
</frameset> |
</frameset> |
</html> |
</html> |