From 9516ccc97c92ca802204b059a9a4baab04ff3b65 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 20 Jan 2003 16:48:35 +0000
Subject: [PATCH] changed display for nodes in sh/route and sh/st

---
 Changes             | 1 +
 cmd/show/route.pl   | 2 +-
 cmd/show/station.pl | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index ecd431bf..658b403c 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@
 1. changed sh/c so that, by default, it only shows the caller's country nodes
 sh/c all will show the old style full list. "sh/c sk gb" will show the config
 of all the GB and SK nodes.
+2. changed sh/stat and sh/route for nodes
 19Jan03=======================================================================
 1. I have made a fundemental change to the way PC19s are dealt with as a 
 result of the discussions on the mailing list. From now on, only nodes that
diff --git a/cmd/show/route.pl b/cmd/show/route.pl
index 45214003..dda65bd9 100644
--- a/cmd/show/route.pl
+++ b/cmd/show/route.pl
@@ -16,7 +16,7 @@ my $l;
 foreach $l (@list) {
 	my $ref = Route::get($l);
 	if ($ref) {
-		my $parents = join ',', $ref->parents;
+		my $parents = $ref->isa('Route::Node') ? $l : join(',', $ref->parents);
 		my $dxchan = $ref->dxchan;
 		push @out, $self->msg('route', $l, $parents,  $dxchan->call);
 	} else {
diff --git a/cmd/show/station.pl b/cmd/show/station.pl
index d9f2b9d1..68a14375 100644
--- a/cmd/show/station.pl
+++ b/cmd/show/station.pl
@@ -70,7 +70,7 @@ if (@f <= 2 && uc $f[0] eq 'ALL') {
 			}
 			
 			my $cref = Route::get($call);
-			my $seek = join(',', $cref->parents) if $cref;
+			my $seek = $cref->isa('Route::Node') ? $call : join(',', $ref->parents) if $cref;
 
 			if ($seek) {
 				push @out, "User         : $call (at $seek)";
-- 
2.43.0