diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2020-04-29 14:11:54 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2020-04-29 14:11:54 +0100 |
| commit | 19088df5efeb30ba3855893fc5080c5125a85152 (patch) | |
| tree | ac7c5dcc4f5d9879085f5fb526d68f5791cd2cd5 /perllib/FixMyStreet/App/Controller/Dashboard.pm | |
| parent | 6eed68ab198cc1b9fdb683928886f6abff4f7434 (diff) | |
| parent | e1605415077d30c1d5f86017486e74ebc498063a (diff) | |
Merge branch 'server-side-cursor-dashboard-export'
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Dashboard.pm')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Dashboard.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Dashboard.pm b/perllib/FixMyStreet/App/Controller/Dashboard.pm index 058fa3806..ad6c9ba98 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', @@ -348,8 +349,10 @@ sub export_as_csv : Private { my $csv = $c->stash->{csv} = { objects => $c->stash->{objects_rs}->search_rs({}, { - prefetch => 'comments', + join => 'comments', + '+columns' => ['comments.problem_state', 'comments.state', 'comments.confirmed', 'comments.mark_fixed'], order_by => ['me.confirmed', 'me.id'], + cursor_page_size => 1000, }), headers => [ 'Report ID', |