summaryrefslogtreecommitdiff
path: root/lib/DBInfoscreen
diff options
context:
space:
mode:
Diffstat (limited to 'lib/DBInfoscreen')
-rw-r--r--lib/DBInfoscreen/Controller/Stationboard.pm4
-rw-r--r--lib/DBInfoscreen/Controller/Wagenreihung.pm14
2 files changed, 14 insertions, 4 deletions
diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index 752b099..b168b6b 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -673,7 +673,9 @@ sub render_train {
departure => $departure,
linetype => $linetype,
icetype => $self->app->ice_type_map->{ $departure->{train_no} },
- dt_now => DateTime->now( time_zone => 'Europe/Berlin' ),
+ details =>
+ $self->app->train_details_db->{ $departure->{train_no} },
+ dt_now => DateTime->now( time_zone => 'Europe/Berlin' ),
station_name => $station_name,
nav_link => '/' . $station_name,
);
diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm
index 63366a2..36f486b 100644
--- a/lib/DBInfoscreen/Controller/Wagenreihung.pm
+++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm
@@ -6,6 +6,8 @@ package DBInfoscreen::Controller::Wagenreihung;
use Mojo::Base 'Mojolicious::Controller';
+use utf8;
+
use Travel::Status::DE::DBWagenreihung;
use Travel::Status::DE::DBWagenreihung::Wagon;
@@ -24,11 +26,12 @@ sub zugbildung_db {
my @wagons;
- for my $wagon_number ( sort { $a <=> $b } keys %{ $details->{wagon} } ) {
+ for my $wagon ( @{ $details->{wagons} } ) {
+ my ( $wagon_type, $wagon_number ) = @{$wagon};
my %wagon = (
fahrzeugnummer => "",
- fahrzeugtyp => $details->{wagon}{$wagon_number},
- kategorie => "",
+ fahrzeugtyp => $wagon_type,
+ kategorie => $wagon_type =~ m{^[0-9.]+$} ? 'LOK' : '',
train_no => $train_no,
wagenordnungsnummer => $wagon_number,
positionamhalt => {
@@ -56,10 +59,15 @@ sub zugbildung_db {
my $train_type = $details->{raw};
$train_type =~ s{ - .* }{}x;
+ my $route_start = $details->{route}{start} // $details->{route}{preStart};
+ my $route_end = $details->{route}{end} // $details->{route}{postEnd};
+ my $route = "${route_start} → ${route_end}";
+
$self->render(
'zugbildung_db',
wr_error => undef,
title => $train_type . ' ' . $train_no,
+ route => $route,
zb => $details,
train_no => $train_no,
wagons => [@wagons],