From: Bill Erickson <berick@esilibrary.com>
Date: Fri, 19 Aug 2011 13:56:48 +0000 (-0400)
Subject: Tpac: fetch bib record piles non-atomicly to avoid large messages
X-Git-Tag: sprint4-merge-nov22~5128^2~41^2~5
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=2e39c96db9d271e35072a10c9b4b55c3c8840677;p=working%2FEvergreen.git

Tpac: fetch bib record piles non-atomicly to avoid large messages

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

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) {