--- loncom/interface/lonmenu.pm 2004/07/14 17:40:32 1.110 +++ loncom/interface/lonmenu.pm 2004/08/10 18:05:12 1.112 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.110 2004/07/14 17:40:32 matthew Exp $ +# $Id: lonmenu.pm,v 1.112 2004/08/10 18:05:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -68,6 +68,11 @@ 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 ''; } + my $navmaps=''; my $reloadlink=''; my $escurl=&Apache::lonnet::escape($ENV{'request.noversionuri'}); @@ -604,7 +609,9 @@ sub reopenmenu { sub open { my $returnval=''; if (($ENV{'browser.interface'} eq 'textual') || - ($ENV{'environment.remote'} eq 'off')) { return ''; } + ($ENV{'environment.remote'} eq 'off')) { + return ''; + } my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; unless (shift eq 'unix') { # resizing does not work on linux because of virtual desktop sizes