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

bin/hafas: handle partial cancellations

parent 55795b6d

bin/hafas

+10 −4
Original line number Diff line number Diff line
@@ -297,12 +297,16 @@ for my $res ( $hafas->connections ) { 
	}



	my $negative_transfer;

	my $part_cancelled;



	my $glance = q{};

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

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

			next;

		}

		if ( $sec->dep_cancelled or $sec->arr_cancelled ) {

			$part_cancelled = 1;

		}

		if ( defined $sec->transfer_duration ) {

			if ( $sec->transfer_duration->in_units('minutes') >= 0 ) {

				$glance .= sprintf(
@@ -321,12 +325,14 @@ for my $res ( $hafas->connections ) { 
		}

	}



	if ( $cancelled or $negative_transfer ) {

	if ( $cancelled or $negative_transfer or $part_cancelled ) {

		printf(

			"--:--  (%02d:%02d)  %s  %s  %s\n",

			"%s  (%02d:%02d)  %s  %s  %s\n",

			$res->dep->strftime('XX.XX. %H:%M'),

			$res->duration->in_units( 'hours', 'minutes' ),

			$res->arr->strftime('%H:%M'),

			display_occupancies( $res->load ), $glance

			display_occupancies( $res->load ),

			$glance

		);

	}

	else {