--- loncom/interface/lonmenu.pm 2003/09/17 01:45:14 1.88 +++ loncom/interface/lonmenu.pm 2003/09/21 21:40:06 1.93 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.88 2003/09/17 01:45:14 www Exp $ +# $Id: lonmenu.pm,v 1.93 2003/09/21 21:40:06 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -145,7 +145,6 @@ ENDRELOAD if ($registration) { $reg=&innerregister($forcereg,$target); } - my $trans=&Apache::lonlocal::endreroutetrans(); return (< // BEGIN LON-CAPA Internal @@ -165,7 +164,6 @@ $navmaps LON-CAPA -$trans @@ -179,6 +177,7 @@ ENDINLINEMENU # ====================================== This gets called in the header section sub registerurl { + &Apache::lonlocal::reroutetrans(); my $forcereg=shift; my $target = shift; my $result = ''; @@ -212,6 +211,7 @@ sub registerurl { # =========== and in the body of the document sub innerregister { + &Apache::lonlocal::reroutetrans(); my $forcereg=shift; my $target = shift; my $result = ''; @@ -351,7 +351,6 @@ s&2&3&forw.gif&forward&&gopost('/adm/fli c&6&3 c&8&1 c&8&2 -s&8&3&prt.gif&prepare&printout&gopost('/adm/printout',currentURL)&Prepare a printable document s&9&1&sbkm.gif&set&bookmark&set_bookmark()&Set a bookmark for this resource&2 s&9&3&anot.gif&anno-&tations&annotate()&Make notes and annotations about this resource&2 ENDMENUITEMS @@ -875,10 +874,12 @@ ENDSERVERFORM sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; + &Apache::lonlocal::clearreroutetrans(); + my $form=&serverform(); my $bodytag=&Apache::loncommon::bodytag('Main Menu'); my $function='student'; @@ -911,6 +912,7 @@ $utility $bodytag ENDHEADER $r->print(''.&inlinemenu().'
'.$form); + $r->print(&Apache::lonlocal::endreroutetrans()); $r->print(''); return OK; }