From f68386b23d90f5cba81a6cffe213226dc21f43e5 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 20 Dec 2012 12:40:23 +0000 Subject: [PATCH] cql_quote() encloses strings that contain backslash in quotes. --- lib/ZOOM/IRSpy/Utils.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/ZOOM/IRSpy/Utils.pm b/lib/ZOOM/IRSpy/Utils.pm index 53e53fc..0583662 100644 --- a/lib/ZOOM/IRSpy/Utils.pm +++ b/lib/ZOOM/IRSpy/Utils.pm @@ -163,7 +163,7 @@ sub cql_quote { my($term) = @_; $term =~ s/([""\\*?])/\\$1/g; - $term = qq["$term"] if $term =~ /[\s""\/]/; + $term = qq["$term"] if $term =~ /[\s""\/\\]/; return $term; } @@ -180,8 +180,7 @@ sub cql_target { $id = $protocol; } - return "rec.id=" . cql_quote($id); - #return "rec.id_raw=" . cql_quote($id); + return "rec.id==" . cql_quote($id); } -- 1.7.10.4