[Koha-cvs] koha/acqui finishreceive.pl

[Antoine Farnault]

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