From 2b1ba191e443fae1f18dbeeee23ea2445a83a61d 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 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; -- 2.11.0