[open-ils-commits] r7692 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-08-16 15:57:10 -0400 (Thu, 16 Aug 2007)
New Revision: 7692

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

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-08-16 19:56:39 UTC (rev 7691)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-08-16 19:57:10 UTC (rev 7692)
@@ -2701,8 +2701,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;
 }