diff options
| -rwxr-xr-x | bin/db-wagenreihung | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/bin/db-wagenreihung b/bin/db-wagenreihung index 71e42f8..ed8b76f 100755 --- a/bin/db-wagenreihung +++ b/bin/db-wagenreihung @@ -166,9 +166,12 @@ for my $group ( $wr->groups ) { for my $wagon ( $group->wagons ) { printf( "%3s: %3s %10s %s\n", - $wagon->is_closed ? 'X' : ( $wagon->number || '?' ), + $wagon->is_closed ? 'X' + : $wagon->is_locomotive ? 'Lok' + : $wagon->number || '?', $wagon->model || '???', - $wagon->type, join( q{ }, $wagon->attributes ) + $wagon->type, + join( q{ }, $wagon->attributes ) ); } say ""; |