![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.842, 2007/03/03 01:54:13 | version 1.843, 2007/03/03 02:10:59 |
|---|---|
| Line 7623 BEGIN { | Line 7623 BEGIN { |
| my %result; | my %result; |
| if (ref($domain) eq 'ARRAY') { | if (ref($domain) eq 'ARRAY') { |
| while ( my ($host,$hostname) = each(%possible_hosts)) { | while ( my ($host,$hostname) = each(%possible_hosts)) { |
| if (grep(/\Q$hostdom{$host}\E/,@$domain)) { | if (grep(/^\Q$hostdom{$host}\E$/,@$domain)) { |
| $result{$host} = $hostname; | $result{$host} = $hostname; |
| } | } |
| } | } |