diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-04-28 14:53:09 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-04-28 14:53:09 +0200 |
| commit | 81bcb5b506c8956193bd5d174aec7f49e6735d2d (patch) | |
| tree | 37dfe69af78650c1de0adf168ecb89593ce3c681 /bin/db-wagenreihung | |
| parent | 2acf6f49808a6fd7cb77f14f8f55f3090e9bc818 (diff) | |
show locomotives as "Lok" rather than "?"
Diffstat (limited to 'bin/db-wagenreihung')
| -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 ""; |