1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
package FixMyStreet::DB::ResultSet::Nearby;
use base 'DBIx::Class::ResultSet';
use strict;
use warnings;
sub nearby {
my ( $rs, $c, $dist, $ids, $limit, $mid_lat, $mid_lon, $interval ) = @_;
my $params = {
state => [ FixMyStreet::DB::Result::Problem::visible_states() ],
};
$params->{'current_timestamp-lastupdate'} = { '<', \"'$interval'::interval" }
if $interval;
$params->{id} = { -not_in => $ids }
if $ids;
$params = {
%{ $c->cobrand->problems_clause },
%$params
} if $c->cobrand->problems_clause;
my $attrs = {
join => 'problem',
columns => [
'problem.id', 'problem.title', 'problem.latitude',
'problem.longitude', 'distance', 'problem.state',
'problem.confirmed', { 'problem.photo' => 'problem.photo is not null' },
],
bind => [ $mid_lat, $mid_lon, $dist ],
order_by => [ 'distance', { -desc => 'created' } ],
rows => $limit,
};
my @problems = mySociety::Locale::in_gb_locale { $rs->search( $params, $attrs )->all };
return \@problems;
}
# XXX Not currently used, so not migrating at present.
#sub fixed_nearby {
# my ($dist, $mid_lat, $mid_lon) = @_;
# mySociety::Locale::in_gb_locale { select_all(
# "select id, title, latitude, longitude, distance
# from problem_find_nearby(?, ?, $dist) as nearby, problem
# where nearby.problem_id = problem.id and state='fixed'
# site_restriction
# order by lastupdate desc", $mid_lat, $mid_lon);
# }
#}
1;
|
