loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.521, 2022/05/29 03:19:00	version 1.523, 2022/06/11 04:30:48
Line 887 sub innerregister {	Line 887 sub innerregister {
}	}
}	}
}	}
unless (($forcereg) &&	unless ((($crstype eq 'Placement') && (!$env{'request.role.adv'})) \|\|
($env{'request.noversionuri'} eq '/adm/navmaps') &&
($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'}) \|\|
(($crstype eq 'Placement') && (!$env{'request.role.adv'})) \|\|
($ltiscope eq 'map') \|\| ($ltiscope eq 'resource')) {	($ltiscope eq 'map') \|\| ($ltiscope eq 'resource')) {
@crumbs = ({text => $crstype.' Contents',	@crumbs = ({text => $crstype.' Contents',
href => "Javascript:gopost('/adm/navmaps','')"});	href => "Javascript:gopost('/adm/navmaps','')"});
Line 1949 sub check_for_rcrs {	Line 1946 sub check_for_rcrs {
if (!$showreqcrs) {	if (!$showreqcrs) {
foreach my $type (@reqtypes) {	foreach my $type (@reqtypes) {
if ($env{'environment.reqcrsotherdom.'.$type} ne '') {	if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
$showreqcrs = 1;	my @domains = split(',',$env{'environment.reqcrsotherdom.'.$type});
last;	foreach my $entry (@domains) {
	my ($extdom,$extopt) = split(':',$entry);
	if (&Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom)) {
	$showreqcrs = 1;
	last;
	}
	}
	if ($showreqcrs) {
	last;
	}
}	}
}	}
}	}