--- rat/lonratsrv.pm 2005/10/31 18:52:10 1.34 +++ rat/lonratsrv.pm 2006/07/21 00:21:42 1.36 @@ -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.36 2006/07/21 00:21:42 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,6 +33,7 @@ use Apache::Constants qw(:common); use Apache::File; use HTML::TokeParser; use Apache::lonnet; +use Apache::groupsort(); # ------------------------------------------------------------- From RAT to XML @@ -311,6 +312,7 @@ sub savemap { # -------------------------------------------- Cannot write to that file, error $errtext.='Map not saved: The specified path does not exist. '; } + &Apache::groupsort::clear_basket(); return ($errtext,$infotext); } @@ -346,24 +348,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; }