From 48d09038a680ffaf55b154fb4a4d9214fd7e663e Mon Sep 17 00:00:00 2001 From: Chris Sharp Date: Wed, 3 Oct 2018 14:23:12 -0400 Subject: [PATCH] Revert "LP#1269574 - make EDI also cancel acq-created copies" This reverts commit 5c980a325741985b6ca53a13c5325c4c1ca9e810. --- .../src/perlmods/lib/OpenILS/Application/Acq/EDI.pm | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm index ac59562e60..49feb96098 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/EDI.pm @@ -17,7 +17,6 @@ use OpenILS::Utils::CStoreEditor q/new_editor/; use OpenILS::Utils::Fieldmapper; use OpenILS::Application::Acq::EDI::Translator; use OpenILS::Application::AppUtils; -use OpenILS::Application::Cat::AssetCommon; my $U = 'OpenILS::Application::AppUtils'; use OpenILS::Utils::EDIReader; @@ -880,22 +879,6 @@ sub cancel_lids { } } - # we also need to delete any real copies attached - my $copy = $e->retrieve_asset_copy([ - $lid->eg_copy_id, - {flesh => 1, flesh_fields => {acp => ['call_number']}} - ]); - if ($copy) { - $logger->info("EDI: deleting copy $copy->id and volume $copy->call_number for lid $lid->id"); - my $evt = OpenILS::Application::Cat::AssetCommon->delete_copy($e, 1, $copy->call_number, $copy, 1, 1); - if ($evt) { - $e->rollback; - $logger->error("EDI: failed to delete copies for lid $lid->id: $evt"); - } - } else { - $logger->debug("EDI: no copies or volumes to delete for lid $lid->id"); - } - $e->update_acq_lineitem_detail($lid); $cancel_count++; } -- 2.11.0