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.32 and 1.34

version 1.32, 2006/04/06 22:15:18	version 1.34, 2008/02/03 01:11:01
Line 92 sub handler {	Line 92 sub handler {
&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['forceedit']);	($ENV{'QUERY_STRING'},['forceedit']);
if ($env{'form.forceedit'}) {	if ($env{'form.forceedit'}) {
$lowerframe.='?editmode=Edit&problemmode=EditXML';	$lowerframe.='?editmode=Edit&problemmode=editxml';
}	}
&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['forceColoredit']);	($ENV{'QUERY_STRING'},['forceColoredit']);
if ($env{'form.forceColoredit'}) {	if ($env{'form.forceColoredit'}) {
$lowerframe.='?editmode=Edit&problemmode=Edit';	$lowerframe.='?editmode=Edit&problemmode=edit';
}	}

#	#
Line 109 sub handler {	Line 109 sub handler {
$toprows = '110';	$toprows = '110';
$topsrc = '/adm/localize/adm/publisher.html';	$topsrc = '/adm/localize/adm/publisher.html';
}	}
my $extra;
&Apache::lontexconvert::jsMath_reset();	my $js=qq\|
if ($env{'environment.texengine'} eq 'jsMath' \|\|
$env{'form.texengine'} eq 'jsMath' ) {
$extra.=&Apache::lontexconvert::jsMath_header();
}
my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDPAGE);
$html
<head><title>LON-CAPA Construction Space</title>
<script type="text/javascript">	<script type="text/javascript">
var lastknownpriv="$lowerframe";	var lastknownpriv="$lowerframe";
</script>	</script>
</head>	\|;
<frameset rows="$toprows,*" border="0">
	my $start_page=
	&Apache::loncommon::start_page('Construction Space',$js,
	{'frameset' => 1,
	'add_entries' => {
	'rows' => "$toprows,*",
	'border' => "0",}});
	my $end_page=
	&Apache::loncommon::end_page({'frameset' => 1});

	$r->print(<<ENDPAGE);
	$start_page
<frame src='$topsrc' />	<frame src='$topsrc' />
<frame src="$lowerframe" name="LONCAPAToBePublished" />	<frame src="$lowerframe" name="LONCAPAToBePublished" />
</frameset>	$end_page
</html>
ENDPAGE	ENDPAGE
return OK;	return OK;
}	}

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

Removed from v.1.32
changed lines
	Added in v.1.34