From cefda30169ac53e06d788528b38c962dcad7df48 Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 27 Jul 2000 12:50:52 +0000 Subject: [PATCH] tidy up PC41 handling of qra locators --- perl/DXProt.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 5133d9bc..5ba26571 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -697,9 +697,7 @@ sub normal my ($lat, $long) = DXBearing::stoll($field[3]); $user->lat($lat); $user->long($long); - my $qra = $user->qra || DXBearing::lltoqra($lat, $long); - $qra = DXBearing::lltoqra($lat, $long) unless $qra && DXBearing::is_qra($qra); - $user->qra($qra) if $qra ne $user->qra; + $user->qra(DXBearing::lltoqra($lat, $long)) unless $user->qra && DXBearing::is_qra($user->qra); } elsif ($field[2] == 4) { $user->homenode($field[3]); } -- 2.43.0