From 71a3d4e7f1b399b81f34ac8313544eac336a06a4 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
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