version 1.34, 2005/10/31 18:52:10
|
version 1.35, 2006/04/04 15:32:12
|
Line 346 sub handler {
|
Line 346 sub handler {
|
} |
} |
($outtext,$errtext,$infotext)=&loadmap($fn,$errtext,$infotext); |
($outtext,$errtext,$infotext)=&loadmap($fn,$errtext,$infotext); |
|
|
|
my $start_page = |
|
&Apache::loncommon::start_page('Alert',undef, |
|
{'only_body' => 1, |
|
'bgcolor' => '#FFFFFF',}); |
|
my $end_page = |
|
&Apache::loncommon::end_page(); |
|
|
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
$start_page |
<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> |
<script type ="text/javascript"> |
parent.flag=1; |
parent.flag=1; |
</script> |
</script> |
ENDDOCUMENT |
ENDDOCUMENT |
if (($errtext ne '') || ($infotext ne '')) { |
if (($errtext ne '') || ($infotext ne '')) { |
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script> |
<script type="text/javascript"> |
alert("$infotext $errtext"); |
alert("$infotext $errtext"); |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
} |
} |
$r->print("</body>\n</html>\n"); |
$r->print($end_page); |
|
|
return OK; |
return OK; |
} |
} |