diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/Travelynx.pm | 14 |
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 { |