+ push @queries,'('.param('search').')';
+ }
+ my %cat = (body => 'D', topic => 'A', author => 'B');
+ for ('body','topic','author'){
+ if (param($_)){
+ my @words = split /\W+/,param($_);
+ my $op = param('all'.$_) ? '&' : '|';
+ my $cat = $cat{$_};
+ my $query = join " $op ", map {"$_:$cat"} @words;
+ push @queries,"($query)";
+ }
+ }
+ my $search = join ' & ', @queries;
+
+ if ($search){