From c48d57578cb3182f900e57cfc0b829d2684147bd Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 28 Jul 2004 18:05:29 +0000
Subject: [PATCH] force nodes to *be* nodes on PC19

---
 perl/DXProt.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 8903f121..7278bd7b 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -949,13 +949,13 @@ sub handle_19
 			my $user = DXUser->get_current($origin);
 			if (!$user) {
 				$user = DXUser->new($origin);
-				$user->sort('S');
 				$user->priv(1);		# I have relented and defaulted nodes
 				$user->lockout(1);
 				$user->homenode($origin);
 				$user->node($origin);
 				$user->wantroutepc19(1);
 			}
+			$user->sort('A') unless $user->is_node;
 			$user->put;
 		}
 		$parent = $op;
@@ -988,12 +988,12 @@ sub handle_19
 		my $user = DXUser->get_current($call);
 		if (!$user) {
 			$user = DXUser->new($call);
-			$user->sort('A');
 			$user->priv(1);		# I have relented and defaulted nodes
 			$user->lockout(1);
 			$user->homenode($call);
 			$user->node($call);
 		}
+		$user->sort('A') unless $user->is_node;
 
 		# do we believe this call?
 		my $genline = "PC19^$here^$call^$conf^$ver^$_[-1]^"; 
@@ -1007,6 +1007,7 @@ sub handle_19
 			} else {
 				dbg("PCPROT: We don't believe $call on $self->{call}");
 			}
+			$user->put;
 			next;
 		}
 
-- 
2.34.1