loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.244.2.5, 2009/08/14 12:21:32	version 1.244.2.7, 2009/08/23 13:22:16
Line 1193 sub inlinemenu {	Line 1193 sub inlinemenu {
}	}
foreach my $item (sort(keys(%active))) {	foreach my $item (sort(keys(%active))) {
$output.=$inlineremote[$item];	$output.=$inlineremote[$item];
&Apache::lonnet::logthis("item=$item output=$inlineremote[$item]");
}	}
$output.='</table>';	$output.='</table>';
$output.='</fieldset>';	$output.='</fieldset>';
Line 1354 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 1362 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;
}	}