fix phrase search ("something else")

git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@677 13eb9ef6-21d5-0310-b721-a9d68796d827

diff --git a/WebPac.pm b/WebPac.pm
index a8267e7..4af84d8 100644 (file)
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -273,6 +273,8 @@ sub show_results_list {
                push @url_params_persist,"f$i=".$q->url_param("f$i") if ($persist);
 
                foreach my $v ($q->url_param("v$i")) {
+                       # escape quotes so that phrase search work
+                       $v =~ s/"/%22/g;
                        push @url_params,"v$i=$v";
                        push @url_params_persist,"v$i=$v" if ($persist);
                }