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

Section: parse load data

parent 692c8d22

bin/hafas

+2 −2
Original line number Diff line number Diff line
@@ -348,8 +348,8 @@ for my $res ( $hafas->connections ) { 


	for my $sec ( $res->sections ) {

		if ( $sec->type eq 'JNY' ) {

			printf( "${output_bold}%s${output_reset} → %s\n",

				$sec->name, $sec->direction );

			printf( "${output_bold}%s${output_reset} → %s  %s\n",

				$sec->name, $sec->direction, display_occupancies($sec->load) );

			printf(

				"%-5s %-${delay_fmt}s ab  %s%s%s\n",

				$sec->dep_cancelled

lib/Travel/Routing/DE/HAFAS/Connection/Section.pm

+14 −1
Original line number Diff line number Diff line
@@ -72,7 +72,12 @@ sub new { 
		}

	}



	# TODO load

	my $tco = {};

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

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

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

	}



	# TODO operator



	my $ref = {
@@ -89,6 +94,7 @@ sub new { 
		arr_platform  => $sec->{arr}{aplatfR} // $sec->{arr}{aPlatfS},

		dep_cancelled => $sec->{dep}{dCncl},

		arr_cancelled => $sec->{arr}{aCncl},

		load          => $tco,

		messages      => \@messages,

	};
@@ -286,6 +292,13 @@ The line identifier may be a single number such as "11" (underground train line 
U 11), a single word such as "AIR" or a combination (e.g. "SB16").  May also

provide line numbers of IC/ICE services.



=item $sec->load



Maximum expected occupancy along this section.

Returns a hashref with keys FIRST and SECOND; each value ranges from 1

(low occupancy) to 4 (fully booked).

Returns undef if occupancy data is not available.



=item $section->messages



List of Travel::Status::DE::HAFAS::Message(3pm) objects associated with this