phrase search fix: escape quotes in hidden variables

[webpac] / WebPac.pm

diff --git a/WebPac.pm b/WebPac.pm
index 7aa084c..aaeaa8e 100644 (file)
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -186,6 +186,7 @@ sub make_pager_vars {
        foreach my $v (@persist_vars) {
                foreach my $val ($q->param($v)) {
                        next if (! $val || $val eq '');
+                       $val =~ s/"/&quote;/g;
                        $hidden_vars .= '<input type="hidden" name="'.$v.'" value="'.$val.'"/>'."\n";
                        $hidden_search .= '<input type="hidden" name="'.$v.'" value="'.$val.'"/>'."\n" if ($v ne "rm");
                }