--- 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