From f3ad5a5ef3d420bf6f191b736a288aaf60f71d5a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 25 Sep 2022 16:54:06 +0200
Subject: connecting trains: HAFAS: Handle delay and pass it to frontend

---
 lib/Travelynx/Controller/Traveling.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm
index a4fe72b..9534912 100755
--- a/lib/Travelynx/Controller/Traveling.pm
+++ b/lib/Travelynx/Controller/Traveling.pm
@@ -326,6 +326,16 @@ sub get_connecting_trains_p {
 									my $arrival
 									  = $strp->parse_datetime(
 										$stop->{arrival} );
+									my $delay = undef;
+									if ( defined $hafas_train->{delay} ) {
+										$delay = $hafas_train->{delay} / 60;
+										if (    $delay
+											and $stop->{arrival} eq
+											$stop->{plannedArrival} )
+										{
+											$arrival->add( minutes => $delay );
+										}
+									}
 									if ( $departure->epoch >= $exclude_before )
 									{
 										$via_count{$dest}++;
@@ -337,6 +347,7 @@ sub get_connecting_trains_p {
 													  $hafas_train->{line}
 													  {name},
 													departure => $departure,
+													departure_delay => $delay
 												},
 												$dest, $arrival
 											]
-- 
cgit v1.2.3