Unverified Commit ab14df0b authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Berlin Hbf is cursed.

parent dafeb838

lib/Travelynx/Helper/IRIS.pm

+20 −0
Original line number Diff line number Diff line
@@ -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);