Commit 0540c907 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Fix acronym for Wolfenbüttel (closes #6)

parent 50fe58ab

lib/Travel/Status/DE/IRIS/Stations.pm

+1 −1
Original line number Diff line number Diff line
@@ -6531,7 +6531,7 @@ my @stations = ( 
	[ 'RWO',  'Wolfach',                      8006544, 8.221849,  48.293665 ],

	[ 'TWO',  'Wolfegg',                      8006545, 9.808665,  47.824264 ],

	[ 'LWO',  'Wolfen(Bitterfeld)',           8013335, 12.279563, 51.661159 ],

	[ 'HWOL', 'Wolfenbüttel',                8000255, 10.532306, 52.159126 ],

	[ 'HWOH', 'Wolfenbüttel',                8000255, 10.532306, 52.159126 ],

	[ 'LWOR', 'Wolferode',                    8013336, 11.508752, 51.512244 ],

	[ 'UWLH', 'Wölfershausen',               8013329, 10.436588, 50.491507 ],

	[ 'FWOE', 'Wölfersheim-Södel',          8006529, 8.81622,   50.397335 ],

scripts/acronyms.pl

+1 −0
Original line number Diff line number Diff line
@@ -65,6 +65,7 @@ while ( my $line = <STDIN> ) { 
	$station =~ s{ ^ FBUSS    $ }{FBUS}x;

	$station =~ s{ ^ FH \s\s N$ }{FH}x;

	$station =~ s{ ^ FMTN     $ }{FMT}x;

	$station =~ s{ ^ HWOL     $ }{HWOH}x;

	$station =~ s{ ^ KAREP    $ }{KARE}x;

	$station =~ s{ ^ KBR \s P $ }{KBR}x;

	$station =~ s{ ^ KDDH     $ }{KDD}x;