From aae36eabf72fb037ed54d8b24146723230e669aa Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Tue, 7 May 2013 09:48:05 -0400 Subject: [PATCH] LP 1177388 'Add to Po' Honors default copy count Create the requested number of copies for lineitems added to purchase orders whose provider has a non-zero value for 'default copy count'. Signed-off-by: Bill Erickson Signed-off-by: Kathy Lussier --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm | 1 + 1 file changed, 1 insertion(+) 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 7313471914..9661f9212e 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm @@ -3683,6 +3683,7 @@ sub add_li_to_po { $li->provider($po->provider); $li->purchase_order($po_id); $li->state('pending-order'); + apply_default_copies($mgr, $po, $li->id) or return $e->die_event; update_lineitem($mgr, $li) or return $e->die_event; } -- 2.43.2