returning not-found event (quicker) when copy is not found

git-svn-id: svn://svn.open-ils.org/ILS/trunk@6935 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
index a0a91e1..b166f6b 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
@@ -863,8 +863,10 @@ __PACKAGE__->register_method(
        api_name => 'open-ils.circ.copy_details.retrieve.barcode');
 sub copy_details_barcode {
        my( $self, $conn, $auth, $barcode ) = @_;
-       return $self->copy_details( $conn, $auth, 
-               new_editor()->search_asset_copy({barcode=>$barcode,deleted=>'f'},{idlist=>1})->[0]);
+    my $e = new_editor();
+    my $cid = $e->search_asset_copy({barcode=>$barcode, deleted=>'f'}, {idlist=>1})->[0];
+    return $e->event unless $cid;
+       return $self->copy_details( $conn, $auth, $cid );
 }