From: Bill Erickson <berick@esilibrary.com>
Date: Wed, 21 Nov 2012 15:12:39 +0000 (-0500)
Subject: extract PO name from picklist upload
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fuser%2Fberick%2Facq-po-name-from-pl-upload;p=working%2FEvergreen.git

extract PO name from picklist upload

If a PO name is encoded in a lineitem (via provider attribute
definition), extract that PO name when creating a new purchase order
from lineitems that were previously only linked to a selection list.
This allows staff to create selection lists first, then orders second,
while retaining the encoded purchase order name.

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
index 7c66162f4a..fbf90155c1 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -1778,6 +1778,10 @@ sub create_purchase_order_api {
         }
     }
 
+    # see if we have a PO name encoded in any of our lineitems
+    my $evt = extract_po_name($mgr, $po, $li_ids);
+    return $evt if $evt;
+
     # commit before starting the asset creation
     $e->xact_commit;