From 17b54a3facaddac2329a07d4d441331dd3fe3031 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Sat, 5 Feb 2022 12:30:45 -0500 Subject: [PATCH] LP#1929749: add two additional fleshing options to LI retrieval Specifically, flesh_copy_location and flesh_call_number. These take effect only when flesh_copies is also true and are used to further flesh values of items attached to line item details. Signed-off-by: Galen Charlton --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm index 88a0f04bb7..45d62f86c2 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Lineitem.pm @@ -188,7 +188,11 @@ sub retrieve_lineitem_impl { push(@{$fields->{acqlid}}, 'cancel_reason') if $$options{flesh_cancel_reason}; push(@{$fields->{acqlid}}, 'circ_modifier') if $$options{flesh_circ_modifier}; push(@{$fields->{acqlid}}, 'location') if $$options{flesh_location}; - push(@{$fields->{acqlid}}, 'eg_copy_id') if $$options{flesh_copies}; + if ($$options{flesh_copies}) { + push(@{$fields->{acqlid}}, 'eg_copy_id'); + push(@{$fields->{acp}}, 'call_number') if $$options{flesh_call_number}; + push(@{$fields->{acp}}, 'location') if $$options{flesh_copy_location}; + } push(@{$fields->{acqlid}}, 'receiver') if $$options{flesh_li_details_receiver}; } -- 2.11.0