Commit 6992ed85 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Fix DS100 code for Dülmen

parent 32b564c9
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -1462,7 +1462,7 @@ my @stations = (
	[ 'KDUK',  'Duckterath',                    8001566, 7.103496,  50.984815 ],
	[ 'SDUW',  'Dudweiler',                     8001570, 7.027351,  49.277299 ],
	[ 'KDUL',  'Dülken',                       8001571, 6.33793,   51.257149 ],
	[ 'EDULH', 'Dülmen',                       8000083, 7.295765,  51.827676 ],
	[ 'EDUL',  'Dülmen',                       8000083, 7.295765,  51.827676 ],
	[ 'KDN',   'Düren',                        8000084, 6.482451,  50.809517 ],
	[ 'KDNS',  'Düren Annakirmesplatz',        8007818, 6.474259,  50.796237 ],
	[ 'KDNG',  'Düren Im Großen Tal',         8007836, 6.47431,   50.83302 ],
+1 −0
Original line number Diff line number Diff line
@@ -60,6 +60,7 @@ while ( my $line = <STDIN> ) {
	$station =~ s{ ^ EBIL     $ }{EBILP}x;
	$station =~ s{ ^ EBLA     $ }{EBP}x;
	$station =~ s{ ^ EBTHP    $ }{EBTH}x;
	$station =~ s{ ^ EDULH    $ }{EDUL}x;
	$station =~ s{ ^ EDO \s N $ }{EDO}x;
	$station =~ s{ ^ FBUSS    $ }{FBUS}x;
	$station =~ s{ ^ FH \s\s N$ }{FH}x;