[open-ils-commits] r16132 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-04-05 14:58:44 -0400 (Mon, 05 Apr 2010)
New Revision: 16132

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
Log:
added ability to flesh PO and PL in lineitem retrieve

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2010-04-05 04:14:03 UTC (rev 16131)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2010-04-05 18:58:44 UTC (rev 16132)
@@ -136,6 +136,9 @@
             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 @@
             return $e->event unless 
                 $e->allowed('VIEW_PICKLIST', undef, $picklist);
         }
+
+        $li->picklist($picklist) if $$options{flesh_pl};
     }
 
     $li->clear_marc if $$options{clear_marc};