--- loncom/interface/lonmenu.pm 2004/08/27 17:03:45 1.115 +++ loncom/interface/lonmenu.pm 2004/09/18 16:28:35 1.116 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.115 2004/08/27 17:03:45 albertel Exp $ +# $Id: lonmenu.pm,v 1.116 2004/09/18 16:28:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -69,7 +69,6 @@ sub menubuttons { my $forcereg=shift; my $target =shift; my $registration=shift; - &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']); if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; } @@ -97,9 +96,11 @@ ENDNAV ENDRELOAD } } + my $utility=&utilityfunctions(); my $output=(< // BEGIN LON-CAPA Internal +$utility $lt{'main'} $reloadlink $navmaps
@@ -134,12 +135,8 @@ ENDMAINMENU my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain); # Do we have a NAV link? if ($ENV{'request.course.id'}) { - my $navcontrol=&Apache::lonnavmaps::nav_control_js(); - $navmaps=(< - $lt{'nav'} ENDNAV if (($ENV{'request.noversionuri'}=~/^\/adm\//) && @@ -156,9 +153,11 @@ ENDRELOAD if ($registration) { $reg=&innerregister($forcereg,$target); } + my $utility=&utilityfunctions(); return (< // BEGIN LON-CAPA Internal +$utility @@ -168,7 +167,7 @@ ENDRELOAD $reloadlink $navmaps
- + $lt{'launch'} @@ -389,7 +388,6 @@ ENDREALRES } if ($textual) { # Registered, textual output - my $utility=&utilityfunctions(); my $form=&serverform(); my $inlinebuttons=''; @@ -408,7 +406,6 @@ ENDINLINE $result =(< // BEGIN LON-CAPA Internal -$utility $timesync $newmail @@ -981,13 +978,9 @@ sub handler { $ENV{'browser.interface'}='faketextual'; $ENV{'environment.remote'}='off'; } - my $utility=&utilityfunctions(); $r->print(< LON-CAPA Main Menu - $bodytag ENDHEADER