-if ($ll) {
- my ($llat, $llong) = DXBearing::stoll($line);
- return (1, "QRA $line = " . DXBearing::lltoqra($llat, $llong));
-}
-
-#print "$lat $long\n";
-
-my $l = uc $list[0];
-my $f;
-
-if (@list > 1) {
- $f = $l;
- $f .= 'MM' if $f =~ /^[A-Z][A-Z]\d\d$/;
- ($lat, $long) = DXBearing::qratoll($f);
- $fll = DXBearing::lltos($lat, $long);
- #print "$lat $long\n";
-
- return (1, $self->msg('qrae2', $list[1])) unless (DXBearing::is_qra($list[1]) || $list[1] =~ /^[A-Za-z][A-Za-z]\d\d$/);
- $l = uc $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 is_qra($f);
+($lat, $long) = DXBearing::qratoll($f);