--- loncom/interface/lonmenu.pm 2016/08/15 15:52:16 1.452 +++ loncom/interface/lonmenu.pm 2016/10/06 20:03:34 1.453 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.452 2016/08/15 15:52:16 raeburn Exp $ +# $Id: lonmenu.pm,v 1.453 2016/10/06 20:03:34 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -386,7 +386,8 @@ sub secondary_menu { undef($canviewroster); } my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec); - my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); + my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); + my $canviewusers = &Apache::lonnet::allowed('vcl', $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); @@ -457,9 +458,9 @@ sub secondary_menu { next if $$menuitem[4] eq 'vgr' && !$canvgr; next if $$menuitem[4] eq 'cst' - && !$canmodifyuser; + && !$canmodifyuser && !$canviewusers; next if $$menuitem[4] eq 'ncst' - && ($canmodifyuser || !$canviewroster); + && ($canmodifyuser || $canviewusers || !$canviewroster); next if $$menuitem[4] eq 'mgr' && !$canmgr; next if $$menuitem[4] eq 'showresv'