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 6f840d2..ce22e23 100644 (file)
--- 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};