- $line = uc $line;
- $user->qra($line);
- if (!$user->lat && !$user->long) {
- my ($lat, $long) = DXBearing::qratoll($line);
+ my $qra = uc $line;
+ my $oldqra = $user->qra || "";
+ if ($oldqra ne $qra) {
+ $user->qra($qra);
+ my $s = DXProt::pc41($call, 5, $qra);
+ DXProt::eph_dup($s);
+ DXChannel::broadcast_all_nodes($s, $main::me);
+ }
+ my ($lat, $long) = DXBearing::qratoll($qra);
+ my $oldlat = $user->lat || 0;
+ my $oldlong = $user->long || 0;
+ if ($oldlat != $lat || $oldlong != $long) {