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.281, 2009/09/08 20:56:46
Line 149 my @inlineremote;	Line 149 my @inlineremote;

sub initlittle {	sub initlittle {
return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',	return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
'nav' => 'Navigate Contents',	'nav' => 'Course Contents',
'main' => 'Main Menu',	'main' => 'Main Menu',
'roles' => (&Apache::loncommon::show_course()?	'roles' => (&Apache::loncommon::show_course()?
'Courses':'Roles'),	'Courses':'Roles'),
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;
}	}