From 9553442f7a355f3523d4c7242f2430222f5af8c9 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 26 Sep 2016 15:26:00 +0200 Subject: Fix yet another DS100 code error --- 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 9dcf08f..0fe1791 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -4107,7 +4107,7 @@ my @stations = ( [ 'NMOE', 'Mönchröden', 8004064, 11.057613, 50.302227 ], [ 'SML', 'Monreal', 8004078, 7.153055, 50.296357 ], [ 'FMSH', 'Monsheim', 8000663, 8.208162, 49.633666 ], - [ 'FMTN', 'Montabaur', 8000667, 7.825333, 50.444834 ], + [ 'FMT', 'Montabaur', 8000667, 7.825333, 50.444834 ], [ 'SMON', 'Monzingen', 8004080, 7.588673, 49.793466 ], [ 'AMBH', 'Moorbekhalle', 8079023, 9.991744, 53.717155 ], [ 'SMBT', 'Moosbachtal', 8079265, 7.754959, 49.165954 ], diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index 97092f7..097090e 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -62,6 +62,7 @@ while ( my $line = ) { $station =~ s{ ^ EDO \s N $ }{EDO}x; $station =~ s{ ^ FBUSS $ }{FBUS}x; $station =~ s{ ^ FH \s\s N$ }{FH}x; + $station =~ s{ ^ FMTN $ }{FMT}x; $station =~ s{ ^ KAREP $ }{KARE}x; $station =~ s{ ^ KBR \s P $ }{KBR}x; $station =~ s{ ^ KDDH $ }{KDD}x; -- cgit v1.2.3