From 51169f2d36ed27190e266c86090adeafa439b5c5 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Mon, 24 Aug 2015 15:30:15 +0200 Subject: [PATCH] Bug 11844: Copy additional fields values when transfering order --- C4/Acquisition.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 4044556..5e2738b 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -31,6 +31,7 @@ use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Acquisition::Order; use Koha::Acquisition::Bookseller; use Koha::Number::Price; +use Koha::AdditionalField; use C4::Koha qw( subfield_is_koha_internal_p ); @@ -1865,6 +1866,14 @@ sub TransferOrder { $sth = $dbh->prepare($query); $sth->execute($newordernumber, $ordernumber); + # Copy additional fields values + my $additional_fields = Koha::AdditionalField->all({tablename => 'aqorders'}); + foreach my $af (@$additional_fields) { + $af->fetch_values({record_id => $ordernumber}); + $af->{values}->{$newordernumber} = $af->{values}->{$ordernumber}; + $af->insert_values; + } + $query = q{ INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to) VALUES (?, ?) -- 1.7.10.4