From 1ac7a24188fe435586da0d373ce461dab9ef1af8 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 11 Jul 2013 13:14:04 -0400 Subject: [PATCH] LP833820 repair ACQ options passing thinko Ensure zero_copy_activate option is passed down to create_lineitem_debits with new no-asset-activation code. Thanks to Dan Wells for spotting this. Signed-off-by: Bill Erickson Signed-off-by: Dan Wells --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 194fdb5fff..e813cd9db3 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm @@ -803,8 +803,9 @@ sub set_lineitem_attr { # Lineitem Debits # ---------------------------------------------------------------------------- sub create_lineitem_debits { - my ($mgr, $li, $dry_run, $options) = @_; + my ($mgr, $li, $options) = @_; $options ||= {}; + my $dry_run = $options->{dry_run}; unless($li->estimated_unit_price) { $mgr->editor->event(OpenILS::Event->new('ACQ_LINEITEM_NO_PRICE', payload => $li->id)); @@ -2664,7 +2665,7 @@ sub activate_purchase_order_impl { $li->state('on-order'); $li->claim_policy($provider->default_claim_policy) if $provider->default_claim_policy and !$li->claim_policy; - create_lineitem_debits($mgr, $li, $dry_run) or return $e->die_event; + create_lineitem_debits($mgr, $li, $options) or return $e->die_event; update_lineitem($mgr, $li) or return $e->die_event; $mgr->post_process( sub { create_lineitem_status_events($mgr, $li->id, 'aur.ordered'); }); $mgr->respond; -- 2.43.2