From c0f9ce8253c837acbfb5c7e431f569a2dc247ab9 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 11 May 2016 22:54:29 +0200
Subject: public geolocation json format

---
 index.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'index.pl')

diff --git a/index.pl b/index.pl
index 155fd18..e93350c 100644
--- a/index.pl
+++ b/index.pl
@@ -826,8 +826,18 @@ post '/_geolocation' => sub {
 		$self->render(json => {error => 'Invalid lon/lat received'});
 	}
 	else {
+		my @candidates = map {
+			{
+				ds100 => $_->[0][0],
+				name => $_->[0][1],
+				eva => $_->[0][2],
+				lon => $_->[0][3],
+				lat => $_->[0][4],
+				distance => $_->[1],
+			}
+		} Travel::Status::DE::IRIS::Stations::get_stations_by_location($lon, $lat, 10);
 		$self->render(json => {
-			candidates => [ Travel::Status::DE::IRIS::Stations::get_stations_by_location($lon, $lat, 10) ],
+			candidates => [ @candidates ],
 		});
 	}
 };
-- 
cgit v1.2.3