--- loncom/interface/lonmenu.pm 2009/08/12 18:38:04 1.279 +++ loncom/interface/lonmenu.pm 2009/08/20 20:49:59 1.280 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.279 2009/08/12 18:38:04 raeburn Exp $ +# $Id: lonmenu.pm,v 1.280 2009/08/20 20:49:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1308,7 +1308,8 @@ sub rawconfig { sub check_for_rcrs { my $showreqcrs = 0; - foreach my $type ('official','unofficial','community') { + my @reqtypes = ('official','unofficial','community'); + foreach my $type (@reqtypes) { if (&Apache::lonnet::usertools_access($env{'user.name'}, $env{'user.domain'}, $type,undef,'requestcourses')) { @@ -1316,6 +1317,14 @@ sub check_for_rcrs { last; } } + if (!$showreqcrs) { + foreach my $type (@reqtypes) { + if ($env{'environment.reqcrsotherdom.'.$type} ne '') { + $showreqcrs = 1; + last; + } + } + } return $showreqcrs; }