From 9317d6e3bef2d3e018ad4c9ee5f32f40c0c2df09 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 27 Oct 2022 18:30:14 +0200 Subject: parse load/occupancy data --- lib/Travel/Status/DE/HAFAS/Journey.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lib') diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm index 1c0962f..750d1e8 100644 --- a/lib/Travel/Status/DE/HAFAS/Journey.pm +++ b/lib/Travel/Status/DE/HAFAS/Journey.pm @@ -28,6 +28,7 @@ sub new { my @prodL = @{ $opt{common}{prodL} // [] }; my @opL = @{ $opt{common}{opL} // [] }; my @icoL = @{ $opt{common}{icoL} // [] }; + my @tcocL = @{ $opt{common}{tcocL} // [] }; my @remL = @{ $opt{common}{remL} // [] }; my @himL = @{ $opt{common}{himL} // [] }; @@ -120,6 +121,12 @@ sub new { ? ( $rt_dep->epoch - $sched_dep->epoch ) / 60 : undef; + my $tco = {}; + for my $tco_id ( @{ $stop->{dTrnCmpSX}{tcocX} // [] } ) { + my $tco_kv = $tcocL[$tco_id]; + $tco->{ $tco_kv->{c} } = $tco_kv->{r}; + } + push( @stops, { @@ -137,6 +144,7 @@ sub new { dep_delay => $dep_delay, delay => $dep_delay // $arr_delay, direction => $stop->{dDirTxt}, + load => $tco, } ); } -- cgit v1.2.3