From 3cc6b05f3bdce6a146d794d9ce4a7db56f3c5808 Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 30 Aug 2006 02:40:39 +0000 Subject: [PATCH] added some more deleted checks git-svn-id: svn://svn.open-ils.org/ILS/trunk@5769 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index 57544be80a..e8ad3cdadd 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -1298,9 +1298,9 @@ __PACKAGE__->register_method( sub copies_by_cn_label { my( $self, $conn, $record, $label, $circ_lib ) = @_; my $e = new_editor(); - my $cns = $e->search_asset_call_number({record => $record, label => $label}, {idlist=>1}); + my $cns = $e->search_asset_call_number({record => $record, label => $label, deleted => 'f'}, {idlist=>1}); return [] unless @$cns; - return $e->search_asset_copy({call_number => $cns, circ_lib => $circ_lib}, {idlist=>1}); + return $e->search_asset_copy({call_number => $cns, circ_lib => $circ_lib, deleted => 'f'}, {idlist=>1}); } -- 2.43.2