loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.12, 2003/06/15 18:02:57	version 1.20, 2003/11/19 14:57:32
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);
$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);

	#
	# 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><title>LON-CAPA Construction Space</title>