From 8ad300d511cbc6332b59de1c43a63ddde225a955 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 8 Apr 2010 16:45:43 +0000 Subject: [PATCH] more fleshing options in PO retrieval git-svn-id: svn://svn.open-ils.org/ILS/trunk@16173 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm index 1dcb67862..22ce5021c 100644 --- 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'} -- 2.11.0