[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.8,1.9

[Paul POULAIN]

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 ----