summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2024-04-28 14:53:09 +0200
committerBirte Kristina Friesel <derf@finalrewind.org>2024-04-28 14:53:09 +0200
commit81bcb5b506c8956193bd5d174aec7f49e6735d2d (patch)
tree37dfe69af78650c1de0adf168ecb89593ce3c681
parent2acf6f49808a6fd7cb77f14f8f55f3090e9bc818 (diff)
show locomotives as "Lok" rather than "?"
-rwxr-xr-xbin/db-wagenreihung7
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 "";