From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 28 Jan 2008 17:13:33 +0000 (+0000)
Subject: ignore deleted records within a metarecord
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=61bea420f8825e045f2b54ca7c7883193a6929af;p=Evergreen.git

ignore deleted records within a metarecord

git-svn-id: svn://svn.open-ils.org/ILS/trunk@8513 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
index 65e0eebcb5..9231f4cd81 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -838,7 +838,11 @@ sub new_hold_copy_targeter {
 						{$_->record}
 						metabib::record_descriptor
 							->search(
-								record => [ map { $_->id } metabib::metarecord->retrieve($hold->target)->source_records ],
+								record => [
+									map {
+										isTrue($_->deleted) ?  () : ($_->id)
+									} metabib::metarecord->retrieve($hold->target)->source_records
+								],
 								( $types   ? (item_type => [split '', $types])   : () ),
 								( $formats ? (item_form => [split '', $formats]) : () ),
 								( $lang    ? (item_lang => $lang)                : () ),