[Koha-cvs] CVS: koha/C4 Biblio.pm,1.58,1.59

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv32552/C4

Modified Files:
        Biblio.pm 
Log Message:
fix for 583 (values in marc_word table should have quotation marks, etc, 
stripped)

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -C2 -r1.58 -r1.59
*** Biblio.pm   6 Aug 2003 12:54:52 -0000       1.58
--- Biblio.pm   4 Sep 2003 10:17:07 -0000       1.59
***************
*** 2,5 ****
--- 2,8 ----
  # $Id$
  # $Log$
+ # Revision 1.59  2003/09/04 10:17:07  tipaul
+ # fix for 583 (values in marc_word table should have quotation marks, etc, 
stripped)
+ #
  # Revision 1.58  2003/08/06 12:54:52  tipaul
  # fix for publicationyear : extracting numeric value from MARC string, like 
for copyrightdate.
***************
*** 642,646 ****
        foreach my $subfieldvalue (@subfieldvalues) {
                if (length($subfieldvalue)>255) {
!               #       $dbh->do("lock tables marc_blob_subfield WRITE, 
marc_subfield_table WRITE");
                        my $sth=$dbh->prepare("insert into marc_blob_subfield 
(subfieldvalue) values (?)");
                        $sth->execute($subfieldvalue);
--- 645,649 ----
        foreach my $subfieldvalue (@subfieldvalues) {
                if (length($subfieldvalue)>255) {
!                       $dbh->do("lock tables marc_blob_subfield WRITE, 
marc_subfield_table WRITE");
                        my $sth=$dbh->prepare("insert into marc_blob_subfield 
(subfieldvalue) values (?)");
                        $sth->execute($subfieldvalue);
***************
*** 653,657 ****
                                warn "ERROR ==> insert into marc_subfield_table 
(bibid,tag,tagorder,tag_indicator,subfieldcode,subfieldorder,subfieldvalue) 
values 
($bibid,$tagid,$tagorder,$tag_indicator,$subfieldcode,$subfieldorder,$subfieldvalue)\n";
                        }
!       #       $dbh->do("unlock tables");
                } else {
                        my $sth=$dbh->prepare("insert into marc_subfield_table 
(bibid,tag,tagorder,tag_indicator,subfieldcode,subfieldorder,subfieldvalue) 
values (?,?,?,?,?,?,?)");
--- 656,660 ----
                                warn "ERROR ==> insert into marc_subfield_table 
(bibid,tag,tagorder,tag_indicator,subfieldcode,subfieldorder,subfieldvalue) 
values 
($bibid,$tagid,$tagorder,$tag_indicator,$subfieldcode,$subfieldorder,$subfieldvalue)\n";
                        }
!               $dbh->do("unlock tables");
                } else {
                        my $sth=$dbh->prepare("insert into marc_subfield_table 
(bibid,tag,tagorder,tag_indicator,subfieldcode,subfieldorder,subfieldvalue) 
values (?,?,?,?,?,?,?)");
***************
*** 1162,1166 ****
  # removes stopwords
      my ($dbh,$bibid,$tag,$tagorder,$subfieldid,$subfieldorder,$sentence) 
address@hidden;
!     $sentence =~ s/(\.|\?|\:|\!|\'|,|\-)/ /g;
      my @words = split / /,$sentence;
      my $stopwords= C4::Context->stopwords;
--- 1165,1169 ----
  # removes stopwords
      my ($dbh,$bibid,$tag,$tagorder,$subfieldid,$subfieldorder,$sentence) 
address@hidden;
!     $sentence =~ s/(\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\})/ /g;
      my @words = split / /,$sentence;
      my $stopwords= C4::Context->stopwords;