From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 15 Aug 2007 17:47:04 +0000 (+0000)
Subject: backporting barcode exists returns user id: svn merge -r7677:7678 svn://svn.open... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=0ea73c43686832bea2d99343cee113a2cfaaab72;p=Evergreen.git

backporting barcode exists returns user id: svn merge -r7677:7678 svn://svn.open-ils.org/ILS/trunk

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2@7679 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 295126b25c..e065c6f424 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -2699,9 +2699,10 @@ sub barcode_exists {
 	my( $self, $conn, $auth, $barcode ) = @_;
 	my $e = new_editor(authtoken=>$auth);
 	return $e->event unless $e->checkauth;
-	my $a = $e->search_actor_card({barcode => $barcode}, {idlist=>1});
-	return $$a[0] if $a and @$a;
-	return 0;
+	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;
 }