From e21257f7fb3b92795787575094e69a7cd804ce55 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Thu, 11 Feb 1999 19:57:45 +0000
Subject: [PATCH] added some more isolation

---
 perl/DXMsg.pm  | 1 +
 perl/DXProt.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index f10debfe..76048eee 100644
--- 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 e1c29843..d1ac6cf8 100644
--- 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);
-- 
2.34.1