From 77450557cc1c7de07899af23e2154160567e07ad Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sun, 12 Nov 2023 09:32:52 +0100
Subject: Section: expose arr/dep cancellation

---
 lib/Travel/Routing/DE/HAFAS/Connection/Section.pm | 28 ++++++++++++-----------
 1 file changed, 15 insertions(+), 13 deletions(-)

(limited to 'lib/Travel/Routing')

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 ) {
-- 
cgit v1.2.3