From: minima <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.org/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]);
 			}