loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.105, 2018/12/27 18:14:25	version 1.106, 2019/01/27 15:46:26
Line 3371 sub get_course_dom {	Line 3371 sub get_course_dom {
return $env{'user.domain'};	return $env{'user.domain'};
}	}
}	}
my (@possible_doms,%willtrust,%trustchecked);	my (@possible_doms,%willtrust);
foreach my $type (@{$types}) {	foreach my $type (@{$types}) {
my $dom_str = $env{'environment.reqcrsotherdom.'.$type};	my $dom_str = $env{'environment.reqcrsotherdom.'.$type};
if ($dom_str ne '') {	if ($dom_str ne '') {
my @domains = split(',',$dom_str);	my @domains = split(',',$dom_str);
foreach my $entry (@domains) {	foreach my $entry (@domains) {
my ($extdom,$extopt) = split(':',$entry);	my ($extdom,$extopt) = split(':',$entry);
unless ($trustchecked{$extdom}) {	unless (exists($willtrust{$extdom})) {
$willtrust{$extdom} = &Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom);	$willtrust{$extdom} = &Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom);
}	}
if ($willtrust{$extdom}) {	if ($willtrust{$extdom}) {