diff options
author | Matthew Somerville <matthew@mysociety.org> | 2020-05-07 10:13:15 +0100 |
---|---|---|
committer | Matthew Somerville <matthew@mysociety.org> | 2020-05-07 10:13:15 +0100 |
commit | ab0d1dc84b1ed7a1c572e986eda3a4bdc5157d77 (patch) | |
tree | 92f7637a4350d8211d0620a0420ba44724bfefad /perllib/FixMyStreet/App/Controller/Dashboard.pm | |
parent | 2773c60226b9370fe8ee00f7b205b571bb87c3b5 (diff) | |
parent | 730d25ae7218d731590b322d4f419a7df6d4e4fb (diff) |
Merge branch '2991-updates-on-categories'
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Dashboard.pm')
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Dashboard.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Dashboard.pm b/perllib/FixMyStreet/App/Controller/Dashboard.pm index ad6c9ba98..f3b607ba8 100644 --- a/perllib/FixMyStreet/App/Controller/Dashboard.pm +++ b/perllib/FixMyStreet/App/Controller/Dashboard.pm @@ -591,7 +591,15 @@ sub heatmap_sidebar :Private { order_by => 'lastupdate', })->all ]; - my $params = { map { my $n = $_; s/me\./problem\./; $_ => $where->{$n} } keys %$where }; + my $params = { map { + my $v = $where->{$_}; + if (ref $v eq 'HASH') { + $v = { map { my $vv = $v->{$_}; s/me\./problem\./; $_ => $vv } keys %$v }; + } else { + s/me\./problem\./; + } + $_ => $v; + } keys %$where }; my $body = $c->stash->{body}; my @user; |