Commit d8b46dff authored by Knuspel's avatar Knuspel
Browse files

Added links for old/new station names.

parent 74a1f731
Loading
Loading
Loading
Loading
+61 −0
Original line number Diff line number Diff line
@@ -194,6 +194,64 @@ sub startup {

	$self->attr(
		coordinates_by_station => sub {
			my %legacy_names = (
			'Nordbögge' => 'Bönen-Nordbögge',
			'Hamm(Westf)' => 'Hamm(Westf)Hbf',
			'Cottbus' => 'Cottbus Hbf',
			'Delft Zuid' => 'Delft Campus',
			'Barchel, Oerel' => 'Barchel',
			'Biedenkopf-Schulzentrum' => 'Biedenkopf Campus',
			'Bruchsal Tunnelstr' => 'Bruchsal Tunnelstraße',
			'Einbeck Salzderhelden' => 'Einbeck-Salzderhelden',
			'Eindhoven' => 'Eindhoven Centraal',
			'Escherndorf-Vogelburg' => 'Escherndorf-Vogelsburg',
			'Essel, Kutenholz' => 'Essel',
			'Europapl./Postgalerie (Karl), Karlsruhe' => 'Europaplatz/Postgalerie (Karls, Karlsruhe',
			'Furth i Wald' => 'Furth im Wald',
			'Germersheim Bahnhof' => 'Germersheim',
			'Glossen (b Oschatz)' => 'Glossen(b Oschatz)',
			'Gondelsheim Schloßstadion' => 'Gondelsheim Schlossstadion',
			'Hagen, Stade' => 'Hagen(Kr. Stade)',
			'Holzgerlingen Nord' => 'Holzgerlingen Hülben',
			'Karlsruhe Albtalbf' => 'Karlsruhe Albtalbahnhof',
			'Karlsruhe Durlacher Tor' => 'Karlsruhe Durlacher Tor / KIT-Campus Süd',
			'Karlsruhe Mühlburger Tor' => 'Karlsruhe Mühlburger Tor (Kaiserallee)',
			'Korbach' => 'Korbach Hbf',
			'Merseburg' => 'Merseburg Hbf',
			'Münster(b Dieburg)' => 'Münster(Hessen)',
			'Neu Isenburg' => 'Neu-Isenburg',
			'Niebüll, Sylt Shuttle' => 'Niebüll Autoverladung',
			'Olen' => 'Olen(Belgien)',
			'Rahden(Kr Lübbecke)' => 'Rahden',
			'Riegel-Malterd.NE' => 'Riegel-Malterdingen NE',
			'Siegen' => 'Siegen Hbf',
			'Stendal' => 'Stendal Hbf',
			'Teisnach Rohde&Schwarz' => 'Teisnach Rohde+Schwarz',
			'Thalheim (b Oschatz)' => 'Thalheim(b Oschatz)',
			'Timmendorferstrand' => 'Timmendorfer Strand',
			'Waldkraiburg' => 'Waldkraiburg-Kraiburg',
			'Weinheim(Bergstr)' => 'Weinheim(Bergstr)Hbf',
			'Werningerode' => 'Weringerode Hbf',
			'Westerland(Sylt), Sylt Shuttle' => 'Westerland (Sylt) Autoverladung',
			'Stryck' => 'Willingen-Stryck',
			'Rudersdorf(Siegen)' => 'Wilnsdorf-Rudersdorf',
			'Holzhausen-Heddinghausen' => 'Bad Holzhausen',
			'Hummelberg' => 'Berghausen Hummelberg',
			'Wehrden' => 'Beverungen-Wehrden',
			'Bockum-Hövel' => 'Hamm-Bockum-Hövel',
			'Brügge(Westf)' => 'Lüdenscheid-Brügge',
			'Dieringhausen' => 'Gummersbach-Dieringhausen',
			'Eisenbach-Matzenbach' => 'Matzenbach',
			'Godelheim' => 'Höxter-Godelheim',
			'Heessen' => 'Hamm-Heessen',
			'Lüchtringen' => 'Höxter-Lüchtringen',
			'Ottbergen' => 'Höxter-Ottbergen',
			'Preußen' => 'Lünen-Preußen',
			'Rudersdorf(Siegen)' => 'Wilnsdorf-Rudersdorf',
			'St Augustin Markt' => 'Sankt Augustin Zentrum',
			'Untersulzbach' => 'Sulzbachtal',
			'Freiburg West' => 'Freiburg-Landwasser',
			);
			my %location;
			for
			  my $station ( Travel::Status::DE::IRIS::Stations::get_stations() )
@@ -203,6 +261,9 @@ sub startup {
					  = [ $station->[4], $station->[3] ];
				}
			}
			while (my ($old_name, $new_name) = each %legacy_names) {
				$location{$old_name} = $location{$new_name};
			}
			return \%location;
		}
	);