Berlin Hbf is cursed.

This commit is contained in:
Birte Kristina Friesel 2024-02-25 06:50:03 +01:00
parent dafeb838dc
commit ab14df0b16
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA

View file

@ -28,6 +28,16 @@ sub get_departures {
my $lookahead = $opt{lookahead} // 30; my $lookahead = $opt{lookahead} // 30;
my $with_related = $opt{with_related} // 0; 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 my @station_matches
= Travel::Status::DE::IRIS::Stations::get_station($station); = Travel::Status::DE::IRIS::Stations::get_station($station);
@ -85,6 +95,16 @@ sub get_departures_p {
my $lookahead = $opt{lookahead} // 30; my $lookahead = $opt{lookahead} // 30;
my $with_related = $opt{with_related} // 0; 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 my @station_matches
= Travel::Status::DE::IRIS::Stations::get_station($station); = Travel::Status::DE::IRIS::Stations::get_station($station);