my $trange = $fdays ? "($fdays and $days)" : $days;
$expr .= $expr ? " and $trange" : $trange;
my $s = qq{select freq,spotcall,time,comment,spotter,spotdxcc,spotterdxcc,
my $trange = $fdays ? "($fdays and $days)" : $days;
$expr .= $expr ? " and $trange" : $trange;
my $s = qq{select freq,spotcall,time,comment,spotter,spotdxcc,spotterdxcc,