X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0280793756c7556972f435bd897e64769adbe5ae;hb=43d1c9f4ff26d0ee9afbb54e7fb90701a9d4e694;hp=0a1c83ddbce0278dbac19abfa5fc76d4678096c0;hpb=fb519b2b1efc9e9d07e56244ac8a57295e72338d;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 0a1c83dd..02807937 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -247,7 +247,7 @@ sub normal
 			my $user = DXUser->get_current($spot[4]);
 			if ($user) {
 				my $qra = $user->qra;
-				if (!DXBearing::is_qra) {
+				unless ($qra && DXBearing::is_qra($qra)) {
 					my $lat = $user->lat;
 					my $long = $user->long;
 					if (defined $lat && defined $long) {