From 66b28245a6c87ea518b39bca0e5fb4e02b53e9b6 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 15 Dec 2005 18:47:33 +0000
Subject: [PATCH] fixing case of only negated words

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2409 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm   | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm
index c508346e27..867ab52a4f 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm
@@ -21,10 +21,12 @@
 		$term =~ s/(\pM+)//gos;
 		$self->decompose($term);
 
-		my $newterm = join('&', $self->words);
+		my $newterm = '';
+		$newterm = join('&', $self->words) if ($self->words);
 
 		if (@{$self->nots}) {
-			$newterm = '('.$newterm.')&!('. join('|', $self->nots) . ')';
+			$newterm = '('.$newterm.')&' if ($newterm);
+			$newterm .= '!('. join('|', $self->nots) . ')';
 		}
 
 		$log->debug("Compiled term is [$newterm]", DEBUG);
-- 
2.43.2