[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.4,1.5

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6393/C4

Modified Files:
	Acquisition.pm 
Log Message:
bugfixes in order modif

Index: Acquisition.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisition.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Acquisition.pm	13 Sep 2004 15:21:59 -0000	1.4
--- Acquisition.pm	15 Sep 2004 16:13:41 -0000	1.5
***************
*** 255,263 ****
    my $sth=$dbh->prepare("update aqorders set title=?,
    quantity=?,listprice=?,basketno=?,
!   rrp=?,ecost=?,unitprice=?,
!   sort1=?, sort2=?
    where
    ordernumber=? and biblionumber=?");
!   $sth->execute($title,$quantity,$listprice,$basketno,$rrp,$ecost,$cost,$sort1,$sort2,$ordnum,$bibnum);
    $sth->finish;
    $sth=$dbh->prepare("update aqorderbreakdown set bookfundid=? where
--- 255,263 ----
    my $sth=$dbh->prepare("update aqorders set title=?,
    quantity=?,listprice=?,basketno=?,
!   rrp=?,ecost=?,unitprice=?,booksellerinvoicenumber=?,
!   notes=?,sort1=?, sort2=?
    where
    ordernumber=? and biblionumber=?");
!   $sth->execute($title,$quantity,$listprice,$basketno,$rrp,$ecost,$cost,$invoice,$notes,$sort1,$sort2,$ordnum,$bibnum);
    $sth->finish;
    $sth=$dbh->prepare("update aqorderbreakdown set bookfundid=? where