diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2016-09-27 20:52:29 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2016-09-27 20:52:29 +0200 |
| commit | b409b51f30427af3427b0e0e5fcb76f202b7d1b7 (patch) | |
| tree | 4af194e02d4ad8ae826d74fa26d3380c5989c98e | |
| parent | 9553442f7a355f3523d4c7242f2430222f5af8c9 (diff) | |
get_station: Support EVA / UIC code
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Stations.pm | 6 |
1 files changed, 6 insertions, 0 deletions
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); } |