From cefda30169ac53e06d788528b38c962dcad7df48 Mon Sep 17 00:00:00 2001
From: minima <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