diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-12 09:32:52 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-12 09:32:52 +0100 |
| commit | 77450557cc1c7de07899af23e2154160567e07ad (patch) | |
| tree | 1a6734a3096a0811713ba96bcb3fef1a72ba9ff3 /lib/Travel/Routing/DE/HAFAS | |
| parent | a1e793e093a47bf5db7f90816430059dbcdf4bf4 (diff) | |
Section: expose arr/dep cancellation
Diffstat (limited to 'lib/Travel/Routing/DE/HAFAS')
| -rw-r--r-- | lib/Travel/Routing/DE/HAFAS/Connection/Section.pm | 28 |
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 ) { |