From e885eeb6dc5456e2fd5a17dc48dac96e5a734583 Mon Sep 17 00:00:00 2001 From: tipaul Date: Tue, 6 Mar 2007 15:14:22 +0000 Subject: [PATCH] bugfix for indexing 2 letter words correctly --- C4/AuthoritiesMarc.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index e85c6890c2..5fa0456705 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -922,7 +922,7 @@ sub AUTHaddword { values (?,concat(?,?),?,?,?,soundex(?))"); foreach my $word (@words) { # we record only words longer than 2 car and not in stopwords hash - if (length($word)>2 and !($stopwords->{uc($word)})) { + if (length($word)>=2 and !($stopwords->{uc($word)})) { $sth->execute($authid,$tag,$subfieldid,$tagorder,$subfieldorder,$word,$word); if ($sth->err()) { warn "ERROR ==> insert into auth_word (authid, tagsubfield, tagorder, subfieldorder, word, sndx_word) values ($authid,concat($tag,$subfieldid),$tagorder,$subfieldorder,$word,soundex($word))\n"; @@ -1350,6 +1350,9 @@ Paul POULAIN paul.poulain@free.fr # $Id$ # $Log$ +# Revision 1.9.2.24.2.2 2007/03/06 15:14:22 tipaul +# bugfix for indexing 2 letter words correctly +# # Revision 1.9.2.24.2.1 2007/02/12 10:05:13 toins # Commiting BUG FIX for 2.2.7.1. #