From: Dan Scott <dscott@laurentian.ca>
Date: Fri, 13 Jul 2012 13:56:54 +0000 (-0400)
Subject: TPAC: Use .staff variant for MARC Expert Search
X-Git-Tag: sprint4-merge-nov22~4112
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=689c3952dcb546435b4d8c0e06aeff464205d4ff;p=working%2FEvergreen.git

TPAC: Use .staff variant for MARC Expert Search

Inside the staff client, we want to use the .staff method to retrieve
records that match the MARC Expert Search, so that records with no
attached copies can be found and returned.

Fixes LP # 1024382.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
Signed-off-by: Jason Etheridge <jason@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
index e4e23e5757..005cae3adc 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
@@ -616,10 +616,12 @@ sub marc_expert_search {
     }
 
     $self->timelog("Searching for MARC expert");
+    my $method = 'open-ils.search.biblio.marc';
+    $method .= '.staff' if $self->ctx->{is_staff};
     my $timeout = 120;
     my $ses = OpenSRF::AppSession->create('open-ils.search');
     my $req = $ses->request(
-        'open-ils.search.biblio.marc',
+        $method,
         {searches => $query, org_unit => $self->ctx->{search_ou}}, 
         $limit, $offset, $timeout);