--- loncom/interface/lonmenu.pm 2003/04/03 21:32:23 1.54 +++ loncom/interface/lonmenu.pm 2003/04/04 19:35:04 1.55 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.54 2003/04/03 21:32:23 www Exp $ +# $Id: lonmenu.pm,v 1.55 2003/04/04 19:35:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,13 +52,22 @@ sub menubuttons { my $forcereg=shift; my $target =shift; my $registration=shift; + my $navmaps=''; + my $escurl=&Apache::lonnet::escape($ENV{'REQUEST_URI'}); + my $escsymb=&Apache::lonnet::escape($ENV{'request.symb'}); if ($ENV{'browser.interface'} eq 'textual') { # Textual display only + if ($ENV{'request.course.id'}) { + $navmaps=(<Navigate Contents +ENDNAV + } my $output=(< // BEGIN LON-CAPA Internal -Main Menu
+Main Menu +$navmaps
@@ -67,13 +76,18 @@ ENDMAINMENU return $output."
"; } elsif ($ENV{'environment.remote'} eq 'off') { # Remote Control is switched off - my $escurl=&Apache::lonnet::escape($ENV{'REQUEST_URI'}); + if ($ENV{'request.course.id'}) { + $navmaps=(<Navigate Contents +ENDNAVREM + } my $output=(< // BEGIN LON-CAPA Internal
Main Menu +$navmaps Launch Remote Control