[open-ils-commits] r16173 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-04-08 12:45:43 -0400 (Thu, 08 Apr 2010)
New Revision: 16173

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
more fleshing options in PO retrieval

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2010-04-08 16:45:42 UTC (rev 16172)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2010-04-08 16:45:43 UTC (rev 16173)
@@ -920,13 +920,15 @@
 
     if($$options{flesh_lineitems}) {
 
+        my $flesh_fields = { jub => ['attributes'] };
+        $flesh_fields->{jub}->[1] = 'lineitem_details' if $$options{flesh_lineitem_details};
+        $flesh_fields->{acqlid} = ['fund_debit'] if $$options{flesh_fund_debit};
+
         my $items = $e->search_acq_lineitem([
             {purchase_order => $po_id},
             {
-                flesh => 1,
-                flesh_fields => {
-                    jub => ['attributes']
-                },
+                flesh => 3,
+                flesh_fields => $flesh_fields,
                 limit => $$options{li_limit} || 50,
                 offset => $$options{li_offset} || 0,
                 order_by => {jub => $$options{li_order_by} || 'create_time'}