--- loncom/interface/lonmenu.pm 2004/08/23 21:05:03 1.114 +++ 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.114 2004/08/23 21:05:03 albertel Exp $ +# $Id: lonmenu.pm,v 1.116 2004/09/18 16:28:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,10 +39,11 @@ package Apache::lonmenu; use strict; -use Apache::lonnet; +use Apache::lonnet(); use Apache::Constants qw(:common); use Apache::lonhtmlcommon(); -use Apache::loncommon; +use Apache::loncommon(); +use Apache::lonnavmaps(); use Apache::lonlocal; use vars qw(@desklines $readdesk); @@ -68,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 ''; } @@ -96,9 +96,11 @@ ENDNAV ENDRELOAD } } + my $utility=&utilityfunctions(); my $output=(< // BEGIN LON-CAPA Internal +$utility $lt{'main'} $reloadlink $navmaps
@@ -133,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\//) && @@ -155,9 +153,11 @@ ENDRELOAD if ($registration) { $reg=&innerregister($forcereg,$target); } + my $utility=&utilityfunctions(); return (< // BEGIN LON-CAPA Internal +$utility @@ -167,7 +167,7 @@ ENDRELOAD $reloadlink $navmaps
- + $lt{'launch'} @@ -388,7 +388,6 @@ ENDREALRES } if ($textual) { # Registered, textual output - my $utility=&utilityfunctions(); my $form=&serverform(); my $inlinebuttons=''; @@ -407,7 +406,6 @@ ENDINLINE $result =(< // BEGIN LON-CAPA Internal -$utility $timesync $newmail @@ -980,13 +978,9 @@ sub handler { $ENV{'browser.interface'}='faketextual'; $ENV{'environment.remote'}='off'; } - my $utility=&utilityfunctions(); $r->print(< LON-CAPA Main Menu - $bodytag ENDHEADER