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 <berick@esilibrary.com>
Signed-off-by: Kathy Lussier <klussier@masslnc.org>

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 d8f7e8d..59af1b7 100644 (file)
--- 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;
     }