my $lat = $ref->lat;
my $long = $ref->long;
my $node = $ref->homenode;
+ my $qra = $ref->qra;
my $latlong = DXBearing::lltos($lat, $long) if $lat && $long;
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 1, $name), $DXProt::me) if $name;
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 2, $qth), $DXProt::me) if $qth;
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 3, $latlong), $DXProt::me) if $latlong;
- DXProt::broadcast_all_ak1a(DXProt::pc41($call, 4, $node), $DXProt::me) if $node;
+ if ($name) {
+ my $l = DXProt::pc41($DXProt::me, $call, 1, $name);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ }
+ if ($qth) {
+ my $l = DXProt::pc41($call, 2, $qth);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ }
+ if ($latlong) {
+ my $l = DXProt::pc41($call, 3, $latlong);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ }
+ if ($node) {
+ my $l = DXProt::pc41($call, 4, $node);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ }
+ if ($qra) {
+ my $l = DXProt::pc41($call, 5, $qra);
+ DXProt::eph_dup($l);
+ DXProt::broadcast_all_ak1a($l, $DXProt::me) ;
+ }
}
}