From 49899d689b80a34067aee15464b754bfc26ffe92 Mon Sep 17 00:00:00 2001 From: Chris Sharp Date: Wed, 3 Oct 2018 14:23:15 -0400 Subject: [PATCH] Revert "LP#1269574 - Exclude backordered copies from deletion." This reverts commit aee918b0f274b0aaf91b76c9e0ba6157372d2402. --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm | 4 +--- 1 file changed, 1 insertion(+), 3 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 868365d941..3eae8602e3 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm @@ -3155,9 +3155,7 @@ sub cancel_lineitem { or return 0; # gathering any real copies for deletion - # if there is a copy ID and the cancel reason keeps debits, - # do not delete. - if ($lid->eg_copy_id && ! $U->is_true($cancel_reason->keep_debits)) { + if ($lid->eg_copy_id) { $lid->eg_copy_id->isdeleted('t'); push @$copies, $lid->eg_copy_id; } -- 2.11.0