include easting/northing in dashboard CSV export

Fixes mysociety/fixmystreetforcouncils#221

1 files changed, 6 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Dashboard.pm b/perllib/FixMyStreet/App/Controller/Dashboard.pm
index dbbd57623..867d0659b 100644
--- a/perllib/FixMyStreet/App/Controller/Dashboard.pm
+++ b/perllib/FixMyStreet/App/Controller/Dashboard.pm
@@ -213,6 +213,8 @@ sub export_as_csv {
             'Latitude', 'Longitude',
             'Nearest Postcode',
             'Ward',
+            'Easting',
+            'Northing',
             'Report URL',
             );
     my @body = ($csv->string);
@@ -249,6 +251,8 @@ sub export_as_csv {
           grep {$c->stash->{children}->{$_} }
           split ',', $hashref->{areas};
 
+        my @local_coords = $report->local_coords;
+
         $csv->combine(
             @{$hashref}{
                 'id',
@@ -266,6 +270,8 @@ sub export_as_csv {
                 'postcode',
                 },
             $wards,
+            $local_coords[0],
+            $local_coords[1],
             (join '', $c->cobrand->base_url_for_report($report), $report->url),
         );