Commit fdd8b357 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

db-iris: support arrival wings as well

parent 6d8a390d

bin/db-iris

+20 −1
Original line number Original line Diff line number Diff line
@@ -395,6 +395,7 @@ for my $d ( $status->results() ) { 
		]

		]

	);

	);





	my @processed_wings;

	for my $wing ( $d->departure_wings ) {

	for my $wing ( $d->departure_wings ) {

		push(

		push(

			@output,

			@output,
@@ -407,8 +408,26 @@ for my $d ( $status->results() ) { 
				$wing

				$wing

			]

			]

		);

		);

		push( @processed_wings, $wing );

	}

	}

	if ( $d->departure_wings ) {

	for my $wing ( $d->arrival_wings ) {

		if ( not $wing ~~ \@processed_wings ) {

			push(

				@output,

				[

					'├' . '─' x ( length($timestr) - 1 ),

					$wing->train,

					$edata{route}

					? join( q{  }, $wing->route_interesting )

					: q{},

					$wing->route_end,

					$platformstr // q{},

					$wing

				]

			);

		}

	}

	if ( $d->departure_wings or $d->arrival_wings ) {

		$output[-1][0] = '└' . '─' x ( length($timestr) - 1 );

		$output[-1][0] = '└' . '─' x ( length($timestr) - 1 );

	}

	}

}

}