added some more isolation

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index f10debfe8818d4f2c567e47c30e859df4a580ea8..76048eee9c30873fb7b07848c9a6be950fc3324f 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -528,6 +528,7 @@ sub queue_msg
                                next if $noderef->call eq $main::mycall;
                                next if $noderef->isolate;               # maybe add code for stuff originated here?
                                next if grep { $_ eq $noderef->call } @{$ref->{gotit}};
+                               next if DXUser->get( ${$ref->{gotit}}[0] )->isolate;  # is the origin isolated?
                                
                                # if we are here we have a node that doesn't have this message
                                $ref->start_msg($noderef) if !get_busy($noderef->call)  && $noderef->state eq 'normal';

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index e1c29843a0f3b8e389893e994c293979d7e5469e..d1ac6cf8218cb54ac39330935141eeaf5b1fe512 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -695,7 +695,7 @@ sub send_local_config
                # 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 && !$_->{isolate} } @nodes;
+               @nodes = grep { $_->dxchan != $self && !$_->dxchan->{isolate} } @nodes;
        }
 
        my @s = $me->pc19(@nodes);