From 35bf3022330602242d0d8dbf7a7b2a7b2bd66e71 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
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