include ward in dashboard csv export

Adds a Ward column to the council dashboard CSV export with the name of
the ward.

Fixes mysociety/fixmystreetforcouncils#220

1 files changed, 7 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Dashboard.pm b/perllib/FixMyStreet/App/Controller/Dashboard.pm
index f3989e760..dbbd57623 100644
--- a/perllib/FixMyStreet/App/Controller/Dashboard.pm
+++ b/perllib/FixMyStreet/App/Controller/Dashboard.pm
@@ -212,6 +212,7 @@ sub export_as_csv {
             'Status',
             'Latitude', 'Longitude',
             'Nearest Postcode',
+            'Ward',
             'Report URL',
             );
     my @body = ($csv->string);
@@ -243,6 +244,11 @@ sub export_as_csv {
             }
         }
 
+        my $wards = join ', ',
+          map { $c->stash->{children}->{$_}->{name} }
+          grep {$c->stash->{children}->{$_} }
+          split ',', $hashref->{areas};
+
         $csv->combine(
             @{$hashref}{
                 'id',
@@ -259,6 +265,7 @@ sub export_as_csv {
                 'latitude', 'longitude',
                 'postcode',
                 },
+            $wards,
             (join '', $c->cobrand->base_url_for_report($report), $report->url),
         );