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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-02-22 17:43:11 -0500 (Fri, 22 Feb 2008)
New Revision: 8827

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
fleshing attributes on lineitem retrieval

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-22 20:21:40 UTC (rev 8826)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-22 22:43:11 UTC (rev 8827)
@@ -845,7 +845,15 @@
     return $e->event unless $e->checkauth;
     $options ||= {};
 
-    my $po_li = $e->retrieve_acq_po_lineitem($li_id) or return $e->event;
+    my $po_li = $e->retrieve_acq_po_lineitem([
+        $li_id, 
+        {   flesh => 1,
+            flesh_fields => {
+                acqpoli => ['attributes']
+            },
+        }
+    ]) or return $e->event;
+
     return $e->die_event if po_perm_failure($e, $po_li->purchase_order);
 
     if($$options{flesh_li_details}) {