From 5e892c31a8b66ac0029d70446581ee4bae2dc018 Mon Sep 17 00:00:00 2001
From: Jason Stephenson <jstephenson@mvlc.org>
Date: Thu, 26 Jul 2012 13:45:06 -0400
Subject: [PATCH] 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>
---
.../lib/OpenILS/Application/Trigger/Reactor/ContainerCSV.pm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
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;
--
2.11.0