[open-ils-commits] r7691 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-08-16 15:56:39 -0400 (Thu, 16 Aug 2007)
New Revision: 7691

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
cut out unnecessary call

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-08-16 19:49:04 UTC (rev 7690)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-08-16 19:56:39 UTC (rev 7691)
@@ -2728,8 +2728,7 @@
 	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;
 }