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