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}) { |