Unverified Commit 81bcb5b5 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

show locomotives as "Lok" rather than "?"

parent 2acf6f49

bin/db-wagenreihung

+5 −2
Original line number Diff line number Diff line
@@ -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 "";