--- rat/lonratsrv.pm 2005/10/31 18:52:10 1.34 +++ rat/lonratsrv.pm 2006/04/04 15:32:12 1.35 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Server for RAT Maps # -# $Id: lonratsrv.pm,v 1.34 2005/10/31 18:52:10 albertel Exp $ +# $Id: lonratsrv.pm,v 1.35 2006/04/04 15:32:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -346,24 +346,30 @@ sub handler { } ($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(< - -
- +$start_page + +
- ENDDOCUMENT if (($errtext ne '') || ($infotext ne '')) { $r->print(< + ENDSCRIPT } - $r->print("\n\n"); + $r->print($end_page); return OK; }