--- loncom/interface/lonrequestcourse.pm 2018/12/27 18:14:25 1.105 +++ loncom/interface/lonrequestcourse.pm 2019/01/27 15:46:26 1.106 @@ -1,7 +1,7 @@ # The LearningOnline Network # Request a course # -# $Id: lonrequestcourse.pm,v 1.105 2018/12/27 18:14:25 raeburn Exp $ +# $Id: lonrequestcourse.pm,v 1.106 2019/01/27 15:46:26 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3371,14 +3371,14 @@ sub get_course_dom { return $env{'user.domain'}; } } - my (@possible_doms,%willtrust,%trustchecked); + my (@possible_doms,%willtrust); foreach my $type (@{$types}) { my $dom_str = $env{'environment.reqcrsotherdom.'.$type}; if ($dom_str ne '') { my @domains = split(',',$dom_str); foreach my $entry (@domains) { my ($extdom,$extopt) = split(':',$entry); - unless ($trustchecked{$extdom}) { + unless (exists($willtrust{$extdom})) { $willtrust{$extdom} = &Apache::lonnet::will_trust('reqcrs',$env{'user.domain'},$extdom); } if ($willtrust{$extdom}) {