- return sprintf "DX de %-7.7s%11.1f %-12.12s %-30s %s", "$dx[4]:", $dx[0], $dx[1], $dx[3], $t ;
+ my $ref = DXUser->get_current($dx[4]);
+ my $loc = $ref->qra if $ref && $ref->qra;
+ $loc = substr($ref->qra, 0, 4) if $loc;
+ $loc = "" unless $loc;
+ return sprintf "DX de %-7.7s%11.1f %-12.12s %-30s %s $loc", "$dx[4]:", $dx[0], $dx[1], $dx[3], $t ;