From: Bill Erickson <berick@esilibrary.com>
Date: Wed, 10 Aug 2011 14:23:32 +0000 (-0400)
Subject: Stream records to ML for Vandelay queue export
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=38ed96cab162e58dfc089d00a20e60336693b44a;p=contrib%2FConifer.git

Stream records to ML for Vandelay queue export

Since queued records, with their marcxml blobs, are fairly large, avoid
fetching them atomically when possible.

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

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
index 4a3d345781..2b563a85b0 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
@@ -521,7 +521,7 @@ sub retrieve_queued_records {
         'search_vandelay_queued_bib_record' : 'search_vandelay_queued_authority_record';
 
     if ($self->api_name =~ /export/) {
-        my $rec_list = $e->$search({id => [map { $_->{id} } @$record_ids]});
+        my $rec_list = $e->$search({id => [map { $_->{id} } @$record_ids]}, {substream => 1});
         if ($self->api_name =~ /print/) {
 
             $e->rollback;