limiting authority searches
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 16 Dec 2005 22:59:49 +0000 (22:59 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 16 Dec 2005 22:59:49 +0000 (22:59 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2426 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Search/Authority.pm

index 84d76f8..d8a23a0 100644 (file)
@@ -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];