diff options
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/Zurich.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Zurich.pm b/perllib/FixMyStreet/Cobrand/Zurich.pm index e53de03c3..d21dade0d 100644 --- a/perllib/FixMyStreet/Cobrand/Zurich.pm +++ b/perllib/FixMyStreet/Cobrand/Zurich.pm @@ -591,9 +591,9 @@ sub admin_stats { if ( $c->req->params->{export} ) { my $problems = $c->model('DB::Problem')->search( { %params }, { columns => [ 'id', 'created', 'latitude', 'longitude', 'cobrand' ] } ); - my $body = ''; + my $body = 'ID,Created,E,N,Category'; while (my $report = $problems->next) { - $body .= join( ',', $report->id, $report->created, $report->local_coords ) . "\n"; + $body .= join( ',', $report->id, $report->created, $report->local_coords, $report->category ) . "\n"; } $c->res->content_type('text/csv; charset=utf-8'); $c->res->body($body); |