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

wr preview: avoid trailing group boundary indicators

parent 0a94f401

lib/DBInfoscreen/Controller/Stationboard.pm

+5 −1
Original line number Diff line number Diff line
@@ -753,6 +753,7 @@ sub render_train { 
						grep { $_->desc_short } $wr->groups );

					my $first = 0;

					for my $group ( $wr->groups ) {

						my $had_entry = 0;

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

							if (

								not(   $wagon->is_locomotive
@@ -790,10 +791,13 @@ sub render_train { 
									@{ $departure->{wr_preview} },

									[ $entry, $class ]

								);

								$had_entry = 1;

							}

						}

						if ($had_entry) {

							$first = 1;

						}

					}

				};

				$departure->{wr_text} ||= 'Wagen';

				return;