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.18 and 1.29

version 1.18, 2003/10/19 16:46:16	version 1.29, 2005/02/28 08:22:09
Line 85 sub Debug {	Line 85 sub Debug {
}	}




# ================================================================ Main Handler	# ================================================================ Main Handler

sub handler {	sub handler {
Line 94 sub handler {	Line 92 sub handler {

# -------------------------------------------------------------- Build frameset	# -------------------------------------------------------------- Build frameset

$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
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);

#	#
Line 120 sub handler {	Line 117 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'}) {	# Checking to see if we should display the topframe
$lowerframe="http://$ENV{'SERVER_NAME'}/cgi-bin/decompress.pl?decompress";	#
	my $toprows = 0;
	my $topsrc = '';
	if ($ENV{'environment.remote'} ne 'off') {
	$toprows = '110';
	$topsrc = '/adm/localize/adm/publisher.html';
}	}
	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDPAGE);	$r->print(<<ENDPAGE);
<html>	$html
<head><title>LON-CAPA Construction Space</title>	<head><title>LON-CAPA Construction Space</title>
<script language="JavaScript">	<script type="text/javascript">
var lastknownpriv="$lowerframe";	var lastknownpriv="$lowerframe";
</script>	</script>
</head>	</head>
<frameset rows="110,*" border="0">	<frameset rows="$toprows,*" border="0">
<frame src='/adm/publisher.html'>	<frame src='$topsrc' />
<frame src="$lowerframe" name="LONCAPAToBePublished">	<frame src="$lowerframe" name="LONCAPAToBePublished" />
</frameset>	</frameset>
</html>	</html>
ENDPAGE	ENDPAGE

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

Removed from v.1.18
changed lines
	Added in v.1.29