From b409b51f30427af3427b0e0e5fcb76f202b7d1b7 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 27 Sep 2016 20:52:29 +0200 Subject: get_station: Support EVA / UIC code --- lib/Travel/Status/DE/IRIS/Stations.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lib/Travel/Status/DE') diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm b/lib/Travel/Status/DE/IRIS/Stations.pm index 0fe1791..3ac7d78 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -8488,6 +8488,12 @@ sub get_station { return ($ds100_match); } + my $eva_match = firstval { defined $_->[2] and $name eq $_->[2] } @stations; + + if ($eva_match) { + return ($eva_match); + } + return get_station_by_name($name); } -- cgit v1.2.3