--- loncom/interface/lonmenu.pm 2010/12/02 06:00:12 1.340 +++ loncom/interface/lonmenu.pm 2011/01/13 19:43:12 1.341 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.340 2010/12/02 06:00:12 raeburn Exp $ +# $Id: lonmenu.pm,v 1.341 2011/01/13 19:43:12 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -272,7 +272,8 @@ sub secondary_menu { my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec); 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 $canmodpara = &Apache::lonnet::allowed('opa', $crs_sec); + my $canvgr = &Apache::lonnet::allowed('vgr', $crs_sec); my $author = getauthor(); my $showlink = &show_return_link(); @@ -292,10 +293,10 @@ sub secondary_menu { && !($env{'request.state'} eq 'construct'); next if $$menuitem[4] =~ /^mdc/ && !$canedit; - next if $$menuitem[4] eq 'mdcCourse' - && $crstype eq 'Community'; - next if $$menuitem[4] eq 'mdcCommunity' - && $crstype ne 'Community'; + next if $$menuitem[4] eq 'nvgr' + && $canvgr; + next if $$menuitem[4] eq 'vgr' + && !$canvgr; next if $$menuitem[4] eq 'cst' && !$canmodifyuser; next if $$menuitem[4] eq 'whn'