package FixMyStreet::App::Controller::Location; use Moose; use namespace::autoclean; BEGIN {extends 'Catalyst::Controller'; } use Encode; =head1 NAME FixMyStreet::App::Controller::Location - Catalyst Controller =head1 DESCRIPTION Catalyst Controller. This is purely an internal controller for keeping all the location finding things in one place =head1 METHODS =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') || $c->req->param('lat'); my $longitude = $c->req->param('longitude') || $c->req->param('lon'); 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 $c->forward( 'check_location' ); } 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, $pc ) = @_; # check for something to search $pc ||= $c->req->param('pc') || return; $c->stash->{pc} = $pc; # for template my ( $latitude, $longitude, $error ) = FixMyStreet::Geocode::lookup( $pc, $c ); # 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 $c->forward( 'check_location' ); } # $error doubles up to return multiple choices by being an array if ( ref($error) eq 'ARRAY' ) { foreach (@$error) { my $a = decode_utf8($_->{address}); $a =~ s/, United Kingdom//; $a =~ s/, UK//; $_->{address} = $a; } $c->stash->{possible_location_matches} = $error; return; } # pass errors back to the template $c->stash->{location_error} = $error; return; } =head2 check_location Just make sure that for UK installs, our co-ordinates are indeed in the UK. =cut sub check_location : Private { my ( $self, $c ) = @_; if ( $c->stash->{latitude} && $c->cobrand->country eq 'GB' ) { eval { Utils::convert_latlon_to_en( $c->stash->{latitude}, $c->stash->{longitude} ); }; if (my $error = $@) { mySociety::Locale::pop(); # We threw exception, so it won't have happened. $error = _('That location does not appear to be in Britain; please try again.') if $error =~ /of the area covered/; $c->stash->{location_error} = $error; return; } } return 1; } =head1 AUTHOR Struan Donald =head1 LICENSE This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. =cut __PACKAGE__->meta->make_immutable; 1;