From d75fbe4166cfcaff779fa3d10b73db51d8ac3aa2 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 18 Jul 2008 14:43:22 +0000
Subject: [PATCH] added core limit search setting, summary info in return
 object, and changed defaults to 500/20

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10071 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/examples/opensrf.xml.example                    |  4 ++--
 .../src/perlmods/OpenILS/Application/Search/Biblio.pm    | 16 +++++++++++++---
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/Open-ILS/examples/opensrf.xml.example b/Open-ILS/examples/opensrf.xml.example
index a2431850be..94eb200110 100644
--- a/Open-ILS/examples/opensrf.xml.example
+++ b/Open-ILS/examples/opensrf.xml.example
@@ -275,8 +275,8 @@ vim:et:ts=4:sw=4:
                     <marc_html_xsl>oilsMARC21slim2HTML.xsl</marc_html_xsl>
                     <!-- Default to using staged search -->
                     <use_staged_search>true</use_staged_search>
-                    <superpage_size>1000</superpage_size>
-                    <max_superpages>25</max_superpages>
+                    <superpage_size>500</superpage_size>
+                    <max_superpages>20</max_superpages>
                     <!-- zip code database file -->
                     <!--<zips_file>/openils/var/data/zips.txt</zips_file>-->
                 </app_settings>
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
index 0e123c92c8..3056109f20 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
@@ -46,10 +46,10 @@ sub initialize {
 			"apps", "open-ils.search", "app_settings", "cache_timeout" ) || 300;
 
 	$superpage_size = $sclient->config_value(
-			"apps", "open-ils.search", "app_settings", "superpage_size" ) || 1000;
+			"apps", "open-ils.search", "app_settings", "superpage_size" ) || 500;
 
 	$max_superpages = $sclient->config_value(
-			"apps", "open-ils.search", "app_settings", "max_superpages" ) || 25;
+			"apps", "open-ils.search", "app_settings", "max_superpages" ) || 20;
 
 	$logger->info("Search cache timeout is $cache_timeout, ".
         " superpage_size is $superpage_size, max_superpages is $max_superpages");
@@ -774,7 +774,11 @@ sub staged_search {
     # limit and offset should coincide with superpage boundaries
     $search_hash->{offset} = 0;
     $search_hash->{limit} = $superpage_size;
-    $search_hash->{check_limit} = $superpage_size; # force a well-known check_limit
+
+    # force a well-known check_limit
+    $search_hash->{check_limit} = $superpage_size; 
+    # restrict total tested to superpage size * number of superpages
+    $search_hash->{core_limit} = $superpage_size * $max_superpages;
 
     # pull any existing results from the cache
     my $key = search_cache_key($method, $search_hash);
@@ -785,6 +789,7 @@ sub staged_search {
     my $all_results = [];
     my $page; # current superpage
     my $est_hit_count = 0;
+    my $current_page_summary = {};
 
     for($page = 0; $page < $max_superpages; $page++) {
 
@@ -820,6 +825,8 @@ sub staged_search {
             cache_staged_search_page($key, $page, $summary, $results) if $docache;
         }
 
+        $current_page_summary = $summary;
+
         # add the new set of results to the set under construction
         push(@$all_results, @$results);
 
@@ -846,6 +853,9 @@ sub staged_search {
 
     return {
         count => $est_hit_count,
+        core_limit => $search_hash->{core_limit},
+        superpage_size => $search_hash->{check_limit},
+        superpage_summary => $current_page_summary,
         ids => \@results
     };
 }
-- 
2.11.0