From f0ccbd5e1f9d3f922c8b00e84198f3b36004aeee Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 21 Aug 2006 21:42:22 +0000 Subject: [PATCH] added barcode version of fleshed2 git-svn-id: svn://svn.open-ils.org/ILS/trunk@5633 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Search/Biblio.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index ee74c04794..b89cddaedf 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -257,6 +257,20 @@ sub fleshed_copy_retrieve { return $c; } + + +__PACKAGE__->register_method( + method => 'fleshed_by_barcode', + api_name => "open-ils.search.asset.copy.fleshed2.find_by_barcode",); +sub fleshed_by_barcode { + my( $self, $conn, $barcode ) = @_; + my $e = new_editor(); + my $copyid = $e->search_asset_copy({barcode => $barcode}, {idlist=>1})->[0] + or return $e->event; + return $self->fleshed_copy_retrieve2($conn, $copyid); +} + + __PACKAGE__->register_method( method => "fleshed_copy_retrieve2", api_name => "open-ils.search.asset.copy.fleshed2.retrieve",); -- 2.43.2