PrivateCoffee/travelynx
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Do not show station duplicates in geolocation list

Browse source
This commit is contained in:
Daniel Friesel 2019-07-20 15:42:11 +02:00
parent b12b5a821b
commit 7c7b5e9f95
No known key found for this signature in database
GPG key ID: 100D5BFB5166E005
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
cpanfile
View file

@ -5,6 +5,7 @@ requires 'DateTime::Format::Strptime';
requires 'Email::Sender';
requires 'Geo::Distance';
requires 'Geo::Distance::XS';
requires 'List::UtilsBy';
requires 'Mojolicious';
requires 'Mojolicious::Plugin::Authentication';
requires 'Mojo::Pg';

6
lib/Travelynx/Controller/Traveling.pm
View file

@ -3,6 +3,7 @@ use Mojo::Base 'Mojolicious::Controller';
use DateTime;
use DateTime::Format::Strptime;
use List::UtilsBy qw(uniq_by);
use Travel::Status::DE::IRIS::Stations;
sub homepage {
@ -137,10 +138,11 @@ sub geolocation {
distance => $_->[1],
}
} Travel::Status::DE::IRIS::Stations::get_station_by_location( $lon,
$lat, 5 );
$lat, 10 );
@candidates = uniq_by { $_->{name} } @candidates;
$self->render(
json => {
candidates => [@candidates],
candidates => [ @candidates[ 0 .. 4 ] ],
}
);
}