From 61bea420f8825e045f2b54ca7c7883193a6929af Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 28 Jan 2008 17:13:33 +0000 Subject: [PATCH] ignore deleted records within a metarecord git-svn-id: svn://svn.open-ils.org/ILS/trunk@8513 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../OpenILS/Application/Storage/Publisher/action.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) : () ), -- 2.43.2