added mycall to locally generated spots in spot database

diff --git a/cmd/dx.pl b/cmd/dx.pl
index 41c71c07ffaf9cb43f954651cb9a86dc3cbdc9f9..3a3d6cf09e5a189709a163f30fd41850ec748aba 100644 (file)
--- a/cmd/dx.pl
+++ b/cmd/dx.pl
@@ -81,7 +81,7 @@ return (1, @out) if !$valid;
 $line =~ s/\^/:/og;
 
 # Store it here
-if (Spot::add($freq, $spotted, $main::systime, $line, $spotter)) {
+if (Spot::add($freq, $spotted, $main::systime, $line, $spotter, $main::mycall)) {
        # send orf to the users
        my $buf = Spot::formatb($freq, $spotted, $main::systime, $line, $spotter);
        DXProt::broadcast_users($buf, 'dx', $buf);

diff --git a/perl/Spot.pm b/perl/Spot.pm
index efdf16ed4edcb3947ca144103c49f7da84db66f8..3bc643cbb668b89c3340acaba70104e108ca655d 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -57,7 +57,6 @@ sub add
        push @out, (@dxcc > 0 ) ? $dxcc[1]->dxcc() : 0;
        push @out, $spot[5];
        
-
        my $buf = join("\^", @out);
 
        # compare dates to see whether need to open another save file (remember, redefining $fp