kmain163_contains_phrase_#_works

    Cross-port: a3cf362

Conflicts:
	Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
index d9f5752..838679d 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
@@ -11,6 +11,7 @@ use OpenILS::Utils::CStoreEditor;
 use OpenSRF::Utils::Logger qw($logger);
 use Data::Dumper;
 my $U = 'OpenILS::Application::AppUtils';
+use OpenSRF::Utils::Logger qw/$logger/;
 
 my ${spc} = ' ' x 2;
 sub subquery_callback {
@@ -84,7 +85,7 @@ sub quote_phrase_value {
     my $self = shift;
     my $value = shift;
     my $wb = shift;
-
+    
     my $left_anchored = '';
     my $right_anchored = '';
     my $left_wb = 0;
@@ -100,7 +101,6 @@ sub quote_phrase_value {
 
     $value =~ s/^[*\^]//   if $left_anchored;
     $value =~ s/[*\$]$//  if $right_anchored;
-    $value = quotemeta($value);
     $value = '^' . $value if $left_anchored eq '^';
     $value = "$value\$"   if $right_anchored eq '$';
     $value = '[[:<:]]' . $value if $left_wb && !$left_anchored;