From f13d33b26de2654524ef1ac2005b138a645a6886 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Fri, 17 Jan 2014 11:21:05 +0100
Subject: [PATCH] Bug 11549: [follow-up] Make NewOrder calculate new
 parent_ordernumber

If parent_ordernumber is not set in NewOrder parameter, it is
automatically set to ordernumber.

This patch only avoid code duplication.

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
This solution is better!

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Passes all tests and QA script. Also all tests in
t/db_dependent/Acquisitions/.

Confirmed bug and that the patch fixes it.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
(cherry picked from commit 9cb6174653185e8ea37871245c8d25092d8e4a81)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 C4/Acquisition.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index 1b29dfdeef..8b01d4ef88 100644
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -1814,16 +1814,11 @@ sub TransferOrder {
     $rv = $sth->execute($ordernumber);
 
     delete $order->{'ordernumber'};
+    delete $order->{parent_ordernumber};
     $order->{'basketno'} = $basketno;
     my $newordernumber;
     (undef, $newordernumber) = NewOrder($order);
 
-    $dbh->do( q{
-        UPDATE aqorders
-        SET parent_ordernumber = ordernumber
-        WHERE ordernumber = ?
-    }, {}, $newordernumber );
-
     $query = q{
         UPDATE aqorders_items
         SET ordernumber = ?
-- 
2.39.5