Berlin Hbf is cursed.
This commit is contained in:
parent
dafeb838dc
commit
ab14df0b16
1 changed files with 20 additions and 0 deletions
|
@ -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);
|
||||
|
||||
|
|
Loading…
Reference in a new issue