From: Galen Charlton <gmc@equinoxOLI.org>
Date: Sat, 5 Feb 2022 17:30:45 +0000 (-0500)
Subject: LP#1929749: add two additional fleshing options to LI retrieval
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=17b54a3facaddac2329a07d4d441331dd3fe3031;p=working%2FEvergreen.git

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 <gmc@equinoxOLI.org>
---

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};
     }