From 58fe3b8be3c434610354e9954e630da3146cc01a Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat, 11 Nov 2023 00:44:22 +0100
Subject: expose transfer times between consecutive connection sections

---
 lib/Travel/Routing/DE/HAFAS/Connection.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lib/Travel/Routing/DE/HAFAS/Connection.pm')

diff --git a/lib/Travel/Routing/DE/HAFAS/Connection.pm b/lib/Travel/Routing/DE/HAFAS/Connection.pm
index 1eee1bd..9a9e28b 100644
--- a/lib/Travel/Routing/DE/HAFAS/Connection.pm
+++ b/lib/Travel/Routing/DE/HAFAS/Connection.pm
@@ -89,6 +89,16 @@ sub new {
 		);
 	}
 
+	my $prev;
+	for my $sec (@sections) {
+		if ( $sec->type eq 'JNY' ) {
+			if ($prev) {
+				$sec->set_transfer_from_previous_section($prev);
+			}
+			$prev = $sec;
+		}
+	}
+
 	my $tco = {};
 	for my $tco_id ( @{ $connection->{dTrnCmpSX}{tcocX} // [] } ) {
 		my $tco_kv = $opt{common}{tcocL}[$tco_id];
-- 
cgit v1.2.3