From cfc1931f1b3c3bf5052384cc0d4054c7d23daa21 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 16 Dec 2005 22:59:49 +0000 Subject: [PATCH 1/1] limiting authority searches git-svn-id: svn://svn.open-ils.org/ILS/trunk@2426 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Search/Authority.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Authority.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Authority.pm index 84d76f86bf..d8a23a0458 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Authority.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Authority.pm @@ -22,8 +22,10 @@ sub crossref_authority { my $session = OpenSRF::AppSession->create("open-ils.storage"); $session->connect; - my $freq = $session->request("open-ils.storage.authority.$class.see_from.controlled.atomic",$term); - my $areq = $session->request("open-ils.storage.authority.$class.see_also_from.controlled.atomic",$term); + my $freq = $session->request( + "open-ils.storage.authority.$class.see_from.controlled.atomic",$term, 10); + my $areq = $session->request( + "open-ils.storage.authority.$class.see_also_from.controlled.atomic",$term, 10); my $fr = $freq->gather(1); my $al = $areq->gather(1); @@ -118,8 +120,8 @@ sub crossref_authority_batch { my $term = $req->[1]; next unless $class and $term; warn "Sending authority request for $class : $term\n"; - my $freq = $session->request("open-ils.storage.authority.$class.see_from.controlled.atomic",$term); - my $areq = $session->request("open-ils.storage.authority.$class.see_also_from.controlled.atomic",$term); + my $freq = $session->request("open-ils.storage.authority.$class.see_from.controlled.atomic",$term, 10); + my $areq = $session->request("open-ils.storage.authority.$class.see_also_from.controlled.atomic",$term, 10); if( $lastr->[0] ) { #process old data while waiting on new data my $cls = $lastr->[0]; -- 2.43.2