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