From b409b51f30427af3427b0e0e5fcb76f202b7d1b7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
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/IRIS')

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