diff options
Diffstat (limited to 'perllib/FixMyStreet/DB/ResultSet/Nearby.pm')
| -rw-r--r-- | perllib/FixMyStreet/DB/ResultSet/Nearby.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/DB/ResultSet/Nearby.pm b/perllib/FixMyStreet/DB/ResultSet/Nearby.pm index ab554eb9d..b075e3664 100644 --- a/perllib/FixMyStreet/DB/ResultSet/Nearby.pm +++ b/perllib/FixMyStreet/DB/ResultSet/Nearby.pm @@ -10,7 +10,7 @@ sub to_body { } sub nearby { - my ( $rs, $c, $dist, $ids, $limit, $mid_lat, $mid_lon, $categories, $states ) = @_; + my ( $rs, $c, $dist, $ids, $limit, $mid_lat, $mid_lon, $categories, $states, $extra_params ) = @_; unless ( $states ) { $states = FixMyStreet::DB::Result::Problem->visible_states(); @@ -27,6 +27,9 @@ sub nearby { $rs = $c->cobrand->problems_restriction($rs); + # Add in any optional extra query parameters + $params = { %$params, %$extra_params } if $extra_params; + my $attrs = { prefetch => 'problem', bind => [ $mid_lat, $mid_lon, $dist ], |