From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 12 Mar 2008 01:04:22 +0000 (+0000)
Subject: made fund and fund_debit fleshing optional
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=4f1678a9cf40352a0f82b3e19c7ccda4ecc9c180;p=Evergreen.git

made fund and fund_debit fleshing optional

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@8979 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
index 4f9d5e25c0..ceaeff8fb2 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
@@ -348,12 +348,13 @@ sub retrieve_lineitem {
     }
 
     if($$options{flesh_li_details}) {
-        my $details = $e->search_acq_lineitem_detail([
-            {lineitem => $li_id}, {
-                flesh => 1,
-                flesh_fields => {acqlid => ['fund_debit', 'fund']}
-            }
-        ]);
+        my $ops = {
+            flesh => 1,
+            flesh_fields => {acqlid => []}
+        };
+        push(@{$ops->{flesh_fields}->{acqlid}}, 'fund') if $$options{flesh_fund};
+        push(@{$ops->{flesh_fields}->{acqlid}}, 'fund_debit') if $$options{flesh_fund_debit};
+        my $details = $e->search_acq_lineitem_detail([{lineitem => $li_id}, $ops]);
         $li->lineitem_details($details);
     }