From 590b27f2ca5573828f362b034a8182b79114391e Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 23 Jun 2019 18:46:25 +0200 Subject: also show exit direction for regional trains at select stations --- lib/Travelynx.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'lib') diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index d6a4899..afeb880 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -2259,9 +2259,15 @@ sub startup { my @route = @{ $in_transit->{route} // [] }; my @route_after; + my $stop_before_dest; my $is_after = 0; for my $station (@route) { + if ( $in_transit->{arr_name} + and $station->[0] eq $in_transit->{arr_name} ) + { + $stop_before_dest = $route_after[-1][0]; + } if ($is_after) { push( @route_after, $station ); } @@ -2376,6 +2382,14 @@ sub startup { if ( $platform_info->{kopfgleis} ) { $ret->{arr_direction} = $platform_info->{direction}; } + elsif ( $stop_before_dest + and exists $platform_info->{direction_from} + {$stop_before_dest} ) + { + $ret->{arr_direction} + = $platform_info->{direction_from} + {$stop_before_dest}; + } elsif ( $in_transit->{data}{wagonorder_arr} ) { my $wr; eval { -- cgit v1.2.3