summaryrefslogtreecommitdiff
path: root/lib/DBInfoscreen/Controller/Stationboard.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/DBInfoscreen/Controller/Stationboard.pm')
-rw-r--r--lib/DBInfoscreen/Controller/Stationboard.pm19
1 files changed, 17 insertions, 2 deletions
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;