Berlin Hbf is cursed.

derf · Feb 25, 2024 · ab14df0 · ab14df0
1 parent dafeb83
commit ab14df0
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/lib/Travelynx/Helper/IRIS.pm b/lib/Travelynx/Helper/IRIS.pm
@@ -28,6 +28,16 @@ sub get_departures {
 	my $lookahead    = $opt{lookahead}    // 30;
 	my $with_related = $opt{with_related} // 0;
 
+	# Berlin Hbf exists twice:
+	# - BLS / 8011160
+	# - BL / 8098160 (formerly "Berlin Hbf (tief)")
+	# Right now, travelynx assumes that station name -> EVA / DS100 is a unique
+	# map.  This is not the case. Work around it here until travelynx has been
+	# adjusted properly.
+	if ( $station eq 'Berlin Hbf' or $station eq '8011160' ) {
+		$with_related = 1;
+	}
+
 	my @station_matches
 	  = Travel::Status::DE::IRIS::Stations::get_station($station);
 
@@ -85,6 +95,16 @@ sub get_departures_p {
 	my $lookahead    = $opt{lookahead}    // 30;
 	my $with_related = $opt{with_related} // 0;
 
+	# Berlin Hbf exists twice:
+	# - BLS / 8011160
+	# - BL / 8098160 (formerly "Berlin Hbf (tief)")
+	# Right now, travelynx assumes that station name -> EVA / DS100 is a unique
+	# map.  This is not the case. Work around it here until travelynx has been
+	# adjusted properly.
+	if ( $station eq 'Berlin Hbf' or $station eq '8011160' ) {
+		$with_related = 1;
+	}
+
 	my @station_matches
 	  = Travel::Status::DE::IRIS::Stations::get_station($station);