--- loncom/interface/lonmainmenu.pm 2013/04/17 01:30:15 1.10.2.1 +++ loncom/interface/lonmainmenu.pm 2017/06/26 01:56:58 1.12 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # displays the main menu # -# $Id: lonmainmenu.pm,v 1.10.2.1 2013/04/17 01:30:15 raeburn Exp $ +# $Id: lonmainmenu.pm,v 1.12 2017/06/26 01:56:58 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -35,13 +35,22 @@ package Apache::lonmainmenu; use strict; -use Apache::Constants qw(:common); +use Apache::Constants qw(:common REDIRECT); use Apache::loncommon(); use Apache::lonnet; use Apache::lonmenu(); sub handler { my $r = shift; + + # Check for critical messages and redirect if present. + my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'menu'); + if ($redirect) { + &Apache::loncommon::content_type($r,'text/html'); + $r->header_out(Location => $url); + return REDIRECT; + } + &Apache::loncommon::no_cache($r); &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; @@ -51,7 +60,7 @@ 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}));