diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-06-21 17:28:24 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-06-21 17:28:24 +0100 |
| commit | bbeb8db833e20bf956bd04700f7c6123e942c92d (patch) | |
| tree | 23aaa704fc74228de5ebf46f63cf101c82fe6e8c /perllib/FixMyStreet/App/Controller/Report/New.pm | |
| parent | acaa7ebf2ebb6f25956fe6045fadbd8772e2d8ae (diff) | |
| parent | 63f8ca8d3fe1e3b52e079e41b29c85d14376f261 (diff) | |
Merge branch '2166-comma-category'
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Report/New.pm')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Report/New.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Report/New.pm b/perllib/FixMyStreet/App/Controller/Report/New.pm index 06885d566..9172de5b6 100644 --- a/perllib/FixMyStreet/App/Controller/Report/New.pm +++ b/perllib/FixMyStreet/App/Controller/Report/New.pm @@ -13,6 +13,7 @@ use Path::Class; use Utils; use mySociety::EmailUtil; use JSON::MaybeXS; +use Text::CSV; use FixMyStreet::SMS; =head1 NAME @@ -1509,8 +1510,11 @@ sub redirect_to_around : Private { foreach (qw(pc zoom)) { $params->{$_} = $c->get_param($_); } + + my $csv = Text::CSV->new; foreach (qw(status filter_category)) { - $params->{$_} = join(',', $c->get_param_list($_, 1)); + $csv->combine($c->get_param_list($_, 1)); + $params->{$_} = $csv->string; } # delete empty values |