From: Dan Wells <dbw2@calvin.edu>
Date: Thu, 15 Mar 2018 16:00:01 +0000 (-0400)
Subject: LP#1756142 Stream other reporter data retrievals
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b9cf7d7919c33fb38284cf74bcaff854c4dd2a76;p=working%2FEvergreen.git

LP#1756142 Stream other reporter data retrievals

Similar to the "schedule" data, things like templates and reports can
also get too large to send en masse.

These are both handled by a generic function, so let's make that stream
as well.

Signed-off-by: Dan Wells <dbw2@calvin.edu>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Reporter.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Reporter.pm
index eb3bfb2378..5b02916818 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Reporter.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Reporter.pm
@@ -105,7 +105,8 @@ sub retrieve_visible_folders {
 
 __PACKAGE__->register_method(
     api_name => 'open-ils.reporter.folder_data.retrieve',
-    method => 'retrieve_folder_data'
+    method => 'retrieve_folder_data',
+    stream => 1
 );
 
 sub retrieve_folder_data {
@@ -126,7 +127,13 @@ sub retrieve_folder_data {
         order_by => { $class => 'create_time DESC'}
     };
     $flesh->{limit} = $limit if $limit;
-    return $e->$meth([{ folder => $folderid }, $flesh]);
+
+    my $items = $e->$meth([{ folder => $folderid }, $flesh]);
+    foreach my $item (@$items) {
+        $conn->respond($item);
+    }
+
+    return undef;
 }
 
 __PACKAGE__->register_method(