[Koha-cvs] koha/C4 AuthoritiesMarc.pm [R_2-2-7-1]

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		R_2-2-7-1
Changes by:	paul poulain <tipaul>	07/03/06 15:14:23

Modified files:
	C4             : AuthoritiesMarc.pm 

Log message:
	bugfix for indexing 2 letter words correctly

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/AuthoritiesMarc.pm?cvsroot=koha&only_with_tag=R_2-2-7-1&r1=1.9.2.24.2.1&r2=1.9.2.24.2.2

Patches:
Index: AuthoritiesMarc.pm
===================================================================
RCS file: /sources/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.9.2.24.2.1
retrieving revision 1.9.2.24.2.2
diff -u -b -r1.9.2.24.2.1 -r1.9.2.24.2.2
--- AuthoritiesMarc.pm	12 Feb 2007 10:05:13 -0000	1.9.2.24.2.1
+++ AuthoritiesMarc.pm	6 Mar 2007 15:14:22 -0000	1.9.2.24.2.2
@@ -922,7 +922,7 @@
 			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";
@@ -1348,8 +1348,11 @@
 
 =cut
 
-# $Id: AuthoritiesMarc.pm,v 1.9.2.24.2.1 2007/02/12 10:05:13 toins Exp $
+# $Id: AuthoritiesMarc.pm,v 1.9.2.24.2.2 2007/03/06 15:14:22 tipaul Exp $
 # $Log: AuthoritiesMarc.pm,v $
+# 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.
 #