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

efa-m: show trip detail delays in braces (we're outputting realtime data)

parent 663a1723

bin/efa-m

+7 −4
Original line number Diff line number Diff line
@@ -346,9 +346,11 @@ sub show_stopseq { 
	say q{};



	my $delay_len       = 0;

	my $inner_delay_len = 0;

	my $max_delay       = max map { abs( $_->delay // 0 ) } $trip->route;

	if ($max_delay) {

		$delay_len = length( sprintf( '%+d', $max_delay ) ) + 1;

		$inner_delay_len = length($max_delay) + 1;

		$delay_len       = length( sprintf( '(%+d)', $max_delay ) ) + 1;

	}



	for my $stop ( $trip->route ) {
@@ -358,7 +360,8 @@ sub show_stopseq { 
			: q{     },

			$stop->dep ? $stop->dep->strftime('%H:%M')

			: q{     },

			$stop->delay ? sprintf( ' %+d', $stop->delay ) : q{},

			$stop->delay ? sprintf( " (%+${inner_delay_len}d)", $stop->delay )

			: q{},

			$stop->full_name,

			$stop->niveau,

			$stop->platform