return if $pcno == 27;
# broadcast to the eager users
- broadcast_users("WWV de $field[7] <$field[2]>: SFI=$sfi, K=$k, A=$i, $field[6]", 'wwv', $wwv );
+ broadcast_users("WWV de $field[7] <$field[2]>: SFI=$sfi, A=$k, K=$i, $field[6]", 'wwv', $wwv );
last SWITCH;
}
@nodes = (DXCluster->get_exact($main::mycall));
} else {
# create a list of all the nodes that are not connected to this connection
- @nodes = DXNode::get_all();
+ # and are not themselves isolated, this to make sure that isolated nodes
+ # don't appear outside of this node
+ @nodes = DXNode::get_all();
@nodes = grep { $_->dxchan != $self } @nodes;
+ @nodes = grep { !($_->dxchan && $_->dxchan->isolate) } @nodes;
}
my @s = $me->pc19(@nodes);