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 22625f3..2598675 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -750,7 +750,7 @@ my @stations = ( [ 'FBIK', 'Biedenkopf', 8000952, 8.529989, 50.909113 ], [ 'FBIZ', 'Biedenkopf-Schulzentrum', 8000954, 8.517706, 50.915125 ], [ 'LBZ', 'Biederitz', 8010047, 11.716466, 52.15271 ], - [ 'EBIL', 'Bielefeld Hbf', 8000036, 8.532722, 52.029261 ], + [ 'EBILP', 'Bielefeld Hbf', 8000036, 8.532722, 52.029261 ], [ 'EBIO', 'Bielefeld Ost', 8000953, 8.559416, 52.024013 ], [ 'EBIS', 'Bielefeld-Senne', 8000956, 8.520335, 51.965118 ], [ 'LBF', 'Biendorf', 8011184, 11.856411, 51.756861 ], diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index 6067c44..920a9d9 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -57,6 +57,7 @@ while ( my $line = <STDIN> ) { $name =~ s{\s+}{ }g; $name =~ s{'}{\\'}g; + $station =~ s{ ^ EBIL $ }{EBILP}x; $station =~ s{ ^ EBLA $ }{EBP}x; $station =~ s{ ^ EBTHP $ }{EBTH}x; $station =~ s{ ^ EDO \s N $ }{EDO}x; |