diff options
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Stations.pm | 2 | ||||
| -rwxr-xr-x | scripts/acronyms.pl | 1 |
2 files changed, 2 insertions, 1 deletions
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 = <STDIN> ) { $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; |