loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/Attic/lonconstruct.pm between versions 1.19 and 1.22

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>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.19
changed lines
	Added in v.1.22