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

dbwagenreihung: use group train type rather than global one

parent b88c154c

bin/db-wagenreihung

+1 −1
Original line number Original line Diff line number Diff line
@@ -160,7 +160,7 @@ for my $group ( $wr->groups ) { 
		say $group->description || 'Zug';

		say $group->description || 'Zug';

	}

	}

	printf( "%s %s  → %s\n\n",

	printf( "%s %s  → %s\n\n",

		$wr->train_type, $group->train_no, $group->destination );

		$group->train_type, $group->train_no, $group->destination );





	for my $wagon ( $group->carriages ) {

	for my $wagon ( $group->carriages ) {

		printf(

		printf(