From 8b47e5eca74b1cbc78ad20db074136601648b5ca Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 21 Nov 2012 10:12:39 -0500 Subject: [PATCH] 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 Signed-off-by: Mike Rylander --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm | 4 ++++ 1 file changed, 4 insertions(+) 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 8ec653894e..e47e398adb 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm @@ -1789,6 +1789,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; -- 2.43.2