aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChris Mytton <self@hecticjeff.net>2013-09-06 16:30:50 +0100
committerChris Mytton <self@hecticjeff.net>2013-09-06 16:30:50 +0100
commit3704a07ef4a94a7e20d01f9b5a9cdb8fcc449e89 (patch)
tree581e8375bdfec53c2627d82ef209063d7a5d7017
parent04b187d5347dd2d26874a83902e51c2532ef8a2f (diff)
[Zurich] Add report state to admin stats csv
-rw-r--r--perllib/FixMyStreet/Cobrand/Zurich.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Zurich.pm b/perllib/FixMyStreet/Cobrand/Zurich.pm
index ffdc1feab..c74e41e10 100644
--- a/perllib/FixMyStreet/Cobrand/Zurich.pm
+++ b/perllib/FixMyStreet/Cobrand/Zurich.pm
@@ -592,10 +592,10 @@ sub admin_stats {
);
if ( $c->req->params->{export} ) {
- my $problems = $c->model('DB::Problem')->search( { %params }, { columns => [ 'id', 'created', 'latitude', 'longitude', 'cobrand', 'category' ] } );
- my $body = "ID,Created,E,N,Category\n";
+ my $problems = $c->model('DB::Problem')->search( { %params }, { columns => [ 'id', 'created', 'latitude', 'longitude', 'cobrand', 'category', 'state' ] } );
+ my $body = "ID,Created,E,N,Category,Status\n";
while (my $report = $problems->next) {
- $body .= join( ',', $report->id, $report->created, $report->local_coords, $report->category ) . "\n";
+ $body .= join( ',', $report->id, $report->created, $report->local_coords, $report->category, $report->state ) . "\n";
}
$c->res->content_type('text/csv; charset=utf-8');
$c->res->body($body);