loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.512.2.24.2.7, 2023/12/29 23:47:02	version 1.512.2.24.2.8, 2024/01/13 12:30:59
Line 1368 sub needs_linkprot_passback {	Line 1368 sub needs_linkprot_passback {
$lti_in_use = $domlti{$itemnum};	$lti_in_use = $domlti{$itemnum};
}	}
my ($state,$others,$listed,$scope,$protect,$display,$target,$exit) = split(/,/,$deeplink);	my ($state,$others,$listed,$scope,$protect,$display,$target,$exit) = split(/,/,$deeplink);
my $passback;	my ($passback,$pbscope);
if ($scope eq 'resource') {	if ($scope eq 'res') {
if ($deeplink_symb eq $symb) {	if ($deeplink_symb eq $symb) {
$passback = 1;	$passback = 1;
	$pbscope = 'resource';
}	}
} elsif ($scope eq 'map') {	} elsif ($scope eq 'map') {
if (&Apache::lonnet::clutter($deeplink_map) eq $map) {	if (&Apache::lonnet::clutter($deeplink_map) eq $map) {
$passback = 1;	$passback = 1;
	$pbscope = 'nonrec';
	}
	} elsif ($scope eq 'rec') {
	my @recurseup = &get_map_hierarchy($map,$env{'request.course.id'});
	if (grep(/^\Q$deeplink_map\E$/,@recurseup)) {
	$passback = 1;
	$pbscope = 'map';
}	}
} elsif ($scope eq 'recurse') {
#FIXME check if $deeplink_map contains $map
$passback = 1;
}	}
return ($passback,$scope,$deeplink_map,$deeplink_symb,$crsdef,$itemnum,$lti_in_use);	return ($passback,$pbscope,$deeplink_map,$deeplink_symb,$crsdef,$itemnum,$lti_in_use);
}	}
}	}
}	}