From 04cc32b7a00d30397e928238120bdbb938229e14 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 25 Jun 2019 20:19:21 +0200 Subject: Fix wrong directions on long-distance arrivals --- lib/Travelynx.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index df1d970..aee93a5 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -2424,11 +2424,13 @@ sub startup { { my $section_0 = ( $wr->sections )[0]; my $direction = $wr->direction; - if ( $section_0 eq 'A' and $direction == 0 ) { + if ( $section_0->name eq 'A' + and $direction == 0 ) + { $ret->{arr_direction} = $platform_info->{direction}; } - elsif ( $section_0 ne 'A' + elsif ( $section_0->name ne 'A' and $direction == 100 ) { $ret->{arr_direction} -- cgit v1.2.3