--- loncom/interface/lonmainmenu.pm 2020/09/08 04:28:39 1.10.2.2.4.1 +++ loncom/interface/lonmainmenu.pm 2025/03/25 01:02:59 1.14 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # displays the main menu # -# $Id: lonmainmenu.pm,v 1.10.2.2.4.1 2020/09/08 04:28:39 raeburn Exp $ +# $Id: lonmainmenu.pm,v 1.14 2025/03/25 01:02:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,6 +39,7 @@ use Apache::Constants qw(:common REDIREC use Apache::loncommon(); use Apache::lonnet; use Apache::lonmenu(); +use Apache::lonlocal; sub handler { my $r = shift; @@ -60,12 +61,72 @@ sub handler { # temporarily set interface to "faketextual" and remote to "off", which renders # the main menu $env{'browser.interface'}='faketextual'; - $env{'environment.remote'}='off'; - $r->print(&Apache::loncommon::start_page( 'Main Menu', - undef, - {'bread_crumbs' => 1})); - $r->print(&Apache::lonmenu::inlinemenu()); - $r->print(&Apache::loncommon::end_page()); + +# +# If menu collection is in effect in course context, determine if Main Menu +# will be shown. +# + my $showmenu = 1; + my $deeplinkmenu; + if ($env{'request.course.id'}) { + (my $menucoll,$deeplinkmenu,my $menuref) = + &Apache::loncommon::menucoll_in_effect(); + if (($menucoll) && (ref($menuref) eq 'HASH')) { + if ($menuref->{'main'} eq 'n') { + $showmenu = 0; + } + } + } + my $js; + my $args = { 'bread_crumbs' => 1 }; + if ($showmenu) { + $js = <<"END"; + +END + $args->{'add_entries'} = { 'onload' => 'javascript:formatMenuText();' }; + } + + $r->print(&Apache::loncommon::start_page( 'Main Menu',$js,$args). + '