[Peterborough] Add USRN, nearest address to CSV.

1 files changed, 22 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/Cobrand/Peterborough.pm b/perllib/FixMyStreet/Cobrand/Peterborough.pm
index cb7da18af..16c3a01e4 100644
--- a/perllib/FixMyStreet/Cobrand/Peterborough.pm
+++ b/perllib/FixMyStreet/Cobrand/Peterborough.pm
@@ -98,4 +98,26 @@ around 'open311_config' => sub {
     $self->$orig($row, $h, $params);
 };
 
+sub dashboard_export_problems_add_columns {
+    my ($self, $csv) = @_;
+
+    $csv->add_csv_columns(
+        usrn => 'USRN',
+        nearest_address => 'Nearest address',
+    );
+
+    $csv->csv_extra_data(sub {
+        my $report = shift;
+
+        my $address = '';
+        $address = $report->geocode->{resourceSets}->[0]->{resources}->[0]->{name}
+            if $report->geocode;
+
+        return {
+            usrn => $report->get_extra_field_value('site_code'),
+            nearest_address => $address,
+        };
+    });
+}
+
 1;