--- loncom/interface/lonmenu.pm 2012/05/24 22:56:30 1.375
+++ loncom/interface/lonmenu.pm 2012/05/25 03:22:43 1.377
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.375 2012/05/24 22:56:30 raeburn Exp $
+# $Id: lonmenu.pm,v 1.377 2012/05/25 03:22:43 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -260,7 +260,7 @@ sub primary_menu {
if (@primsub > 0) {
$menu .= &create_submenu($link,$target,$title,\@primsub);
} elsif ($link) {
- $menu .= '
'.$title.'';
+ $menu .= ''.&mt($title).'';
}
}
} elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
@@ -319,6 +319,7 @@ sub secondary_menu {
? "/$env{'request.course.sec'}"
: '');
my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
+ my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};
my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec);
my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);
my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec);
@@ -347,7 +348,7 @@ sub secondary_menu {
next if $$menuitem[4] eq 'cst'
&& !$canmodifyuser;
next if $$menuitem[4] eq 'ncst'
- && $canmodifyuser;
+ && ($canmodifyuser || !$canviewroster);
next if $$menuitem[4] eq 'mgr'
&& !$canmgr;
next if $$menuitem[4] eq 'nmgr'
@@ -403,7 +404,7 @@ sub create_submenu {
return unless (ref($submenu) eq 'ARRAY');
my $menu = ''.
''.
- ''.$title.
+ ''.&mt($title).
''.
' ▼'.
'';
@@ -418,7 +419,7 @@ sub create_submenu {
}
$menu .= '- '.
- $item->[1].'
';
+ &mt($item->[1]).'
';
}
}
$menu .= '';