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 49f42d6..92951f5 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -1462,7 +1462,7 @@ my @stations = ( [ 'KDUK', 'Duckterath', 8001566, 7.103496, 50.984815 ], [ 'SDUW', 'Dudweiler', 8001570, 7.027351, 49.277299 ], [ 'KDUL', 'Dülken', 8001571, 6.33793, 51.257149 ], - [ 'EDULH', 'Dülmen', 8000083, 7.295765, 51.827676 ], + [ 'EDUL', 'Dülmen', 8000083, 7.295765, 51.827676 ], [ 'KDN', 'Düren', 8000084, 6.482451, 50.809517 ], [ 'KDNS', 'Düren Annakirmesplatz', 8007818, 6.474259, 50.796237 ], [ 'KDNG', 'Düren Im Großen Tal', 8007836, 6.47431, 50.83302 ], diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index fec94a5..a9a990a 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -60,6 +60,7 @@ while ( my $line = <STDIN> ) { $station =~ s{ ^ EBIL $ }{EBILP}x; $station =~ s{ ^ EBLA $ }{EBP}x; $station =~ s{ ^ EBTHP $ }{EBTH}x; + $station =~ s{ ^ EDULH $ }{EDUL}x; $station =~ s{ ^ EDO \s N $ }{EDO}x; $station =~ s{ ^ FBUSS $ }{FBUS}x; $station =~ s{ ^ FH \s\s N$ }{FH}x; |