From f4a1d40bb0d356f3f3d1df101d9c67d6a05b38ec Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 9 Jun 2001 03:21:44 +0000
Subject: [PATCH] always set flags field to here on new

---
 cmd/show/configuration.pl | 2 +-
 perl/Route.pm             | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/cmd/show/configuration.pl b/cmd/show/configuration.pl
index f563b6ae..bbfdd12c 100644
--- a/cmd/show/configuration.pl
+++ b/cmd/show/configuration.pl
@@ -46,7 +46,7 @@ if ($list[0] && $list[0] =~ /^NOD/) {
 	foreach $node (@nodes) {
 		next if scalar @list && !grep $node->call =~ /^$_/, @list;
 		my $call = $node->call;
-		$call = "($call)" if $node->here == 0;
+		$call = "($call)" unless $node->here;
 		@l = ();
 		push @l, $call;
 		@val = sort $node->users;
diff --git a/perl/Route.pm b/perl/Route.pm
index b5c02f09..e5d89828 100644
--- a/perl/Route.pm
+++ b/perl/Route.pm
@@ -58,6 +58,7 @@ sub new
 		$self->{itu} = $dxcc[1]->itu;
 		$self->{cq} = $dxcc[1]->cq;						
 	}
+	$self->{flags} = here(1);
 	
 	return $self; 
 }
-- 
2.34.1