From 36121ccffc8dc65b27bcfbe1299fb6a7f9a5f77c Mon Sep 17 00:00:00 2001 From: Daniel Friesel 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') 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