summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/DBInfoscreen.pm10
-rw-r--r--lib/DBInfoscreen/Controller/Stationboard.pm1
2 files changed, 11 insertions, 0 deletions
diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm
index c784e96..6335490 100644
--- a/lib/DBInfoscreen.pm
+++ b/lib/DBInfoscreen.pm
@@ -190,6 +190,16 @@ sub startup {
= (qw(help_outline person_outline people priority_high));
my $text = 'Auslastung unbekannt';
+ if ( $occupancy eq 'MANY_SEATS' ) {
+ $occupancy = 1;
+ }
+ elsif ( $occupancy eq 'FEW_SEATS' ) {
+ $occupancy = 2;
+ }
+ elsif ( $occupancy eq 'STANDING_ONLY' ) {
+ $occupancy = 3;
+ }
+
if ( $occupancy > 2 ) {
$text = 'Sehr hohe Auslastung erwartet';
}
diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index e36b550..4691a86 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -1513,6 +1513,7 @@ sub handle_efa {
is_cancelled => $result->is_cancelled,
linetype => $linetype,
delay => $result->delay,
+ occupancy => $result->occupancy,
replaced_by => [],
replacement_for => [],
route_pre => [],