projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
0ff0706
)
tidy up PC41 handling of qra locators
author
minima
<minima>
Thu, 27 Jul 2000 12:50:52 +0000
(12:50 +0000)
committer
minima
<minima>
Thu, 27 Jul 2000 12:50:52 +0000
(12:50 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 5133d9bcd12a0810ed28cd0cf916a1f525ff3e3a..5ba2657118a470c03fb2653e614df7e94c9b036b 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-697,9
+697,7
@@
sub normal
my ($lat, $long) = DXBearing::stoll($field[3]);
$user->lat($lat);
$user->long($long);
my ($lat, $long) = DXBearing::stoll($field[3]);
$user->lat($lat);
$user->long($long);
- my $qra = $user->qra || DXBearing::lltoqra($lat, $long);
- $qra = DXBearing::lltoqra($lat, $long) unless $qra && DXBearing::is_qra($qra);
- $user->qra($qra) if $qra ne $user->qra;
+ $user->qra(DXBearing::lltoqra($lat, $long)) unless $user->qra && DXBearing::is_qra($user->qra);
} elsif ($field[2] == 4) {
$user->homenode($field[3]);
}
} elsif ($field[2] == 4) {
$user->homenode($field[3]);
}