diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2013-02-20 15:12:36 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2013-02-20 15:12:36 +0000 |
| commit | a92354b7d65d172723c5d1e0c6054fb069229c96 (patch) | |
| tree | 84cb3a7ab43b7b3216e499a09fb05653e10fde2d | |
| parent | f749ca5086240b1bc9276617396863eaa6fcb91e (diff) | |
Zurich CSV header, and add category.
| -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); |