From a922f30b30e6b53ab7733b288f206743ce9f1d13 Mon Sep 17 00:00:00 2001
From: Bill Erickson <berick@esilibrary.com>
Date: Thu, 20 Jan 2011 17:05:28 -0500
Subject: [PATCH] better call parallization

---
 .../src/perlmods/OpenILS/WWW/EGCatLoader.pm   | 25 ++++++++-----------
 1 file changed, 10 insertions(+), 15 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm
index 12ceccedd1..98eff625d3 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm
@@ -227,29 +227,18 @@ sub load_logout {
 #   records : list of bre's and copy-count objects
 sub load_rresults {
     my $self = shift;
-
     my $cgi = $self->cgi;
     my $ctx = $self->ctx;
     my $e = $self->editor;
 
     $ctx->{page} = 'rresult';
-
-    unless($cache{cmf}) {
-        $cache{cmf} = $e->search_config_metabib_field({id => {'!=' => undef}});
-        $cache{cmc} = $e->search_config_metabib_class({name => {'!=' => undef}});
-        $ctx->{metabib_field} = $cache{cmf};
-        $ctx->{metabib_class} = $cache{cmc};
-    }
-
     my $page = $cgi->param('page') || 0;
     my $query = $cgi->param('query');
     my $limit = $cgi->param('limit') || 10; # XXX user settings
-
     my $args = {limit => $limit, offset => $page * $limit}; 
     my $results;
 
     try {
-
         $results = $U->simplereq(
             'open-ils.search',
             'open-ils.search.biblio.multiclass.query.staff', 
@@ -270,14 +259,20 @@ sub load_rresults {
 
     return Apache2::Const::OK if @$rec_ids == 0;
 
-    my $search = OpenSRF::AppSession->create('open-ils.search');
-    my $facet_req = $search->request('open-ils.search.facet_cache.retrieve', $results->{facet_key}, 10);
-    
     my $cstore1 = OpenSRF::AppSession->create('open-ils.cstore');
-
     my $bre_req = $cstore1->request(
         'open-ils.cstore.direct.biblio.record_entry.search', {id => $rec_ids});
 
+    my $search = OpenSRF::AppSession->create('open-ils.search');
+    my $facet_req = $search->request('open-ils.search.facet_cache.retrieve', $results->{facet_key}, 10);
+
+    unless($cache{cmf}) {
+        $cache{cmf} = $e->search_config_metabib_field({id => {'!=' => undef}});
+        $cache{cmc} = $e->search_config_metabib_class({name => {'!=' => undef}});
+        $ctx->{metabib_field} = $cache{cmf};
+        $ctx->{metabib_class} = $cache{cmc};
+    }
+
     my @data;
     while(my $resp = $bre_req->recv) {
         my $bre = $resp->content; 
-- 
2.43.2