show occupancy data if available (b8c76060) · Commits · derf / Travel-Routing-DE-EFA

bin/efa

+12 −0

Original line number	Diff line number	Diff line
		@@ -228,6 +228,18 @@ sub display_connection {
		}
		}

		if ( $c->occupancy ) {
		if ( $c->occupancy == 1 ) {
		say "# geringe Auslastung";
		}
		elsif ( $c->occupancy == 2 ) {
		say "# hohe Auslastung";
		}
		elsif ( $c->occupancy == 3 ) {
		say "# sehr hohe Auslastung";
		}
		}

		for my $notice ( $c->current_notes ) {
		if ( $notice->subtitle ne $notice->subject ) {
		printf( "# %s - %s\n", $notice->subtitle, $notice->subject );

+1 −0

Original line number	Diff line number	Diff line
		@@ -682,6 +682,7 @@ sub parse_xml_part {
		departure_stime => $self->itdtime_str($e_dstime),
		departure_stop => $e_dep->getAttribute('name'),
		departure_platform => $e_dep->getAttribute('platformName'),
		occupancy => $e_dep->getAttribute('occupancy'),
		train_line => $e_mot->getAttribute('name'),
		train_product => $e_mot->getAttribute('productName'),
		train_destination => $e_mot->getAttribute('destination'),

+14 −0

Original line number	Diff line number	Diff line
		@@ -8,6 +8,12 @@ use parent 'Class::Accessor';

		our $VERSION = '2.19';

		my %occupancy = (
		MANY_SEATS => 1,
		FEW_SEATS => 2,
		STANDING_ONLY => 3
		);

		Travel::Routing::DE::EFA::Route::Part->mk_ro_accessors(
		qw(arrival_platform arrival_stop
		arrival_date arrival_time arrival_sdate arrival_stime delay
		@@ -15,6 +21,7 @@ Travel::Routing::DE::EFA::Route::Part->mk_ro_accessors(
		departure_stop departure_date departure_time departure_sdate
		departure_stime
		footpath_duration footpath_type
		occupancy
		train_destination train_line train_product
		)
		);
		@@ -24,6 +31,13 @@ sub new {

		my $ref = \%conf;

		if ( $ref->{occupancy} and exists $occupancy{ $ref->{occupancy} } ) {
		$ref->{occupancy} = $occupancy{ $ref->{occupancy} };
		}
		else {
		delete $ref->{occupancy};
		}

		return bless( $ref, $obj );
		}