added utility method for finding user id by barcode

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm b/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
index 4e59a91..d182816 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
@@ -17,6 +17,23 @@ my $U = "OpenILS::Application::AppUtils";
 # --------------------------------------------------------------
 sub initialize { return 1; }
 
+__PACKAGE__->register_method(
+       method => 'user_from_bc',
+       api_name => 'open-ils.collections.user_id_from_barcode',
+);
+
+sub user_from_bc {
+       my( $self, $conn, $auth, $bc ) = @_;
+       my $e = new_editor(authtoken=>$auth);
+       return $e->event unless $e->checkauth;
+       return $e->event unless $e->allowed('VIEW_USER'); 
+       my $card = $e->search_actor_card({barcode=>$bc})->[0]
+               or return $e->event;
+       my $user = $e->retrieve_actor_user($card->usr)
+               or return $e->event;
+       return $user->id;       
+}
+
 
 __PACKAGE__->register_method(
        method    => 'users_of_interest',