cut out unnecessary call

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index e065c6f..8a68fb8 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -2701,8 +2701,7 @@ sub barcode_exists {
        return $e->event unless $e->checkauth;
        my $card = $e->search_actor_card({barcode => $barcode});
     return 0 unless @$card;
-    my $user = $e->retrieve_actor_user($card->[0]->usr) or return $e->event;
-    return $user->id;
+    return $card->[0]->usr;
 }