From 4609b7312d67063b2cb0d5803260d7dc25475bc2 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 14 Dec 2020 19:18:19 +0100
Subject: show expected wagon order whan real-time data is not available

work in progress.
---
 lib/DBInfoscreen.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'lib/DBInfoscreen.pm')

diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm
index b04fb03..0ee9493 100644
--- a/lib/DBInfoscreen.pm
+++ b/lib/DBInfoscreen.pm
@@ -90,17 +90,25 @@ sub startup {
 	$self->attr(
 		ice_type_map => sub {
 			my $ice_type_map = JSON->new->utf8->decode(
-				scalar read_file('share/ice_type.json') );
+				scalar read_file('share/zugbildungsplan.json') );
 			my $ret;
 			while ( my ( $k, $v ) = each %{$ice_type_map} ) {
 				if ( $v->{type} ) {
-					$ret->{$k} = [ $v->{type}, $v->{short} ];
+					$ret->{$k}
+					  = [ $v->{type}, $v->{short}, exists $v->{wagon} ? 1 : 0 ];
 				}
 			}
 			return $ret;
 		}
 	);
 
+	$self->attr(
+		train_details_db => sub {
+			return JSON->new->utf8->decode(
+				scalar read_file('share/zugbildungsplan.json') );
+		}
+	);
+
 	$self->helper(
 		hafas => sub {
 			my ($self) = @_;
@@ -395,6 +403,7 @@ sub startup {
 	$r->get('/_impressum')->to('static#imprint');
 
 	$r->get('/_wr/:train/:departure')->to('wagenreihung#wagenreihung');
+	$r->get('/zb-db/:train')->to('wagenreihung#zugbildung_db');
 
 	$r->get('/_ajax_mapinfo/:tripid/:lineno')->to('map#ajax_route');
 	$r->get('/map/:tripid/:lineno')->to('map#route');
-- 
cgit v1.2.3