From 07bcce9b4129552ceaa1e48998b4f7720929fa20 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Fri, 22 Dec 2023 23:01:46 +0100
Subject: Switch to T-S-DE-HAFAS 5.03

---
 lib/DBInfoscreen/Helper/HAFAS.pm | 35 +++++++++++++++++------------------
 1 file changed, 17 insertions(+), 18 deletions(-)

(limited to 'lib/DBInfoscreen/Helper/HAFAS.pm')

diff --git a/lib/DBInfoscreen/Helper/HAFAS.pm b/lib/DBInfoscreen/Helper/HAFAS.pm
index e5c82e7..65cddeb 100644
--- a/lib/DBInfoscreen/Helper/HAFAS.pm
+++ b/lib/DBInfoscreen/Helper/HAFAS.pm
@@ -232,25 +232,24 @@ sub get_route_timestamps_p {
 
 			my $station_is_past = 1;
 			for my $stop ( $journey->route ) {
-				my $name = $stop->{name};
-				$ret->{$name} = $ret->{ $stop->{eva} } = {
-					name           => $stop->{name},
-					eva            => $stop->{eva},
-					sched_arr      => $stop->{sched_arr},
-					sched_dep      => $stop->{sched_dep},
-					rt_arr         => $stop->{rt_arr},
-					rt_dep         => $stop->{rt_dep},
-					arr_delay      => $stop->{arr_delay},
-					dep_delay      => $stop->{dep_delay},
-					arr_cancelled  => $stop->{arr_cancelled},
-					dep_cancelled  => $stop->{dep_cancelled},
-					platform       => $stop->{platform},
-					sched_platform => $stop->{sched_platform},
-					load           => $stop->{load},
+				my $name = $stop->loc->name;
+				$ret->{$name} = $ret->{ $stop->loc->eva } = {
+					name           => $stop->loc->name,
+					eva            => $stop->loc->eva,
+					sched_arr      => $stop->sched_arr,
+					sched_dep      => $stop->sched_dep,
+					rt_arr         => $stop->rt_arr,
+					rt_dep         => $stop->rt_dep,
+					arr_delay      => $stop->arr_delay,
+					dep_delay      => $stop->dep_delay,
+					arr_cancelled  => $stop->arr_cancelled,
+					dep_cancelled  => $stop->dep_cancelled,
+					platform       => $stop->platform,
+					sched_platform => $stop->sched_platform,
+					load           => $stop->load,
 					isCancelled    => (
-						( $stop->{arr_cancelled} or not $stop->{sched_arr} )
-						  and
-						  ( $stop->{dep_cancelled} or not $stop->{sched_dep} )
+						      ( $stop->arr_cancelled or not $stop->sched_arr )
+						  and ( $stop->dep_cancelled or not $stop->sched_dep )
 					),
 				};
 				if (
-- 
cgit v1.2.3