- my $checkfilter;
- $checkfilter = qq (
- if (\@s < 9) {
- my \@a = (Prefix::cty_data(\$s[1]))[1..3];
- my \@b = (Prefix::cty_data(\$s[4]))[1..3];
- push \@s, \@a[0,1], \@b[0,1], \$a[2], \$a[2];
- } else {
- \$s[12] ||= ' ';
- \$s[13] ||= ' ';
- }
- my (\$filter, \$hops) = \$dxchan->{spotsfilter}->it(\@s);
- next unless (\$filter);
- ) if $dxchan;
- $checkfilter ||= ' ';
-
- dbg("hint='$hint', expr='$expr', spotno=$from-$to, day=$dayfrom-$dayto\n") if isdbg('search');
+
+ dbg("Spot::search hint='$hint', expr='$expr', spotno=$from-$to, day=$dayfrom-$dayto\n") if isdbg('search');