--- loncom/interface/lonmenu.pm 2009/08/05 11:01:38 1.277 +++ loncom/interface/lonmenu.pm 2009/08/06 04:09:45 1.278 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.277 2009/08/05 11:01:38 bisitz Exp $ +# $Id: lonmenu.pm,v 1.278 2009/08/06 04:09:45 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1271,9 +1271,16 @@ sub rawconfig { $output.=&clear($row,$col); next; } - } elsif ($prt eq 'reqcrs') { + } elsif (($prt eq 'reqcrsnsc') || ($prt eq 'reqcrsshc')) { + next if (&Apache::lonnet::allowed('mky',$requested_domain)); + if (($prt eq 'reqcrsnsc') && ($show_course)) { + next; + } + if (($prt eq 'reqcrsshc') && (!$show_course)) { + next; + } my $showreqcrs = 0; - foreach my $type ('official','unofficial') { + foreach my $type ('official','unofficial','community') { if (&Apache::lonnet::usertools_access($env{'user.name'}, $env{'user.domain'}, $type,undef,'requestcourses')) {