loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.14, 2003/09/21 03:32:06	version 1.15, 2003/10/18 17:17:12
Line 45 use Apache::lonnet;	Line 45 use Apache::lonnet;
use Apache::Log ();	use Apache::Log ();
use HTML::Entities();	use HTML::Entities();

my $DEBUG = 0;	my $DEBUG = 1;
=pod	=pod

=item Debug($request, $message)	=item Debug($request, $message)
Line 104 sub handler {	Line 104 sub handler {
$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?	# Are we forcing edit mode?
Line 120 sub handler {	Line 120 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'}) {
	$lowerframe='http://$ENV{'SERVER_NAME'}/cgi-bin/decompress.pl?something';
	}
$r->print(<<ENDPAGE);	$r->print(<<ENDPAGE);
<html>	<html>
<head><title>LON-CAPA Construction Space</title>	<head><title>LON-CAPA Construction Space</title>