LP#1527342 search result history tagging

Use circ history data to indicate circulated items in search results.

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm
index 777ef7e..d1c9a02 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm
@@ -1465,8 +1465,8 @@ sub tag_circulated_records {
 
     my $query = {
         select   => { acn => [{ column => 'record', alias => 'tagme' }] }, 
-        from     => { acp => 'acn' }, 
-        where    => { id => { in => { from => ['action.usr_visible_circ_copies', $e->requestor->id] } } },
+        from     => { auch => { acp => { join => 'acn' }} }, 
+        where    => { usr => $e->requestor->id },
         distinct => 1
     };