[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/acqui finishreceive.pl
From: |
Antoine Farnault |
Subject: |
[Koha-cvs] koha/acqui finishreceive.pl |
Date: |
Tue, 01 Aug 2006 15:04:33 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: Antoine Farnault <toins> 06/08/01 15:04:33
Modified files:
acqui : finishreceive.pl
Log message:
Some SQL code moved into Acquisition.pm
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/finishreceive.pl?cvsroot=koha&r1=1.19&r2=1.20
Patches:
Index: finishreceive.pl
===================================================================
RCS file: /sources/koha/koha/acqui/finishreceive.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- finishreceive.pl 1 Aug 2006 08:33:11 -0000 1.19
+++ finishreceive.pl 1 Aug 2006 15:04:33 -0000 1.20
@@ -181,15 +181,8 @@
#lets do a lookup on aqorders, with ordnum, then insert biblioitem fiels with
new biblioitem number
- my $query =
- "UPDATE aqorders SET biblioitemnumber = ? where ordernumber = ?
- and biblionumber = ?";
- my $sth = $dbh->prepare($query);
- my $error = $sth->execute( $biblioitemnumber, $ordnum, $biblionumber );
- #warn Dumper $error;
- $sth->fetchrow_hashref;
- $sth->finish;
- }
+ &ModOrderBiblioNumber($biblioitemnumber,$ordnum, $biblionumber);
+
else {
&modbiblio($bibliohash);
&modbibitem($biblioitemhash);