From a0d40e1a354cfd6c53e97a5fc72001091d33a04f Mon Sep 17 00:00:00 2001 From: Matthew Somerville Date: Tue, 28 Apr 2020 15:38:54 +0100 Subject: Use server cursors on dashboard export. --- perllib/FixMyStreet/App/Controller/Dashboard.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perllib/FixMyStreet/App/Controller') diff --git a/perllib/FixMyStreet/App/Controller/Dashboard.pm b/perllib/FixMyStreet/App/Controller/Dashboard.pm index 058fa3806..27c8630f0 100644 --- a/perllib/FixMyStreet/App/Controller/Dashboard.pm +++ b/perllib/FixMyStreet/App/Controller/Dashboard.pm @@ -328,6 +328,7 @@ sub export_as_csv_updates : Private { objects => $c->stash->{objects_rs}->search_rs({}, { order_by => ['me.confirmed', 'me.id'], '+columns' => ['problem.bodies_str'], + cursor_page_size => 1000, }), headers => [ 'Report ID', 'Update ID', 'Date', 'Status', 'Problem state', @@ -350,6 +351,7 @@ sub export_as_csv : Private { objects => $c->stash->{objects_rs}->search_rs({}, { prefetch => 'comments', order_by => ['me.confirmed', 'me.id'], + cursor_page_size => 1000, }), headers => [ 'Report ID', -- cgit v1.2.3