Unverified Commit 7c7b5e9f authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Do not show station duplicates in geolocation list

parent b12b5a82

cpanfile

+1 −0
Original line number Diff line number Diff line
@@ -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';

lib/Travelynx/Controller/Traveling.pm

+4 −2
Original line number Diff line number Diff line
@@ -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 ] ],

			}

		);

	}