merged back NEW_ROUTE into trunk

[spider.git] / cmd / set / qra.pl

diff --git a/cmd/set/qra.pl b/cmd/set/qra.pl
index 1bdc1cecce5adfe3cf535129f41982a032e50750..484666ca953efa3e638fdd077417f459823676b5 100644 (file)
--- a/cmd/set/qra.pl
+++ b/cmd/set/qra.pl
@@ -26,7 +26,9 @@ if ($user) {
                $user->lat($lat);
                $user->long($long);
                my $s = DXBearing::lltos($lat, $long);
-               DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $s), $DXProt::me);
+               my $l = DXProt::pc41($call, 3, $s);
+               DXProt::eph_dup($l);
+               DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
        }
        
        $user->put();