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 92951f5..70b6e02 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -6531,7 +6531,7 @@ my @stations = ( [ 'RWO', 'Wolfach', 8006544, 8.221849, 48.293665 ], [ 'TWO', 'Wolfegg', 8006545, 9.808665, 47.824264 ], [ 'LWO', 'Wolfen(Bitterfeld)', 8013335, 12.279563, 51.661159 ], - [ 'HWOL', 'Wolfenbüttel', 8000255, 10.532306, 52.159126 ], + [ 'HWOH', 'Wolfenbüttel', 8000255, 10.532306, 52.159126 ], [ 'LWOR', 'Wolferode', 8013336, 11.508752, 51.512244 ], [ 'UWLH', 'Wölfershausen', 8013329, 10.436588, 50.491507 ], [ 'FWOE', 'Wölfersheim-Södel', 8006529, 8.81622, 50.397335 ], diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index a9a990a..b9e478b 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -65,6 +65,7 @@ while ( my $line = <STDIN> ) { $station =~ s{ ^ FBUSS $ }{FBUS}x; $station =~ s{ ^ FH \s\s N$ }{FH}x; $station =~ s{ ^ FMTN $ }{FMT}x; + $station =~ s{ ^ HWOL $ }{HWOH}x; $station =~ s{ ^ KAREP $ }{KARE}x; $station =~ s{ ^ KBR \s P $ }{KBR}x; $station =~ s{ ^ KDDH $ }{KDD}x; |