fixed the problem with dupes

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 9a4b97249b46ab1516e50567aad96c4ede332a2c..8972447b7f1116612c6de228d635e879ec124b2f 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -350,9 +350,9 @@ sub dup
        my $ldupkey = "X$freq|$call|$by|$text";
        my $t = DXDupe::find($ldupkey);
        return 1 if $t && $t - $main::systime > 0;
-       if ($otext) {
-               DXDupe::add($ldupkey, $main::systime+$dupage);
-               $otext = substr($otext, 0, $duplth) if length $otext > $duplth; 
+       DXDupe::add($ldupkey, $main::systime+$dupage);
+       $otext = substr($otext, 0, $duplth) if length $otext > $duplth; 
+       if ( length $otext && $otext ne $text) {
                $ldupkey = "X$freq|$call|$by|$otext";
                $t = DXDupe::find($ldupkey);
                return 1 if $t && $t - $main::systime > 0;