From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 5 Apr 2010 18:58:44 +0000 (+0000)
Subject: added ability to flesh PO and PL in lineitem retrieve
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=71a3d4e7f1b399b81f34ac8313544eac336a06a4;p=contrib%2FConifer.git

added ability to flesh PO and PL in lineitem retrieve

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
index 6f840d2b94..ce22e235b1 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -136,6 +136,9 @@ sub retrieve_lineitem_impl {
             return $e->event unless
                 $e->allowed('VIEW_PURCHASE_ORDER', undef, $purchase_order);
         }
+
+        $li->purchase_order($purchase_order) if $$options{flesh_po};
+
     } elsif($li->picklist) {
         my $picklist = $e->retrieve_acq_picklist($li->picklist)
             or return $e->event;
@@ -144,6 +147,8 @@ sub retrieve_lineitem_impl {
             return $e->event unless 
                 $e->allowed('VIEW_PICKLIST', undef, $picklist);
         }
+
+        $li->picklist($picklist) if $$options{flesh_pl};
     }
 
     $li->clear_marc if $$options{clear_marc};