[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.
 #