[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.4,1.5
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.4,1.5 |
Date: |
Wed, 15 Sep 2004 09:13:44 -0700 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Acquisition.pm,1.4,1.5,
Paul POULAIN <=