move station -> location map to generic helper

1 files changed, 15 insertions, 0 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index d2ee821..741af2a 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -168,6 +168,21 @@ sub startup {
 		}
 	);
 
+	$self->attr(
+		coordinates_by_station => sub {
+			my %location;
+			for
+			  my $station ( Travel::Status::DE::IRIS::Stations::get_stations() )
+			{
+				if ( $station->[3] ) {
+					$location{ $station->[1] }
+					  = [ $station->[4], $station->[3] ];
+				}
+			}
+			return \%location;
+		}
+	);
+
 	$self->helper(
 		sendmail => sub {
 			state $sendmail = Travelynx::Helper::Sendmail->new(