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 3ab34ff..6af3a7a 100644 (file)
--- 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) {