diff options
| author | Jon Kristensen <info@jonkri.com> | 2014-05-15 17:41:07 +0200 |
|---|---|---|
| committer | Jon Kristensen <info@jonkri.com> | 2014-05-15 17:41:07 +0200 |
| commit | d6ab834a8e1fb67800785eb781e4f9ecc2e39a5c (patch) | |
| tree | 57330eaed413dd8a200e2d49b1deb91b69dad79f /perllib/FixMyStreet/App/Controller/Dashboard.pm | |
| parent | 87b7c87e1cf83ba043a0254008248595363906c1 (diff) | |
| parent | 966a1a754d7f4f055944212c5523798a7795402f (diff) | |
Merge branch 'master' of git://github.com/mysociety/fixmystreet into jonkri-master
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Dashboard.pm')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Dashboard.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Dashboard.pm b/perllib/FixMyStreet/App/Controller/Dashboard.pm index b5f65d8c8..25c6e1923 100644 --- a/perllib/FixMyStreet/App/Controller/Dashboard.pm +++ b/perllib/FixMyStreet/App/Controller/Dashboard.pm @@ -195,7 +195,7 @@ sub export_as_csv { (defined $value and length $value) ? ($_, $value) : () } sort keys %where }; - my $csv = Text::CSV->new(); + my $csv = Text::CSV->new({ binary => 1, eol => "\n" }); $csv->combine( 'Report ID', 'Title', @@ -264,7 +264,7 @@ sub export_as_csv { } $c->res->content_type('text/csv; charset=utf-8'); $c->res->header('content-disposition' => "attachment; filename=${filename}.csv"); - $c->res->body( join "\n", @body ); + $c->res->body( join "", @body ); } sub updates_search : Private { |