fixing NOT queries
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 6 May 2005 16:33:50 +0000 (16:33 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 6 May 2005 16:33:50 +0000 (16:33 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@676 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm

index 43e0ea6..deaff9e 100644 (file)
@@ -17,7 +17,7 @@
                my $newterm = join('&', $self->words);
 
                if (@{$self->nots}) {
-                       $newterm = '('.$newterm.')&('. join('|', $self->nots) . ')';
+                       $newterm = '('.$newterm.')&!('. join('|', $self->nots) . ')';
                }
 
                $log->debug("Compiled term is [$newterm]", DEBUG);