From bca4b6588ad991fae127c4fc32692068fa266175 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 11 Jun 2007 10:27:14 +0000
Subject: [PATCH] truncate qrg for spot dupes

---
 perl/Spot.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
2.34.1