added deleted check to barcode fetches
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 23 Aug 2006 22:30:06 +0000 (22:30 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 23 Aug 2006 22:30:06 +0000 (22:30 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5647 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm

index dcd48eb..1db0210 100644 (file)
@@ -265,7 +265,8 @@ __PACKAGE__->register_method(
 sub fleshed_by_barcode {
        my( $self, $conn, $barcode ) = @_;
        my $e = new_editor();
-       my $copyid = $e->search_asset_copy({barcode => $barcode}, {idlist=>1})->[0]
+       my $copyid = $e->search_asset_copy(
+               {barcode => $barcode, deleted => 'f'}, {idlist=>1})->[0]
                or return $e->event;
        return $self->fleshed_copy_retrieve2($conn, $copyid);
 }