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 7251df4..8d2fe41 100644 (file)
--- 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 {
@@ -127,7 +128,13 @@ sub retrieve_folder_data {
     };
     $flesh->{limit} = $limit if $limit;
     $flesh->{offset} = $offset if $offset;
-    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(