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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-13 12:47:18 -0500 (Tue, 13 Jan 2009)
New Revision: 11815

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
oops, last commit was unintentional.  rolling back to previous revision

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-01-13 17:44:05 UTC (rev 11814)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-01-13 17:47:18 UTC (rev 11815)
@@ -1110,24 +1110,9 @@
 	my $e = new_editor(authtoken=>$auth);
 	return $e->event unless $e->checkauth;
 	return $e->event unless $e->allowed('VIEW_USER');
-
-    my $bcids = [];
-    if(my $bc = $$search_hash{card}{value}) {
-        $bcids = $e->json_query({
-            select => {ac => ['usr']}, 
-            from => {ac => {au => {field => 'id', fkey => 'usr'}}}, 
-            where => {'+ac' => {barcode => {like => "$bc%"}, active => 't'}, '+au' => {deleted => 'f'}}
-        });
-        $bcids = map [ {$_->{usr} ] @$bcids;
-    }
-
-    my $ids = $U->storagereq(
+	return $U->storagereq(
 		"open-ils.storage.actor.user.crazy_search", $search_hash, 
             $search_limit, $search_sort, $include_inactive, $e->requestor->ws_ou, $search_depth);
-
-    my %h; # dedup
-    $h{$_} = 1 for (@$bcids, $ids);
-    return [keys %h];
 }