Unverified Commit 84664d24 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Journey, Stop: handle BVG utilization data

parent 563feae6

lib/Travel/Status/DE/HAFAS/Journey.pm

+10 −1
Original line number Diff line number Diff line
@@ -221,7 +221,16 @@ sub new { 
		my %tco;

		for my $tco_id ( @{ $journey->{stbStop}{dTrnCmpSX}{tcocX} // [] } ) {

			my $tco_kv = $tcocL[$tco_id];

			$tco{ $tco_kv->{c} } = $tco_kv->{r};



			# BVG has rRT (real-time?) and r (prognosed?); others only have r

			my $load = $tco_kv->{rRT} // $tco_kv->{r};



			# BVG uses 11 .. 13 rather than 1 .. 4

			if ( $load > 10 ) {

				$load -= 10;

			}



			$tco{ $tco_kv->{c} } = $load;

		}

		if (%tco) {

			$ref->{load} = \%tco;

lib/Travel/Status/DE/HAFAS/Stop.pm

+10 −1
Original line number Diff line number Diff line
@@ -135,7 +135,16 @@ sub new { 
	$ref->{load} = {};

	for my $tco_id ( @{ $stop->{dTrnCmpSX}{tcocX} // [] } ) {

		my $tco_kv = $common->{tcocL}[$tco_id];

		$ref->{load}{ $tco_kv->{c} } = $tco_kv->{r};



		# BVG has rRT (real-time?) and r (prognosed?); others only have r

		my $load = $tco_kv->{rRT} // $tco_kv->{r};



		# BVG uses 11 .. 13 rather than 1 .. 4

		if ( $load > 10 ) {

			$load -= 10;

		}



		$ref->{load}{ $tco_kv->{c} } = $load;

	}



	return $ref;