more fleshing options in PO retrieval

git-svn-id: svn://svn.open-ils.org/ILS/trunk@16173 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
index 1dcb678..22ce502 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
@@ -920,13 +920,15 @@ sub retrieve_purchase_order_impl {
 
     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'}