summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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 "";