From: Jason Stephenson <jstephenson@mvlc.org>
Date: Thu, 26 Jul 2012 17:45:06 +0000 (-0400)
Subject: Make the ContainerCSV reactor output more than 10 records.
X-Git-Tag: sprint4-merge-nov22~3816
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=5e892c31a8b66ac0029d70446581ee4bae2dc018;p=working%2FEvergreen.git

Make the ContainerCSV reactor output more than 10 records.

Call AppUtils->bib_container_items_via_search with an args hashref
that hard codes the search limit to 1,000 records instead of using
the biblio.multiclass search default of 10.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
Signed-off-by: Ben Shum <bshum@biblio.org>
Signed-off-by: Dan Scott <dscott@laurentian.ca>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Reactor/ContainerCSV.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Reactor/ContainerCSV.pm
index 6e2306e05a..5749ee052b 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Reactor/ContainerCSV.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Trigger/Reactor/ContainerCSV.pm
@@ -28,9 +28,14 @@ sub handler {
 
     # get items for bookbags (bib containers of btype bookbag)
     if ($env->{user_data}{item_search}) {
+        # Since the search is by default limited to 10, let's bump the limit
+        # to 1,000 just for giggles. This oughta be a setting, either YAOUS
+        # or YAUS.
+        my $args = {limit => 1000};
+
         # use the search api for bib container items.  fetch record IDs only.
         my $items = $U->bib_container_items_via_search(
-            $env->{target}->id, $env->{user_data}{item_search}, undef, 1 
+            $env->{target}->id, $env->{user_data}{item_search}, $args, 1
         ) or return 0;  # TODO build error output for db?
 
         $env->{items} = $items;