From: minima Date: Thu, 27 Jul 2000 12:50:52 +0000 (+0000) Subject: tidy up PC41 handling of qra locators X-Git-Tag: R_1_43~29 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=cefda30169ac53e06d788528b38c962dcad7df48;p=spider.git tidy up PC41 handling of qra locators --- 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]); }