--- loncom/interface/lonmainmenu.pm 2007/04/11 02:42:00 1.5 +++ loncom/interface/lonmainmenu.pm 2013/04/17 01:30:15 1.10.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # displays the main menu # -# $Id: lonmainmenu.pm,v 1.5 2007/04/11 02:42:00 www Exp $ +# $Id: lonmainmenu.pm,v 1.10.2.1 2013/04/17 01:30:15 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,10 +31,6 @@ # browser.interface - if this is 'textual', it overrides the second parameter # and goes to screen reader PDA mode # -# environment.remote - if this is 'on', the routines controll the remote -# control, otherwise they render the main window controls; ignored it -# browser.interface is 'textual' -# package Apache::lonmainmenu; @@ -51,28 +47,15 @@ sub handler { $r->send_http_header; return OK if $r->header_only; - my $form; - if ($env{'environment.remote'} ne 'off' && - $env{'browser.interface'} ne 'textual') { - $form=&Apache::lonmenu::serverform(); - } - - my $script_tag; - if ($env{'environment.remote'} ne 'off') { - my $utility=&Apache::lonmenu::utilityfunctions('/adm/menu'); - $script_tag=(< -$utility - -ENDSCRIPT - } # ---- Print the screen, pretend to be in text mode to generate text-based menu - unless ($env{'browser.interface'} eq 'textual') { - $env{'browser.interface'}='faketextual'; - $env{'environment.remote'}='off'; - } - $r->print(&Apache::loncommon::start_page('Main Menu',$script_tag)); - $r->print(&Apache::lonmenu::inlinemenu().$form); +# 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()); return OK; }