From f4a1d40bb0d356f3f3d1df101d9c67d6a05b38ec Mon Sep 17 00:00:00 2001 From: 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.43.0