show locomotives as "Lok" rather than "?"

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 "";