--- loncom/interface/lonmenu.pm 2016/10/11 22:58:55 1.454 +++ loncom/interface/lonmenu.pm 2016/10/26 14:51:44 1.456 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.454 2016/10/11 22:58:55 raeburn Exp $ +# $Id: lonmenu.pm,v 1.456 2016/10/26 14:51:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -416,7 +416,7 @@ sub secondary_menu { $showfeeds = 1; } } - unless ($canmgr) { + unless (($canmgr || $canvgr)) { my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom); if (keys(%slots) > 0) { $showresv = 1; @@ -458,9 +458,9 @@ sub secondary_menu { && $canvgr; next if $$menuitem[4] eq 'vgr' && !$canvgr; - next if $$menuitem[4] eq 'cst' + next if $$menuitem[4] eq 'viewusers' && !$canmodifyuser && !$canviewusers; - next if $$menuitem[4] eq 'ncst' + next if $$menuitem[4] eq 'noviewusers' && ($canmodifyuser || $canviewusers || !$canviewroster); next if $$menuitem[4] eq 'mgr' && !$canmgr; @@ -751,7 +751,7 @@ sub innerregister { if ($env{'request.filename'}=~/$LONCAPA::assess_re/) { push(@privs,('mgr','vgr')); } - push(@privs,'opa'); + push(@privs,('opa','vpa')); } foreach my $priv (@privs) { $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'}); @@ -775,7 +775,7 @@ sub innerregister { 'Content Submissions'); } } - if (($env{'request.symb'} ne '') && ($perms{'opa'})) { + if (($env{'request.symb'} ne '') && (($perms{'opa'}) || ($perms{'vpa'}))) { &switch('','',7,3,'pparm.png','Content Settings','parms[_2]', "gocmd('/adm/parmset','set')", 'Content Settings');