X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fqra.pl;h=bea5504769ccc8525ccef81a228dba8c435bc54e;hb=78cf2dcb9be8128af7f8dc5ae37540c9c53c6057;hp=48bd249f2e83b61348e5e1ed1f7c6e20f7c9342c;hpb=cc75f4ffe229e8ff381828f88a68c89cec818788;p=spider.git

diff --git a/cmd/show/qra.pl b/cmd/show/qra.pl
index 48bd249f..bea55047 100644
--- a/cmd/show/qra.pl
+++ b/cmd/show/qra.pl
@@ -16,8 +16,7 @@ my @out;
 $line = uc $line;
 
 # convert a lat/long into a qra locator if we see a pattern looking like a lat/long
-if ($line =~ /^\d+\s+\d+\s*[NS]\s+\d+\s+\d+\s*[EW]/) {
-	$line =~ s/(\d)([NSEW])/$1 $2/g;
+if (is_latlong($line)) {
 	my ($llat, $llong) = DXBearing::stoll(uc $line);
 	return (1, "QRA $line = " . DXBearing::lltoqra($llat, $llong)); 
 }
@@ -37,13 +36,13 @@ unshift @list, DXBearing::lltoqra($lat, $long) unless @list > 1;
 # check from qra
 my $f = uc $list[0];
 $f .= 'MM' if $f =~ /^[A-Z][A-Z]\d\d$/;
-return (1, $self->msg('qrae2', $f)) unless DXBearing::is_qra($f);
+return (1, $self->msg('qrae2', $f)) unless is_qra($f);
 ($lat, $long) = DXBearing::qratoll($f);
 
 # check to qra
 my $l = uc $list[1];
 $l .= 'MM' if $l =~ /^[A-Z][A-Z]\d\d$/;
-return (1, $self->msg('qrae2', $l)) unless DXBearing::is_qra($l);
+return (1, $self->msg('qrae2', $l)) unless is_qra($l);
 my ($qlat, $qlong) = DXBearing::qratoll($l);
 
 # generate alpha lat/long