From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 7 May 2013 13:48:05 +0000 (-0400)
Subject: LP 1177388 'Add to Po' Honors default copy count
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=02c546a31aa5883a991258e850ed5a25eb313973;p=working%2FEvergreen.git

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 d8f7e8d4e0..59af1b7367 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;
     }