diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-07 21:03:34 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-07 21:03:34 +0100 |
| commit | 6c191741e82aa908ef59f1059c72bf33d0577de1 (patch) | |
| tree | 6821bb60c8c26b2edb1e21d895b972cca0052ee8 /lib/Travel/Routing/DE/EFA.pm | |
| parent | ddec189cfeaa46d681043eaaaa8d99118f4069c9 (diff) | |
parse and expose arrival delay
Diffstat (limited to 'lib/Travel/Routing/DE/EFA.pm')
| -rw-r--r-- | lib/Travel/Routing/DE/EFA.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm index 6094068..c294a8e 100644 --- a/lib/Travel/Routing/DE/EFA.pm +++ b/lib/Travel/Routing/DE/EFA.pm @@ -658,6 +658,8 @@ sub parse_xml_part { $e_astime //= $e_atime; my $delay = $e_delay ? $e_delay->getAttribute('delayMinutes') : 0; + my $delay_arr + = $e_delay ? $e_delay->getAttribute('delayMinutesArr') : 0; my ( @dep_rms, @dep_sms, @arr_rms, @arr_sms ); @@ -673,8 +675,8 @@ sub parse_xml_part { } my $hash = { - delay => $delay, departure_date => $self->itddate_str($e_ddate), + departure_delay => $delay, departure_time => $self->itdtime_str($e_dtime), departure_sdate => $self->itddate_str($e_dsdate), departure_stime => $self->itdtime_str($e_dstime), @@ -685,6 +687,7 @@ sub parse_xml_part { train_product => $e_mot->getAttribute('productName'), train_destination => $e_mot->getAttribute('destination'), arrival_date => $self->itddate_str($e_adate), + arrival_delay => $delay_arr, arrival_time => $self->itdtime_str($e_atime), arrival_sdate => $self->itddate_str($e_asdate), arrival_stime => $self->itdtime_str($e_astime), |