From e86180d292418bc31c2adea85cf7a2599057b6f8 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Mon, 25 Sep 2006 16:37:55 +0000 Subject: [PATCH] Escape double quotes in query. --- web/htdocs/raw.html | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/web/htdocs/raw.html b/web/htdocs/raw.html index dcb605f..063f9b6 100644 --- a/web/htdocs/raw.html +++ b/web/htdocs/raw.html @@ -1,4 +1,4 @@ -%# $Id: raw.html,v 1.2 2006-09-20 13:19:53 mike Exp $ +%# $Id: raw.html,v 1.3 2006-09-25 16:37:55 mike Exp $ <%args> $id @@ -8,7 +8,9 @@ use ZOOM; <%perl> my $conn = new ZOOM::Connection("localhost:3313/IR-Explain---1"); $conn->option(elementSetName => "zeerex"); -my $query = qq[rec.id="$id"]; +my $qid = $id; +$qid =~ s/"/\\"/g; +my $query = qq[rec.id="$qid"]; my $rs = $conn->search(new ZOOM::Query::CQL($query)); my $n = $rs->size(); if ($n == 0) { -- 1.7.10.4