summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Travel/Status/DE/IRIS/Stations.pm2
-rwxr-xr-xscripts/acronyms.pl1
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;