From: djk <djk>
Date: Mon, 8 Nov 1999 16:01:41 +0000 (+0000)
Subject: fixed set location so that it puts the qra locator in the right place
X-Git-Tag: R_1_34~4
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e6971e33c8757e1e952922c44903707379dd100;p=spider.git

fixed set location so that it puts the qra locator in the right place
---

diff --git a/Changes b/Changes
index 9e06872d..140f2bb4 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,8 @@
 08Nov99=======================================================================
 1. added spoofing (mk1 version) for sysops, useful for those little jobs like
 reseting a user's qra locator and such like "spoof g7brn set/qra jo02lq".
+2. fixed set/location so it stores the qra locator in the qra locator slot, 
+NOT the lat/long (who wrote this stuff...?).
 07Nov99=======================================================================
 1. reduced the amount of stuff compared against for dup announces.
 2. Check the regex for DK0WCY announces produces results before storing it as
diff --git a/cmd/set/location.pl b/cmd/set/location.pl
index a9be3e00..41f44194 100644
--- a/cmd/set/location.pl
+++ b/cmd/set/location.pl
@@ -24,8 +24,8 @@ if ($user) {
 	$user->lat($lat);
 	$user->long($long);
 	DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $line), $DXProt::me);
-	if (!$user->qra) {
-		my $qra = DXBearing::lltos($lat, $long);
+	unless ($user->qra && DXBearing::is_qra($user->qra) ) {
+		my $qra = DXBearing::lltoqra($lat, $long);
 		$user->qra($qra);
 	}