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.7 and 1.14

version 1.7, 2002/08/24 03:56:58	version 1.14, 2003/09/21 03:32:06
Line 43 use strict;	Line 43 use strict;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::lonnet;	use Apache::lonnet;
use Apache::Log ();	use Apache::Log ();
	use HTML::Entities();

my $DEBUG = 0;	my $DEBUG = 0;
=pod	=pod
Line 103 sub handler {	Line 103 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=~s/\"/&quot\;/g;	$lowerframe= &HTML::Entities::encode($lowerframe);
&Debug($r, "LOwer frame URL after quote subst: ".$lowerframe);	&Debug($r, "LOwer frame URL after quote subst: ".$lowerframe);

	#
	# Are we forcing edit mode?
	#

	&Apache::loncommon::get_unprocessed_cgi
	($ENV{'QUERY_STRING'},['forceedit']);
	if ($ENV{'form.forceedit'}) {
	$lowerframe.='?editmode=Edit&problemmode=EditXML';
	}
	&Apache::loncommon::get_unprocessed_cgi
	($ENV{'QUERY_STRING'},['forceColoredit']);
	if ($ENV{'form.forceColoredit'}) {
	$lowerframe.='?editmode=Edit&problemmode=Edit';
	}

$r->print(<<ENDPAGE);	$r->print(<<ENDPAGE);
<html>	<html>
<head><title>LON-CAPA Construction Space</title></head>	<head><title>LON-CAPA Construction Space</title>
<frameset rows="110,*">	<script language="JavaScript">
	var lastknownpriv="$lowerframe";
	</script>
	</head>
	<frameset rows="110,*" border="0">
<frame src='/adm/publisher.html'>	<frame src='/adm/publisher.html'>
<frame src="$lowerframe" name="LONCAPAToBePublished">	<frame src="$lowerframe" name="LONCAPAToBePublished">
</frameset>	</frameset>

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

Removed from v.1.7
changed lines
	Added in v.1.14