loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.279, 2009/08/12 18:38:04	version 1.280, 2009/08/20 20:49:59
Line 1308 sub rawconfig {	Line 1308 sub rawconfig {

sub check_for_rcrs {	sub check_for_rcrs {
my $showreqcrs = 0;	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'},	if (&Apache::lonnet::usertools_access($env{'user.name'},
$env{'user.domain'},	$env{'user.domain'},
$type,undef,'requestcourses')) {	$type,undef,'requestcourses')) {
Line 1316 sub check_for_rcrs {	Line 1317 sub check_for_rcrs {
last;	last;
}	}
}	}
	if (!$showreqcrs) {
	foreach my $type (@reqtypes) {
	if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
	$showreqcrs = 1;
	last;
	}
	}
	}
return $showreqcrs;	return $showreqcrs;
}	}