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

geolocation: expose distance of dbris and efa stops

parent 2e771d74

lib/Travelynx/Controller/Traveling.pm

+8 −5
Original line number Diff line number Diff line
@@ -186,11 +186,14 @@ sub geolocation { 
		)->then(

			sub {

				my ($dbris)  = @_;

				my $distance = GIS::Distance->new;

				my @results  = map {

					{

						name     => $_->name,

						eva      => $_->eva,

						distance => 0,

						distance => $distance->distance_metal(

							$lat, $lon, $_->lat, $_->lon

						),

						dbris => $dbris_service,

					}

				} uniq_by { $_->name } $dbris->results;
@@ -239,7 +242,7 @@ sub geolocation { 
					{

						name     => $_->full_name,

						eva      => $_->id_code,

						distance => 0,

						distance => $_->distance_m / 1e3,

						efa      => $efa_service,

					}

				} $efa->results;