From 80e9db501317498ccef16cb449ca5776050122af Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 23 Jan 2007 16:45:21 +0000 Subject: [PATCH] added flag to allow retrieval of deleted records in tcn search git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@6806 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index 1cf9ac5fa2..3a062fe180 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -175,13 +175,14 @@ __PACKAGE__->register_method( sub biblio_search_tcn { - my( $self, $client, $tcn ) = @_; + my( $self, $client, $tcn, $include_deleted ) = @_; $tcn =~ s/.*?(\w+)\s*$/$1/o; my $e = new_editor(); - my $recs = $e->search_biblio_record_entry( - {deleted => 'f', tcn_value => $tcn}, {idlist =>1}); + my $search = {tcn_value => $tcn}; + $search->{deleted} = 'f' unless $include_deleted; + my $recs = $e->search_biblio_record_entry( $search, {idlist =>1} ); return { count => scalar(@$recs), ids => $recs }; } -- 2.11.0