41 lines
1.1 KiB
Perl
41 lines
1.1 KiB
Perl
package Pear::LocalLoop::Plugin::Postcodes;
|
|
use Mojo::Base 'Mojolicious::Plugin';
|
|
|
|
use DateTime::Format::Strptime;
|
|
|
|
sub register {
|
|
my ( $plugin, $app, $conf ) = @_;
|
|
|
|
$app->helper( get_location_from_postcode => sub {
|
|
my ( $c, $postcode, $usertype ) = @_;
|
|
my $postcode_obj = Geo::UK::Postcode::Regex->parse( $postcode );
|
|
|
|
my $location;
|
|
|
|
unless ( defined $postcode_obj && $postcode_obj->{non_geographical} ) {
|
|
my $pc_result = $c->schema->resultset('GbPostcode')->find({
|
|
incode => $postcode_obj->{incode},
|
|
outcode => $postcode_obj->{outcode},
|
|
});
|
|
if ( defined $pc_result ) {
|
|
# Force truncation here as SQLite is stupid
|
|
$location = {
|
|
latitude => (
|
|
$usertype eq 'customer'
|
|
? int($pc_result->latitude * 100 ) / 100
|
|
: $pc_result->latitude
|
|
),
|
|
longitude => (
|
|
$usertype eq 'customer'
|
|
? int($pc_result->longitude * 100 ) / 100
|
|
: $pc_result->longitude
|
|
),
|
|
};
|
|
}
|
|
}
|
|
return $location;
|
|
});
|
|
}
|
|
|
|
1;
|