From 590b27f2ca5573828f362b034a8182b79114391e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
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