[Koha-cvs] koha/C4 AuthoritiesMarc.pm [R_2-2-7-1]
paul poulain
paul at koha-fr.org
Tue Mar 6 16:14:23 CET 2007
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.
#
More information about the Koha-cvs
mailing list