my ($doqsl, $doiota, $doqra);
while ($f = shift @list) { # next field
my ($doqsl, $doiota, $doqra);
while ($f = shift @list) { # next field
# print "r0: $r[0] r1: $r[1]\n";
my @fr = Bands::get_freq($r[0], $r[1]);
if (@fr) { # yup, get rid of extranous param
# print "r0: $r[0] r1: $r[1]\n";
my @fr = Bands::get_freq($r[0], $r[1]);
if (@fr) { # yup, get rid of extranous param
- $expr .= "\$f4 =~ m{$spotter}o";
+ $expr .= "\$f4 =~ m{\U$spotter}";
+ $hint .= " && " if $hint;
+ $spotter =~ s/[\^\$]//g;
+ $hint .= "m{\U$spotter}";
-my @res = Spot::search($expr, $fromday, $today, $from, $to);
+my @res = Spot::search($expr, $fromday, $today, $from, $to, $hint);