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

diff --git a/Changes b/Changes
index 9e06872d2c4933f6c154e0a6059f470be5da5421..140f2bb4507e0b96243fc7b3b330452ea415413f 100644 (file)
--- 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 a9be3e006d8bccef5b7d881ed59457096219ba19..41f44194005f73d2f404ead1377d220880ef45a8 100644 (file)
--- 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);
        }