Added links for old/new station names.

1 files changed, 61 insertions, 0 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index de6b1bc..1ecf276 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -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;
 		}
 	);