diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/db-iris | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/bin/db-iris b/bin/db-iris index 91a1d88..a562212 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -395,6 +395,7 @@ for my $d ( $status->results() ) { ] ); + my @processed_wings; for my $wing ( $d->departure_wings ) { push( @output, @@ -407,8 +408,26 @@ for my $d ( $status->results() ) { $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 ); } } |