diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2019-05-14 10:22:15 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2019-05-14 10:22:15 +0100 |
| commit | 345a03f5ad2d71948ca4383682a5549f3053486b (patch) | |
| tree | 8b156f90f383c5987138f115e6f7437075ad04bb /perllib/FixMyStreet/DB/ResultSet/Problem.pm | |
| parent | 1a7835da6ee96d0287c4523110ebb01f662cafd6 (diff) | |
| parent | f7873a97d3be13251da30f12705c3dafa5468995 (diff) | |
Merge in upgraded Catalyst branch.
Diffstat (limited to 'perllib/FixMyStreet/DB/ResultSet/Problem.pm')
| -rw-r--r-- | perllib/FixMyStreet/DB/ResultSet/Problem.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/DB/ResultSet/Problem.pm b/perllib/FixMyStreet/DB/ResultSet/Problem.pm index 9e45ac35e..4f7c1dc5f 100644 --- a/perllib/FixMyStreet/DB/ResultSet/Problem.pm +++ b/perllib/FixMyStreet/DB/ResultSet/Problem.pm @@ -273,7 +273,7 @@ sub categories_summary { sub include_comment_counts { my $rs = shift; my $order_by = $rs->{attrs}{order_by}; - return $rs unless ref $order_by eq 'HASH' && $order_by->{-desc} eq 'comment_count'; + return $rs unless ref $order_by eq 'ARRAY' && ref $order_by->[0] eq 'HASH' && $order_by->[0]->{-desc} eq 'comment_count'; $rs->search({}, { '+select' => [ { "" => \'(select count(*) from comment where problem_id=me.id and state=\'confirmed\')', |