added barcode version of fleshed2

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5633 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 ee74c04..b89cdda 100644 (file)
--- 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",);