--- loncom/interface/lonmenu.pm 2005/02/18 21:23:12 1.148 +++ loncom/interface/lonmenu.pm 2005/02/21 00:32:04 1.149 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.148 2005/02/18 21:23:12 albertel Exp $ +# $Id: lonmenu.pm,v 1.149 2005/02/21 00:32:04 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -60,6 +60,9 @@ sub initlittle { return &Apache::lonlocal::texthash('ret' => 'Return to Last Location', 'nav' => 'Navigate Contents', 'main' => 'Main Menu', + 'roles' => ($ENV{'user.adv'}? + 'Roles':'Courses'), + 'exit' => 'Exit', 'launch' => 'Launch Remote Control'); } @@ -72,7 +75,8 @@ sub menubuttons { my $titletable=shift; &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']); - if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; } + if (($ENV{'form.inhibitmenu'} eq 'yes') || + ($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; } my $navmaps=''; my $reloadlink=''; @@ -103,7 +107,7 @@ ENDNAV $lt{'ret'} ENDRELOAD } - } + } my $form=&serverform(); my $utility=&utilityfunctions(); my $output=(< $lt{'main'} -$reloadlink $navmaps
+$reloadlink $navmaps +$lt{'roles'} +$lt{'exit'} +
@@ -196,6 +203,12 @@ $navmaps $lt{'launch'} +$lt{'roles'} + + +$lt{'exit'} + + LON-CAPA $form