is_qra is_freq is_digits is_pctext is_pcflag insertitem deleteitem
is_prefix dd is_ipaddr $pi $d2r $r2d localdata localdata_mv
diffms _diffms _diffus difft parraydifft is_ztime basecall
+ normalise_call
);
my ($r) = $_[0] =~ m|^(?:[\w\d]+/)?([\w\d]+).*$|;
return $r;
}
+
+sub normalise_call
+{
+ my ($c, $ssid) = $_[0] =~ m|^((?:[\w\d]+/)?[\d\w]+(?:/[\w\d]+)?)-?(\d+)?$|;
+ my $ncall = $c;
+ $ssid += 0;
+ $ncall .= "-$ssid" if $ssid;
+ return $ncall;
+
+}