[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.8,1.9
Paul POULAIN
tipaul at users.sourceforge.net
Wed Nov 24 16:59:18 CET 2004
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12454/C4
Modified Files:
Acquisition.pm
Log Message:
* critical fix for acquisition (see RC3 release notes)
Index: Acquisition.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisition.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** Acquisition.pm 19 Oct 2004 12:24:57 -0000 1.8
--- Acquisition.pm 24 Nov 2004 15:59:15 -0000 1.9
***************
*** 266,270 ****
$sth=$dbh->prepare("update aqorderbreakdown set bookfundid=? where
ordernumber=?");
! if ($sth->execute($bookfund,$ordnum) == 0) { # zero rows affected [Bug 734]
my $query="insert into aqorderbreakdown (ordernumber,bookfundid) values (?,?)";
$sth=$dbh->prepare($query);
--- 266,270 ----
$sth=$dbh->prepare("update aqorderbreakdown set bookfundid=? where
ordernumber=?");
! unless ($sth->execute($bookfund,$ordnum)) { # zero rows affected [Bug 734]
my $query="insert into aqorderbreakdown (ordernumber,bookfundid) values (?,?)";
$sth=$dbh->prepare($query);
***************
*** 607,611 ****
$query .= " and biblio.author like ".$dbh->quote("%".$author."%") if $author;
$query .= " and name like ".$dbh->quote("%".$name."%") if $name;
- warn "Q : $query";
my $sth = $dbh->prepare($query);
$sth->execute;
--- 607,610 ----
More information about the Koha-cvs
mailing list