[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Breeding.pm,1.4,1.5
From: |
Chris Cormack |
Subject: |
[Koha-cvs] CVS: koha/C4 Breeding.pm,1.4,1.5 |
Date: |
Tue, 23 Mar 2004 16:36:09 -0800 |
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17330
Modified Files:
Breeding.pm
Log Message:
Fix for bug 761
Ill commit this to the rel-2-0 branch as well
Index: Breeding.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Breeding.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Breeding.pm 25 Oct 2003 08:46:28 -0000 1.4
--- Breeding.pm 24 Mar 2004 00:36:07 -0000 1.5
***************
*** 61,65 ****
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,encoding,z3950random) values(?,?,?,?,?,?,?)");
my $replacesql = $dbh->prepare("update marc_breeding set
file=?,isbn=?,title=?,author=?,marc=?,encoding=?,z3950random=? where id=?");
--- 61,66 ----
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=? and title=?");
my $insertsql = $dbh->prepare("insert into marc_breeding
(file,isbn,title,author,marc,encoding,z3950random) values(?,?,?,?,?,?,?)");
my $replacesql = $dbh->prepare("update marc_breeding set
file=?,isbn=?,title=?,author=?,marc=?,encoding=?,z3950random=? where id=?");
***************
*** 100,107 ****
my $breedingid;
if ($oldbiblio->{isbn}) {
!
$searchbreeding->execute($oldbiblio->{isbn});
($breedingid) =
$searchbreeding->fetchrow;
} elsif ($oldbiblio->{issn}){
!
$searchbreeding->execute($oldbiblio->{issn});
($breedingid) =
$searchbreeding->fetchrow;
}
--- 101,108 ----
my $breedingid;
if ($oldbiblio->{isbn}) {
!
$searchbreeding->execute($oldbiblio->{isbn},$oldbiblio->{title});
($breedingid) =
$searchbreeding->fetchrow;
} elsif ($oldbiblio->{issn}){
!
$searchbreeding->execute($oldbiblio->{issn},$oldbiblio->{title});
($breedingid) =
$searchbreeding->fetchrow;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Breeding.pm,1.4,1.5,
Chris Cormack <=