diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 4122c5da27..903b69e43c 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -1996,6 +1996,14 @@ sub TransferOrder { $sth->execute($newordernumber, $ordernumber); $query = q{ + UPDATE aqorder_users + SET ordernumber = ? + WHERE ordernumber = ? + }; + $sth = $dbh->prepare($query); + $sth->execute($newordernumber, $ordernumber); + + $query = q{ INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to) VALUES (?, ?) };