From 75a943ffd9c286cb3ffee85f949cf12db14620c0 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 16 Sep 2016 09:17:05 +0200 Subject: Fix another wrong entry in the OpenData station list --- lib/Travel/Status/DE/IRIS/Stations.pm | 2 +- scripts/acronyms.pl | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm b/lib/Travel/Status/DE/IRIS/Stations.pm index d56bba4..9dcf08f 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -2099,7 +2099,7 @@ my @stations = ( [ 'LGG', 'Geestgottberg', 8010121, 11.736957, 52.955743 ], [ 'UGB', 'Gehlberg', 8011603, 10.769351, 50.683768 ], [ 'NGET', 'Geigant', 8002205, 12.681424, 49.323354 ], - [ 'KGKK', 'Geilenkirchen', 8002206, 6.124518, 50.961039 ], + [ 'KGEK', 'Geilenkirchen', 8002206, 6.124518, 50.961039 ], [ 'KGEH', 'Geilhausen', 8002207, 7.638667, 50.77157 ], [ 'MGLG', 'Geiselhöring', 8002209, 12.392077, 48.822392 ], [ 'MGIB', 'Geisenbrunn', 8002210, 11.324847, 48.109157 ], diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index cb9f243..97092f7 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -67,6 +67,7 @@ while ( my $line = ) { $station =~ s{ ^ KDDH $ }{KDD}x; $station =~ s{ ^ KDFFH $ }{KDFF}x; $station =~ s{ ^ KDN \s P $ }{KDN}x; + $station =~ s{ ^ KGKK $ }{KGEK}x; $station =~ s{ ^ KRY \s P $ }{KRY}x; $station =~ s{ ^ TS \s\s T$ }{TST}x; $station =~ s{ ^ TSZ \s F $ }{TSFE}x; -- cgit v1.2.3