From 81bcb5b506c8956193bd5d174aec7f49e6735d2d Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sun, 28 Apr 2024 14:53:09 +0200 Subject: show locomotives as "Lok" rather than "?" --- bin/db-wagenreihung | 7 +++++-- 1 file 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 ""; -- cgit v1.2.3