--- loncom/interface/lonmenu.pm 2011/01/16 22:45:05 1.342 +++ loncom/interface/lonmenu.pm 2011/01/17 01:35:32 1.343 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.342 2011/01/16 22:45:05 www Exp $ +# $Id: lonmenu.pm,v 1.343 2011/01/17 01:35:32 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -271,8 +271,9 @@ sub secondary_menu { my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec); my $canmodpara = &Apache::lonnet::allowed('opa', $crs_sec); - my $canvgr = &Apache::lonnet::allowed('vgr', $crs_sec); - my $author = getauthor(); + my $canvgr = &Apache::lonnet::allowed('vgr', $crs_sec); + my $canmgr = &Apache::lonnet::allowed('mgr', $crs_sec); + my $author = &getauthor(); my %groups = &Apache::lonnet::get_active_groups( $env{'user.domain'}, $env{'user.name'}, @@ -293,6 +294,12 @@ sub secondary_menu { && !$canvgr; next if $$menuitem[4] eq 'cst' && !$canmodifyuser; + next if $$menuitem[4] eq 'ncst' + && $canmodifyuser; + next if $$menuitem[4] eq 'mgr' + && !$canmgr; + next if $$menuitem[4] eq 'nmgr' + && $canmgr; next if $$menuitem[4] eq 'whn' && !$canviewwnew; next if $$menuitem[4] eq 'opa'