From 7c7b5e9f9536f70c92d66c4055090b46e26c4c11 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 20 Jul 2019 15:42:11 +0200 Subject: Do not show station duplicates in geolocation list --- lib/Travelynx/Controller/Traveling.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm index ca29594..7599dd0 100755 --- a/lib/Travelynx/Controller/Traveling.pm +++ b/lib/Travelynx/Controller/Traveling.pm @@ -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 ] ], } ); } -- cgit v1.2.3