From af21bbd65a840d13a425c82bf2163f7813ac9b4a Mon Sep 17 00:00:00 2001 From: Joshua Ferraro Date: Wed, 31 Oct 2007 19:57:34 -0500 Subject: [PATCH] fix to rightANDlefttruncation Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Search.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/C4/Search.pm b/C4/Search.pm index d611e152da..bfe372a0ee 100644 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -583,9 +583,8 @@ sub _add_truncation { $operand =~ s/^ //g; my @wordlist= split (/\s/,$operand); foreach my $word (@wordlist){ - #warn "WORD: $word"; - if (index($word,"*")==0 && index($word,"*",1)==length($word)-2){ - $word=~s/\*//; + if (index($word,"*")==0 && index($word,"*",1)==length($word)-1){ + $word=~s/\*//g; push @rightlefttruncated,$word; } elsif(index($word,"*")==0 && index($word,"*",1)<0){ @@ -763,7 +762,7 @@ sub buildQuery { # Handle Truncation my ($nontruncated,$righttruncated,$lefttruncated,$rightlefttruncated,$regexpr); ($nontruncated,$righttruncated,$lefttruncated,$rightlefttruncated,$regexpr) = _add_truncation($operand,$index); - #warn "TRUNCATION: NON:@$nontruncated RIGHT:@$righttruncated LEFT:@$lefttruncated RIGHTLEFT:@$rightlefttruncated REGEX:@$regexpr"; + warn "TRUNCATION: NON:@$nontruncated RIGHT:@$righttruncated LEFT:@$lefttruncated RIGHTLEFT:@$rightlefttruncated REGEX:@$regexpr"; # Handle Stemming my $stemmed_operand; -- 2.39.2