diff options
author | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-09-24 14:08:05 +0100 |
---|---|---|
committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-10-03 16:41:28 +0100 |
commit | c50a525da9c8ec5267c4ba9498e4334b87fe851b (patch) | |
tree | d0cb4fcadcd49618d1ab23bb23434c4189606c84 /perllib/FixMyStreet/App/Controller | |
parent | 4186ebbc258326d05915bef0ffb15cd364f6be67 (diff) |
Add two fields to dashboard CSV export.
Diffstat (limited to 'perllib/FixMyStreet/App/Controller')
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Dashboard.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Dashboard.pm b/perllib/FixMyStreet/App/Controller/Dashboard.pm index aadd913ca..7dc09186b 100644 --- a/perllib/FixMyStreet/App/Controller/Dashboard.pm +++ b/perllib/FixMyStreet/App/Controller/Dashboard.pm @@ -300,6 +300,8 @@ sub export_as_csv : Private { 'Easting', 'Northing', 'Report URL', + 'Site Used', + 'Reported As', ], columns => [ 'id', @@ -319,6 +321,8 @@ sub export_as_csv : Private { 'local_coords_x', 'local_coords_y', 'url', + 'site_used', + 'reported_as', ], filename => do { my %where = ( @@ -398,6 +402,9 @@ sub generate_csv : Private { $report->local_coords; $hashref->{url} = join '', $c->cobrand->base_url_for_report($report), $report->url; + $hashref->{site_used} = $report->service || $report->cobrand; + $hashref->{reported_as} = $report->get_extra_metadata('contributed_as') || ''; + if (my $fn = $c->stash->{csv}->{extra_data}) { my $extra = $fn->($report); $hashref = { %$hashref, %$extra }; |