loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.9, 2002/09/16 13:05:49	version 1.10, 2003/05/28 21:07:19
Line 44 use Apache::Constants qw(:common :http :	Line 44 use Apache::Constants qw(:common :http :
use Apache::lonnet;	use Apache::lonnet;
use Apache::Log ();	use Apache::Log ();
use HTML::Entities();	use HTML::Entities();
	use Apache::loncommon;
	use Apache::lonmenu;

my $DEBUG = 0;	my $DEBUG = 0;
=pod	=pod
Line 105 sub handler {	Line 107 sub handler {
&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);
	my $loadevents=&Apache::lonmenu::loadevents();
	my $unloadevents=&Apache::lonmenu::unloadevents();
	my $script=&Apache::lonmenu::registerurl();
$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,*" border="0">	$script
	</head>
	<frameset rows="110,*" border="0"
	onLoad="$loadevents"
	onUnload="$unloadevents">
<frame src='/adm/publisher.html'>	<frame src='/adm/publisher.html'>
<frame src="$lowerframe" name="LONCAPAToBePublished">	<frame src="$lowerframe" name="LONCAPAToBePublished">
</frameset>	</frameset>