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 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;