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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
index 1cf9ac5..3a062fe 100644 (file)
--- 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 };
 }