From: minima <minima>
Date: Mon, 11 Jun 2007 10:27:14 +0000 (+0000)
Subject: truncate qrg for spot dupes
X-Git-Tag: 1.54~2
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=bca4b6588ad991fae127c4fc32692068fa266175

truncate qrg for spot dupes
---

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 4d87be37..4f9f18ab 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -394,7 +394,8 @@ sub dup
 	# remove SSID or area
 	$by =~ s|[-/]\d+$||;
 	
-	$freq = sprintf "%.1f", $freq;       # normalise frequency
+#	$freq = sprintf "%.1f", $freq;       # normalise frequency
+	$freq = int $freq;       # normalise frequency
 	$call = substr($call, 0, $maxcalllth) if length $call > $maxcalllth;
 
 	chomp $text;