[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.65,1.66
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.65,1.66 |
Date: |
Fri, 17 Oct 2003 03:02:59 -0700 |
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv26914/C4
Modified Files:
Biblio.pm
Log Message:
Indexing only words longer than 2 letters. Was >=2 before, & 2 letters words
usually means nothing.
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.65
retrieving revision 1.66
diff -C2 -r1.65 -r1.66
*** Biblio.pm 14 Oct 2003 09:45:29 -0000 1.65
--- Biblio.pm 17 Oct 2003 10:02:56 -0000 1.66
***************
*** 2,5 ****
--- 2,8 ----
# $Id$
# $Log$
+ # Revision 1.66 2003/10/17 10:02:56 tipaul
+ # Indexing only words longer than 2 letters. Was >=2 before, & 2 letters
words usually means nothing.
+ #
# Revision 1.65 2003/10/14 09:45:29 tipaul
# adding rebuildnonmarc.pl script : run this script when you change a link
between marc and non MARC DB. It rebuilds the non-MARC DB (long operation)
***************
*** 1193,1197 ****
foreach my $word (@words) {
# we record only words longer than 2 car and not in stopwords hash
! if (length($word)>1 and !($stopwords->{uc($word)})) {
$sth->execute($bibid,$tag,$tagorder,$subfieldid,$subfieldorder,$word,$word);
if ($sth->err()) {
--- 1196,1200 ----
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)})) {
$sth->execute($bibid,$tag,$tagorder,$subfieldid,$subfieldorder,$word,$word);
if ($sth->err()) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Biblio.pm,1.65,1.66,
Paul POULAIN <=