search over all with quoting

[webpac2] / vhost / webpac2.cgi

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 9d086a0..12ca195 100755 (executable)
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -204,7 +204,7 @@ if ( my $search = param('search') ) {
                my @only_input = param('only_input');
                push @search, '(' . join(') OR (', map { "input=$_" } @only_input) . ')' if @only_input;
        } else {
-               push @search, "xml=$search";
+               push @search, "all=\"$search\"";
        }
 
        my $q = '(' . join(') AND (', @search) . ')';