rat/lonratsrv.pm - diff

Return to lonratsrv.pm CVS log

Up to [LON-CAPA] / rat

version 1.7, 2000/10/02 16:10:12	version 1.10, 2001/05/03 13:18:49
Line 7	Line 7
# 05/29/00,05/30 Gerd Kortemeyer)	# 05/29/00,05/30 Gerd Kortemeyer)
# 7/1 Gerd Kortemeyer)	# 7/1 Gerd Kortemeyer)
# 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer	# 7/1,7/3,7/4,7/7,7/8,7/10,7/26,10/2 Gerd Kortemeyer
	# 4/30/2001 Scott Harrison
	# 5/3 Gerd Kortemeyer

package Apache::lonratsrv;	package Apache::lonratsrv;

Line 270 sub handler {	Line 272 sub handler {
my $fn=$r->filename;	my $fn=$r->filename;
my $errtext='';	my $errtext='';
my $outtext='';	my $outtext='';
my $onload='';

if ($mode ne 'loadonly') {	if ($mode ne 'loadonly') {
$errtext=&savemap($fn,$errtext);	$errtext=&savemap($fn,$errtext);
$onload='onLoad="parent.code.srvloaded();"';
}	}
($outtext,$errtext)=&loadmap($fn,$errtext);	($outtext,$errtext)=&loadmap($fn,$errtext);

$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
<body bgcolor="#FFFFFF" $onload>	<body bgcolor="#FFFFFF">
<form name=storage method=post action="$url">	<form name=storage method=post action="$url">
<input type=hidden name=output value="$outtext">	<input type=hidden name=output value="$outtext">
</form>	</form>
	<script>
	parent.flag=1;
	</script>
ENDDOCUMENT	ENDDOCUMENT
if ($errtext ne '') {	if ($errtext ne '') {
$r->print(<<ENDSCRIPT);	$r->print(<<ENDSCRIPT);