From 35bf3022330602242d0d8dbf7a7b2a7b2bd66e71 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Wed, 1 May 2024 12:29:59 +0200 Subject: Indicate carriages belonging to other trains in carriage formation preview --- lib/DBInfoscreen/Controller/Stationboard.pm | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm index 4d8406e..017e4f2 100644 --- a/lib/DBInfoscreen/Controller/Stationboard.pm +++ b/lib/DBInfoscreen/Controller/Stationboard.pm @@ -759,13 +759,19 @@ sub render_train { or $wagon->is_powercar ) ) { + my $class; if ($first) { - push( @{ $departure->{wr_preview} }, '•' ); + push( + @{ $departure->{wr_preview} }, + [ '•', 'meta' ] + ); $first = 0; + say "-"; } my $entry; if ( $wagon->is_closed ) { $entry = 'X'; + $class = 'closed'; } else { $entry = $wagon->number @@ -776,7 +782,16 @@ sub render_train { : $wagon->type ); } - push( @{ $departure->{wr_preview} }, $entry ); + if ( + $group->train_no ne $departure->{train_no} ) + { + $class = 'otherno'; + } + say $entry; + push( + @{ $departure->{wr_preview} }, + [ $entry, $class ] + ); } } $first = 1; -- cgit v1.2.3