also show exit direction for regional trains at select stations

1 files changed, 14 insertions, 0 deletions

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 {