From 06cf973726ecfc228d68bc82b63feb026d897a68 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 27 Aug 2001 21:40:23 +0000 Subject: [PATCH] make rej/wwv and rej/wcy work --- Changes | 2 ++ cmd/reject/wcy.pl | 2 +- cmd/reject/wwv.pl | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 3b4d5d57..cf8907bd 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +27Aug01======================================================================= +1. make rej/wwv and rej/wcy work 26Aug01======================================================================= 1. make all newly learned nodes locked out by default. 2. add lock_nodes.pl which locks out all the nodes in the user file whose diff --git a/cmd/reject/wcy.pl b/cmd/reject/wcy.pl index a57d02c4..85ecf3b0 100644 --- a/cmd/reject/wcy.pl +++ b/cmd/reject/wcy.pl @@ -8,7 +8,7 @@ my ($self, $line) = @_; my $type = 'reject'; -my $sort = 'ann'; +my $sort = 'wcy'; my ($r, $filter, $fno) = $WCY::filterdef->cmd($self, $sort, $type, $line); return (0, $r ? $filter : $self->msg('filter1', $fno, $filter->{name})); diff --git a/cmd/reject/wwv.pl b/cmd/reject/wwv.pl index 2af46847..baee52fc 100644 --- a/cmd/reject/wwv.pl +++ b/cmd/reject/wwv.pl @@ -8,7 +8,7 @@ my ($self, $line) = @_; my $type = 'reject'; -my $sort = 'ann'; +my $sort = 'wwv'; my ($r, $filter, $fno) = $Geomag::filterdef->cmd($self, $sort, $type, $line); return (0, $r ? $filter : $self->msg('filter1', $fno, $filter->{name})); -- 2.43.0