From b9cf7d7919c33fb38284cf74bcaff854c4dd2a76 Mon Sep 17 00:00:00 2001 From: Dan Wells Date: Thu, 15 Mar 2018 12:00:01 -0400 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/lib/OpenILS/Application/Reporter.pm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) 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( -- 2.11.0