diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2016-06-25 20:07:11 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2016-06-25 20:07:11 +0200 |
| commit | b245e3a0786cfcd76c5fe91987870af3774f4446 (patch) | |
| tree | 12363c2014b930f278c274db15b1f19b10ef35b1 | |
| parent | e9b63cdead046b656d0f9e6b7ecbccc523363994 (diff) | |
fix Stuttgart Hbf (tief) and Stuttgart-Feuerbach (errors in data source)
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Stations.pm | 4 | ||||
| -rwxr-xr-x | scripts/acronyms.pl | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm b/lib/Travel/Status/DE/IRIS/Stations.pm index 9051cab..3055a9c 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -5848,7 +5848,7 @@ my @stations = ( [ 'TSFS', 'Stuttgart Feuersee', 8006699, 9.166273, 48.772768 ], [ 'TFL', 'Stuttgart Flughafen/Messe', 8005768, 9.19263, 48.690648 ], [ 'TS', 'Stuttgart Hbf', 8000096, 9.181635, 48.784084 ], - [ 'TS T', 'Stuttgart Hbf (tief)', 8098096, 9.179808, 48.782999 ], + [ 'TST', 'Stuttgart Hbf (tief)', 8098096, 9.179808, 48.782999 ], [ 'TSNS', 'Stuttgart Neckarpark', 8006743, 9.241595, 48.792173 ], [ 'TSN', 'Stuttgart Nord', 8005767, 9.188026, 48.803769 ], [ 'TSNU', 'Stuttgart Nürnberger Str.', 8004357, 9.234858, 48.806423 ], @@ -5856,7 +5856,7 @@ my @stations = ( [ 'TSMI', 'Stuttgart Stadtmitte', 8006700, 9.172925, 48.776229 ], [ 'TSUN', 'Stuttgart Universität', 8006513, 9.105398, 48.745837 ], [ 'TSC', 'Stuttgart-Bad Cannstatt', 8005769, 9.217531, 48.801377 ], - [ 'TSZ F', 'Stuttgart-Feuerbach', 8005770, 9.169382, 48.813673 ], + [ 'TSFE', 'Stuttgart-Feuerbach', 8005770, 9.169382, 48.813673 ], [ 'TSM', 'Stuttgart-Münster', 8005771, 9.21586, 48.820724 ], [ 'TSOM', 'Stuttgart-Obertürkheim', 8005772, 9.267889, 48.762013 ], [ 'TSOS', 'Stuttgart-Österfeld', 8005779, 9.116774, 48.737651 ], diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index ffc14bd..d4ba9cb 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -68,6 +68,8 @@ while ( my $line = <STDIN> ) { $station =~ s{ ^ KDFFH $ }{KDFF}x; $station =~ s{ ^ KDN \s P $ }{KDN}x; $station =~ s{ ^ KRY \s P $ }{KRY}x; + $station =~ s{ ^ TS \s\s T$ }{TST}x; + $station =~ s{ ^ TSZ \s F $ }{TSFE}x; printf( "\t['%s','%s',%s,%s,%s],\n", |