[Oxfordshire] Include external problem reference in CSV export

For https://github.com/mysociety/fixmystreet-commercial/issues/1876

1 files changed, 15 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/Cobrand/Oxfordshire.pm b/perllib/FixMyStreet/Cobrand/Oxfordshire.pm
index 12714185d..481fb7d6e 100644
--- a/perllib/FixMyStreet/Cobrand/Oxfordshire.pm
+++ b/perllib/FixMyStreet/Cobrand/Oxfordshire.pm
@@ -197,4 +197,19 @@ sub available_permissions {
     return $perms;
 }
 
+sub dashboard_export_problems_add_columns {
+    my $self = shift;
+    my $c = $self->{c};
+
+    push @{$c->stash->{csv}->{headers}}, "HIAMS Ref";
+    push @{$c->stash->{csv}->{columns}}, "customer_reference";
+
+    $c->stash->{csv}->{extra_data} = sub {
+        my $ref = shift->get_extra_metadata('customer_reference') || '';
+        return {
+            customer_reference => $ref,
+        };
+    };
+}
+
 1;