From 36121ccffc8dc65b27bcfbe1299fb6a7f9a5f77c Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 24 Jun 2019 18:02:45 +0200
Subject: show wagon order before departure

---
 lib/Travelynx.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'lib/Travelynx.pm')

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index afeb880..df1d970 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -2264,6 +2264,7 @@ sub startup {
 				for my $station (@route) {
 
 					if (    $in_transit->{arr_name}
+						and @route_after
 						and $station->[0] eq $in_transit->{arr_name} )
 					{
 						$stop_before_dest = $route_after[-1][0];
@@ -2353,6 +2354,25 @@ sub startup {
 
 				$ret->{departure_countdown}
 				  = $ret->{real_departure}->epoch - $now->epoch;
+
+				if (    $ret->{departure_countdown} > 0
+					and $in_transit->{data}{wagonorder_dep} )
+				{
+					my $wr;
+					eval {
+						$wr
+						  = Travel::Status::DE::DBWagenreihung->new(
+							from_json => $in_transit->{data}{wagonorder_dep} );
+					};
+					if (    $wr
+						and $wr->sections
+						and $wr->wagons
+						and defined $wr->direction )
+					{
+						$ret->{wagonorder} = $wr;
+					}
+				}
+
 				if ( $in_transit->{real_arr_ts} ) {
 					$ret->{arrival_countdown}
 					  = $ret->{real_arrival}->epoch - $now->epoch;
-- 
cgit v1.2.3