From f40128dedfd431e91960e1271f1a677369941058 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Tue, 2 Apr 2024 17:04:25 +0200 Subject: Convert non-local timestamps to local time zone --- lib/Travel/Routing/DE/HAFAS/Connection.pm | 38 +++++++++++++++++++------------ 1 file changed, 24 insertions(+), 14 deletions(-) (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 5ccf498..05341cc 100644 --- a/lib/Travel/Routing/DE/HAFAS/Connection.pm +++ b/lib/Travel/Routing/DE/HAFAS/Connection.pm @@ -62,20 +62,30 @@ sub new { ); # dProgType/aProgType: CORRECTED oder PROGNOSED - my $sched_dep = $connection->{dep}{dTimeS}; - my $rt_dep = $connection->{dep}{dTimeR}; - my $sched_arr = $connection->{arr}{aTimeS}; - my $rt_arr = $connection->{arr}{aTimeR}; - - for my $ts ( $sched_dep, $rt_dep, $sched_arr, $rt_arr ) { - if ($ts) { - $ts = handle_day_change( - date => $date, - time => $ts, - strp_obj => $strptime, - ); - } - } + my $sched_dep = handle_day_change( + date => $date, + time => $connection->{dep}{dTimeS}, + offset => $connection->{dep}{dTZOffset}, + strp_obj => $strptime, + ); + my $rt_dep = handle_day_change( + date => $date, + time => $connection->{dep}{dTimeR}, + offset => $connection->{dep}{dTZOffset}, + strp_obj => $strptime, + ); + my $sched_arr = handle_day_change( + date => $date, + time => $connection->{arr}{aTimeS}, + offset => $connection->{arr}{aTZOffset}, + strp_obj => $strptime, + ); + my $rt_arr = handle_day_change( + date => $date, + time => $connection->{arr}{aTimeR}, + offset => $connection->{arr}{aTZOffset}, + strp_obj => $strptime, + ); my @sections; for my $sec (@secL) { -- cgit v1.2.3