undo rounding change

diff --git a/Changes b/Changes
index b94c786d703be1e13509460d6b7a210d6cdd1df1..47dd017cd5801bd08c1f26dbe4e47ef311412a18 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+14Jan06=======================================================================
+1. undo frequency rounding change, it causes more problems than it solves.
 11Jan06=======================================================================
 1. Fixed problem with badspotters doing ann/full as pointed out by Luigi 
 IK5ZUK.

diff --git a/perl/DXXml/Ping.pm b/perl/DXXml/Ping.pm
index 0fc4426a771ea39ba7752d5f94684a9ef139a526..21662dae5a7a009a885c466d46e4c3dc2e19025f 100644 (file)
--- a/perl/DXXml/Ping.pm
+++ b/perl/DXXml/Ping.pm
@@ -66,7 +66,6 @@ sub add
        $self->{u} = $from;
        $self->{'-via'} = $via if $via && DXChannel::get($via);
        $self->{o} = $main::mycall;
-       $self->{id} = $self->nextid;
        $self->route($dxchan);
 
        push @$ref, $self;

diff --git a/perl/Spot.pm b/perl/Spot.pm
index b4fd27c4c1f5c69c757120742f61fecc62b5b568..5ea169f2f48021be9b6d37224feb32dc7737e63e 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -169,7 +169,7 @@ sub prepare
        my @out = @_[0..4];      # just up to the spotter
 
        # normalise frequency
-       $out[0] = sprintf "%.1f", $out[0]+0.05;
+       $out[0] = sprintf "%.1f", $out[0];
   
        # remove ssids and /xxx if present on spotter
        $out[4] =~ s/-\d+$//o;