[open-ils-commits] r8979 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-11 21:04:22 -0400 (Tue, 11 Mar 2008)
New Revision: 8979

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
made fund and fund_debit fleshing optional

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2008-03-12 00:12:02 UTC (rev 8978)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2008-03-12 01:04:22 UTC (rev 8979)
@@ -348,12 +348,13 @@
     }
 
     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);
     }