From 101f264ccf4a63e3395cab88311c1f31499f67de 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 0118b7c..ffb61ca 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -32,6 +32,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 ); @@ -1882,6 +1883,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.9.1