From 71a3d4e7f1b399b81f34ac8313544eac336a06a4 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 5 Apr 2010 18:58:44 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm | 5 +++++ 1 file changed, 5 insertions(+) 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}; -- 2.11.0