From 0554a91421f02d5ad1175576da8107a1adb5db74 Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Tue, 1 Aug 2006 15:04:33 +0000
Subject: [PATCH] Some SQL code moved into Acquisition.pm

---
 acqui/finishreceive.pl | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
index 9d2320806a..4aa7d4272d 100755
--- a/acqui/finishreceive.pl
+++ b/acqui/finishreceive.pl
@@ -181,15 +181,8 @@ else {
 
 #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);
-- 
2.39.5