summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2023-11-12 09:32:52 +0100
committerBirte Kristina Friesel <derf@finalrewind.org>2023-11-12 09:32:52 +0100
commit77450557cc1c7de07899af23e2154160567e07ad (patch)
tree1a6734a3096a0811713ba96bcb3fef1a72ba9ff3 /lib
parenta1e793e093a47bf5db7f90816430059dbcdf4bf4 (diff)
Section: expose arr/dep cancellation
Diffstat (limited to 'lib')
-rw-r--r--lib/Travel/Routing/DE/HAFAS/Connection/Section.pm28
1 files changed, 15 insertions, 13 deletions
diff --git a/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm b/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm
index 0123626..1cc716e 100644
--- a/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm
+++ b/lib/Travel/Routing/DE/HAFAS/Connection/Section.pm
@@ -14,7 +14,7 @@ our $VERSION = '0.00';
Travel::Routing::DE::HAFAS::Connection::Section->mk_ro_accessors(
qw(type schep_dep rt_dep sched_arr rt_arr dep_datetime arr_datetime arr_delay dep_delay journey distance duration transfer_duration dep_loc arr_loc
- dep_platform arr_platform
+ dep_platform arr_platform dep_cancelled arr_cancelled
operator id name category category_long class number line line_no load delay direction)
);
@@ -73,18 +73,20 @@ sub new {
}
my $ref = {
- type => $sec->{type},
- sched_dep => $sched_dep,
- rt_dep => $rt_dep,
- sched_arr => $sched_arr,
- rt_arr => $rt_arr,
- dep_datetime => $rt_dep // $sched_dep,
- arr_datetime => $rt_arr // $sched_arr,
- dep_loc => $locs->[ $sec->{dep}{locX} ],
- arr_loc => $locs->[ $sec->{arr}{locX} ],
- dep_platform => $sec->{dep}{dplatfR} // $sec->{dep}{dPlatfS},
- arr_platform => $sec->{arr}{aplatfR} // $sec->{arr}{aPlatfS},
- messages => \@messages,
+ type => $sec->{type},
+ sched_dep => $sched_dep,
+ rt_dep => $rt_dep,
+ sched_arr => $sched_arr,
+ rt_arr => $rt_arr,
+ dep_datetime => $rt_dep // $sched_dep,
+ arr_datetime => $rt_arr // $sched_arr,
+ dep_loc => $locs->[ $sec->{dep}{locX} ],
+ arr_loc => $locs->[ $sec->{arr}{locX} ],
+ dep_platform => $sec->{dep}{dplatfR} // $sec->{dep}{dPlatfS},
+ arr_platform => $sec->{arr}{aplatfR} // $sec->{arr}{aPlatfS},
+ dep_cancelled => $sec->{dep}{dCncl},
+ arr_cancelled => $sec->{arr}{aCncl},
+ messages => \@messages,
};
if ( $sched_dep and $rt_dep ) {