version 1.39, 2016/10/30 01:45:31
|
version 1.40, 2017/08/21 15:25:55
|
Line 96 sub handler {
|
Line 96 sub handler {
|
if ($udom) { |
if ($udom) { |
$domdesc = &Apache::lonnet::domain($udom,'description'); |
$domdesc = &Apache::lonnet::domain($udom,'description'); |
if ($domdesc) { |
if ($domdesc) { |
|
$otherinst = 1; |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
my %servers = &Apache::lonnet::internet_dom_servers($udom); |
my %servers = &Apache::lonnet::internet_dom_servers($udom); |
unless (exists($servers{$server})) { |
foreach my $server (keys(%servers)) { |
$otherinst = 1; |
if (grep(/^\Q$server\E$/,@ids)) { |
|
$otherinst = 0; |
|
last; |
|
} |
} |
} |
} |
} |
} |
} |