summaryrefslogtreecommitdiff
path: root/lib/Travel/Routing/DE/HAFAS
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2024-03-27 06:40:08 +0100
committerBirte Kristina Friesel <derf@finalrewind.org>2024-03-27 06:40:08 +0100
commit293d2d1a4fbfd294f18f9c632703dcae04f28ee4 (patch)
tree37d4a075d384fef056d91acb2add1f7e76b7d4b7 /lib/Travel/Routing/DE/HAFAS
parentfc95f2a3ceef03f076ee268d71ce11d5765a6c37 (diff)
Adjust for Travel::Status::DE::HAFAS 6.00 (unreleased)
Diffstat (limited to 'lib/Travel/Routing/DE/HAFAS')
-rw-r--r--lib/Travel/Routing/DE/HAFAS/Connection.pm10
-rw-r--r--lib/Travel/Routing/DE/HAFAS/Connection/Section.pm10
2 files changed, 12 insertions, 8 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,
diff --git a/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm b/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm
index ed61b99..ed6cb0b 100644
--- a/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm
+++ b/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm
@@ -27,7 +27,8 @@ sub new {
my $hafas = $opt{hafas};
my $sec = $opt{sec};
my $date = $opt{date};
- 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} // [] };
@@ -86,8 +87,8 @@ sub new {
rt_arr => $rt_arr,
dep => $rt_dep // $sched_dep,
arr => $rt_arr // $sched_arr,
- dep_loc => $locs->[ $sec->{dep}{locX} ],
- arr_loc => $locs->[ $sec->{arr}{locX} ],
+ dep_loc => $locL->[ $sec->{dep}{locX} ],
+ arr_loc => $locL->[ $sec->{arr}{locX} ],
dep_platform => $sec->{dep}{dplatfR} // $sec->{dep}{dPlatfS},
arr_platform => $sec->{arr}{aplatfR} // $sec->{arr}{aPlatfS},
dep_cancelled => $sec->{dep}{dCncl},
@@ -109,7 +110,8 @@ sub new {
$ref->{journey} = Travel::Status::DE::HAFAS::Journey->new(
common => $opt{common},
date => $date,
- locL => $locs,
+ locL => $locL,
+ prodL => $prodL,
journey => $sec->{jny},
hafas => $hafas,
);