From 192b76cc8a5d35f07cc6f60ea0bc46f4b7388c2d Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Tue, 1 Aug 2006 08:47:49 +0000
Subject: [PATCH] New Function : ModOrderBiblioNumber.

---
 C4/Acquisition.pm | 29 ++++++++++++++++++++++++++++-
 1 file changed, 28 insertions(+), 1 deletion(-)

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index 8f04e2e4ef..e6a7f07fe0 100644
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -61,7 +61,7 @@ orders, basket and parcels.
   &GetPendingOrders &GetOrder &GetOrders
   &GetOrderNumber &GetLateOrders &NewOrder &DelOrder
   &SearchOrder &GetHistory
-  &ModOrder &ModReceiveOrder
+  &ModOrder &ModReceiveOrder &ModOrderBiblioNumber
   &GetParcels &GetParcel
 );
 
@@ -527,6 +527,33 @@ sub ModOrder {
 
 #------------------------------------------------------------#
 
+=head3 ModOrderBiblioNumber
+
+=over 4
+
+&ModOrderBiblioNumber($biblioitemnumber,$ordnum, $biblionumber);
+
+Modifies the biblioitemnumber for an existing order.
+Updates the order with order number C<$ordernum> and biblionumber C<$biblionumber>.
+
+=back
+
+=cut
+
+sub ModOrderBiblioNumber {
+    my ($biblioitemnumber,$ordnum, $biblionumber) = @_;
+    my $dbh = C4::Context->dbh;
+    my $query = "
+      UPDATE aqorders
+      SET    biblioitemnumber = ?
+      WHERE  ordernumber = ?
+      AND biblionumber =  ?";
+    my $sth = $dbh->prepare($query);
+    $sth->execute( $biblioitemnumber, $ordnum, $biblionumber );
+}
+
+#------------------------------------------------------------#
+
 =head3 ModReceiveOrder
 
 =over 4
-- 
2.39.5