projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3b26752
)
fixed rounding errors on two digit decimal places entries for frequency
author
minima
<minima>
Sat, 7 Jan 2006 16:03:45 +0000
(16:03 +0000)
committer
minima
<minima>
Sat, 7 Jan 2006 16:03:45 +0000
(16:03 +0000)
on spots.
Changes
patch
|
blob
|
history
perl/Spot.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index e28166d3e0625b78b52d6e3d4f4e84cf45905d8a..7a72d80729fbf88c55d4487c5ddbaa38b0dc2a81 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,6
+1,7
@@
07Jan06=======================================================================
1. Fixed problem with the standalone 'showdx' program pointed out by Leo,
IZ5FSA.
07Jan06=======================================================================
1. Fixed problem with the standalone 'showdx' program pointed out by Leo,
IZ5FSA.
+2. Fixed rounding problem on entering spots as pointed out by Ron N5IN.
06Jan06=======================================================================
1. Fix problem with rcmd <call> sh/fdx
27Dec05=======================================================================
06Jan06=======================================================================
1. Fix problem with rcmd <call> sh/fdx
27Dec05=======================================================================
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 92f705523a364652c2320ef37814ef9548f42905..b4fd27c4c1f5c69c757120742f61fecc62b5b568 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-169,13
+169,13
@@
sub prepare
my @out = @_[0..4]; # just up to the spotter
# normalise frequency
my @out = @_[0..4]; # just up to the spotter
# normalise frequency
- $
_[0] = sprintf "%.1f", $_[0]
;
+ $
out[0] = sprintf "%.1f", $out[0]+0.05
;
# remove ssids and /xxx if present on spotter
$out[4] =~ s/-\d+$//o;
# remove leading and trailing spaces
# remove ssids and /xxx if present on spotter
$out[4] =~ s/-\d+$//o;
# remove leading and trailing spaces
- $
_[3] = unpad($_
[3]);
+ $
out[3] = unpad($out
[3]);
# add the 'dxcc' country on the end for both spotted and spotter, then the cluster call
# add the 'dxcc' country on the end for both spotted and spotter, then the cluster call