diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-03-27 06:40:08 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-03-27 06:40:08 +0100 |
| commit | 293d2d1a4fbfd294f18f9c632703dcae04f28ee4 (patch) | |
| tree | 37d4a075d384fef056d91acb2add1f7e76b7d4b7 /lib/Travel/Routing/DE/HAFAS/Connection.pm | |
| parent | fc95f2a3ceef03f076ee268d71ce11d5765a6c37 (diff) | |
Adjust for Travel::Status::DE::HAFAS 6.00 (unreleased)
Diffstat (limited to 'lib/Travel/Routing/DE/HAFAS/Connection.pm')
| -rw-r--r-- | lib/Travel/Routing/DE/HAFAS/Connection.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/Travel/Routing/DE/HAFAS/Connection.pm b/lib/Travel/Routing/DE/HAFAS/Connection.pm index 51c3a03..95c54f4 100644 --- a/lib/Travel/Routing/DE/HAFAS/Connection.pm +++ b/lib/Travel/Routing/DE/HAFAS/Connection.pm @@ -24,7 +24,8 @@ sub new { my $hafas = $opt{hafas}; my $connection = $opt{connection}; - my $locs = $opt{locL}; + my $locL = $opt{locL}; + my $prodL = $opt{prodL}; # himL may only be present in departure monitor mode my @remL = @{ $opt{common}{remL} // [] }; @@ -83,7 +84,8 @@ sub new { Travel::Routing::DE::HAFAS::Connection::Section->new( common => $opt{common}, date => $date, - locL => $locs, + locL => $locL, + prodL => $prodL, sec => $sec, hafas => $hafas, ) @@ -126,8 +128,8 @@ sub new { // $connection->{dep}{dPlatfS}, arr_platform => $connection->{arr}{aPlatfR} // $connection->{arr}{aPlatfS}, - dep_loc => $locs->[ $connection->{dep}{locX} ], - arr_loc => $locs->[ $connection->{arr}{locX} ], + dep_loc => $locL->[ $connection->{dep}{locX} ], + arr_loc => $locL->[ $connection->{arr}{locX} ], load => $tco, messages => \@messages, sections => \@sections, |