sub {

my $back;
my @fields = split / /, q|query bool nh mh substring so sb Art|;
foreach (@fields) {
if ($IN->param($_)) {

my @array = $IN->param($_);

if ($array[1]) {

my @tmp = $IN->param($_);
foreach my $tmp (@tmp) {
$back .= qq|$_=| . $tmp . q|&|;
}

} else {
$back .= qq|$_=| . $IN->param($_) . q|&|;
}
}
}
return $CFG->{db_cgi_url} . "/search.cgi?" . $back;
}