+ my $spotted_cc = (Prefix::cty_data($spotted))[5];
+ my $spotter_cc = (Prefix::cty_data($_[1]))[5];
+ $ref = DXUser::get_current($_[1]);
+ if ($ref) {
+ my $loc = $ref->qra || '';
+ $loc_spotter = substr($loc, 0, 4) if $loc;
+ }
+ my $text = $_[4] || '';
+ $text =~ s/\^/~/g;