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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
package FixMyStreet::App::Controller::Around;
use Moose;
use namespace::autoclean;
BEGIN { extends 'Catalyst::Controller'; }
use FixMyStreet::Map;
use List::MoreUtils qw(any);
use Encode;
=head1 NAME
FixMyStreet::App::Controller::Around - Catalyst Controller
=head1 DESCRIPTION
Allow the user to search for reports around a particular location.
=head1 METHODS
=head2 around
Find the location search and display nearby reports (for pc or lat,lon).
For x,y searches convert to lat,lon and 301 redirect to them.
If no search redirect back to the homepage.
=cut
sub around_index : Path : Args(0) {
my ( $self, $c ) = @_;
# check for x,y requests and redirect them to lat,lon
my $x = $c->req->param('x');
my $y = $c->req->param('y');
if ( $x || $y ) {
my ( $lat, $lon ) = FixMyStreet::Map::tile_xy_to_wgs84( $x, $y );
my $ll_uri = $c->uri_for( '/around', { lat => $lat, lon => $lon } );
$c->res->redirect( $ll_uri, 301 );
return;
}
# Try to create a location for whatever we have
return
unless $c->forward('determine_location_from_coords')
|| $c->forward('determine_location_from_pc');
# Check to see if the spot is covered by a council - if not show an error.
return unless $c->forward('check_location_is_acceptable');
# If we have a partial - redirect to /report/new so that it can be
# completed.
warn "FIXME - implement";
# Show the nearby reports
die "show nearby reports";
}
=head2 determine_location_from_coords
Use latitude and longitude if provided in parameters.
=cut
sub determine_location_from_coords : Private {
my ( $self, $c ) = @_;
my $latitude = $c->req->param('latitude');
my $longitude = $c->req->param('longitude');
if ( defined $latitude && defined $longitude ) {
$c->stash->{latitude} = $latitude;
$c->stash->{longitude} = $longitude;
# Also save the pc if there is one
if ( my $pc = $c->req->param('pc') ) {
$c->stash->{pc} = $pc;
}
return 1;
}
return;
}
=head2 determine_location_from_pc
User has searched for a location - try to find it for them.
If one match is found returns true and lat/lng is set.
If several possible matches are found puts an array onto stash so that user can be prompted to pick one and returns false.
If no matches are found returns false.
=cut
sub determine_location_from_pc : Private {
my ( $self, $c ) = @_;
# check for something to search
my $pc = $c->req->param('pc') || return;
$c->stash->{pc} = $pc; # for template
my ( $latitude, $longitude, $error ) =
eval { FixMyStreet::Geocode::lookup( $pc, $c->req ) };
# Check that nothing blew up
if ($@) {
warn "Error: $@";
return;
}
# If we got a lat/lng set to stash and return true
if ( defined $latitude && defined $longitude ) {
$c->stash->{latitude} = $latitude;
$c->stash->{longitude} = $longitude;
return 1;
}
# $error doubles up to return multiple choices by being an array
if ( ref($error) eq 'ARRAY' ) {
@$error = map {
decode_utf8($_);
s/, United Kingdom//;
s/, UK//;
$_;
} @$error;
$c->stash->{possible_location_matches} = $error;
return;
}
# pass errors back to the template
$c->stash->{pc_error} = $error;
return;
}
=head2 check_location_is_acceptable
Find the lat and lon in stash and check that they are acceptable to the council,
and that they are in UK (if we are in UK).
=cut
sub check_location_is_acceptable : Private {
my ( $self, $c ) = @_;
# These should be set now
my $lat = $c->stash->{latitude};
my $lon = $c->stash->{longitude};
# Check this location is okay to be displayed for the cobrand
my ( $success, $error_msg ) = $c->cobrand->council_check( #
{ lat => $lat, lon => $lon },
'submit_problem'
);
# If in UK and we have a lat,lon coocdinate check it is in UK
if ( !$error_msg && $lat && $c->config->{COUNTRY} eq 'GB' ) {
eval { Utils::convert_latlon_to_en( $lat, $lon ); };
$error_msg =
_( "We had a problem with the supplied co-ordinates - outside the UK?"
) if $@;
}
# all good
return 1 if !$error_msg;
# show error
$c->stash->{pc_error} = $error_msg;
return;
}
__PACKAGE__->meta->make_immutable;
1;
|
