From: minima <minima>
Date: Sat, 9 Jun 2001 03:21:44 +0000 (+0000)
Subject: always set flags field to here on new
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f4a1d40bb0d356f3f3d1df101d9c67d6a05b38ec;p=spider.git

always set flags field to here on new
---

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; 
 }