loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.244.2.6, 2009/08/20 06:04:14	version 1.244.2.7, 2009/08/23 13:22:16
Line 1353 sub rawconfig {	Line 1353 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 1361 sub check_for_rcrs {	Line 1362 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;
}	}