From 2a725966f0a8ba80ecaa5f1b7533e8b5c1df650b Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 19 Aug 2011 09:56:48 -0400 Subject: [PATCH] Tpac: fetch bib record piles non-atomicly to avoid large messages Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm index 3ab34ff6db..6af3a7a9fe 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Util.pm @@ -236,7 +236,7 @@ sub fetch_marc_xml_by_id { "select" => {"bre" => ["id", "marc"]}, "from" => {"bre" => {}}, "where" => {"id" => $id_list} - }) or return $self->editor->die_event; + }, {substream => 1}) or return $self->editor->die_event; my $marc_xml = {}; for my $r (@$results) { -- 2.11.0