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

station board: parse load (tcocX) as well

parent 9317d6e3

bin/hafas-m

+7 −0
Original line number Diff line number Diff line
@@ -293,6 +293,13 @@ for my $d ( $status->results ) { 
		}

	}



	if ( $d->load ) {

		$info_line

		  = display_occupancy( $d->load->{FIRST} )

		  . display_occupancy( $d->load->{SECOND} ) . '  '

		  . $info_line;

	}



	push(

		@output,

		[

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

+10 −1
Original line number Diff line number Diff line
@@ -15,7 +15,7 @@ our $VERSION = '3.01'; 
Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(

	qw(datetime sched_datetime rt_datetime is_cancelled operator delay

	  platform sched_platform rt_platform

	  id name type type_long number line

	  id name type type_long number line load

	  route_end route_start origin destination direction)

);
@@ -216,6 +216,15 @@ sub new { 
		else {

			$ref->{datetime} = $ref->{sched_datetime};

		}



		my %tco;

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

			my $tco_kv = $tcocL[$tco_id];

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

		}

		if (%tco) {

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

		}

	}

	if ( $opt{polyline} ) {

		$ref->{polyline} = $opt{polyline};