[Koha-cvs] CVS: koha/C4 Breeding.pm,NONE,1.1

[Paul POULAIN]

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

Added Files:
        Breeding.pm 
Log Message:
1st draft for z3950 client import.
moving Breeding farm script to a perl package C4/Breeding.pm

--- NEW FILE ---
package C4::Breeding;

# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA  02111-1307 USA

use strict;
use C4::Biblio;
use MARC::File::USMARC;
require Exporter;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

# set the version for version checking
$VERSION = 0.01;

=head1 NAME

C4::Breeding : script to add a biblio in marc_breeding table.

=head1 SYNOPSIS

  use C4::Scan;
  &ImportBreeding($marcrecords,$);

=head1 DESCRIPTION

This module doesn't do anything.

=cut

@ISA = qw(Exporter);
@EXPORT = qw(&ImportBreeding);

sub  ImportBreeding {
        my ($marcrecords,$overwrite_biblio,$filename) = @_;
        my @marcarray = split /\x1D/, $marcrecords;
        my $dbh = C4::Context->dbh;
        my $searchisbn = $dbh->prepare("select biblioitemnumber from 
biblioitems where isbn=?");
        my $searchissn = $dbh->prepare("select biblioitemnumber from 
biblioitems where issn=?");
        my $searchbreeding = $dbh->prepare("select id from marc_breeding where 
isbn=?");
        my $insertsql = $dbh->prepare("insert into marc_breeding 
(file,isbn,title,author,marc) values(?,?,?,?,?)");
        my $replacesql = $dbh->prepare("update marc_breeding set 
file=?,isbn=?,title=?,author=?,marc=? where id=?");
        # fields used for import results
        my $imported=0;
        my $alreadyindb = 0;
        my $alreadyinfarm = 0;
        my $notmarcrecord = 0;
        for (my $i=0;$i<=$#marcarray;$i++) {
                my $marcrecord = 
MARC::File::USMARC::decode($marcarray[$i]."\x1D");
                if (ref($marcrecord) eq undef) {
                        $notmarcrecord++;
                } else {
                        my $oldbiblio = MARCmarc2koha($dbh,$marcrecord);
                        $oldbiblio->{title} = char_decode($oldbiblio->{title});
                        $oldbiblio->{author} = 
char_decode($oldbiblio->{author});
                        # if isbn found and biblio does not exist, add it. If 
isbn found and biblio exists, overwrite or ignore depending on user choice
                        # drop every "special" char : spaces, - ...
                        $oldbiblio->{isbn} =~ s/ |-|\.//g,
                        # search if biblio exists
                        my $biblioitemnumber;
                        if ($oldbiblio->{isbn}) {
                                $searchisbn->execute($oldbiblio->{isbn});
                                ($biblioitemnumber) = $searchisbn->fetchrow;
                        } else {
                                $searchissn->execute($oldbiblio->{issn});
                                ($biblioitemnumber) = $searchissn->fetchrow;
                        }
                        if ($biblioitemnumber) {
                                $alreadyindb++;
                        } else {
                                # search in breeding farm
                                my $breedingid;
                                if ($oldbiblio->{isbn}) {
                                        
$searchbreeding->execute($oldbiblio->{isbn});
                                        ($breedingid) = 
$searchbreeding->fetchrow;
                                } else {
                                        
$searchbreeding->execute($oldbiblio->{issn});
                                        ($breedingid) = 
$searchbreeding->fetchrow;
                                }
                                if (!$breedingid || $overwrite_biblio) {
                                        my $recoded;
                                        $recoded = $marcrecord->as_usmarc();
                                                if ($breedingid) {
                                                        $replacesql 
->execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded,$breedingid);
                                                } else {
                                                        $insertsql 
->execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded);
                                                }
                                        $imported++;
                                } else {
                                        $alreadyinfarm++;
                                }
                        }
                }
        }
        return ($notmarcrecord,$alreadyindb,$alreadyinfarm,$imported);
}

END { }       # module clean-up code here (global destructor)