Fix wrong directions on long-distance arrivals

This commit is contained in:
Daniel Friesel 2019-06-25 20:19:21 +02:00
parent 7ef47cdbf9
commit 04cc32b7a0

View file

@ -2424,11 +2424,13 @@ sub startup {
{ {
my $section_0 = ( $wr->sections )[0]; my $section_0 = ( $wr->sections )[0];
my $direction = $wr->direction; my $direction = $wr->direction;
if ( $section_0 eq 'A' and $direction == 0 ) { if ( $section_0->name eq 'A'
and $direction == 0 )
{
$ret->{arr_direction} $ret->{arr_direction}
= $platform_info->{direction}; = $platform_info->{direction};
} }
elsif ( $section_0 ne 'A' elsif ( $section_0->name ne 'A'
and $direction == 100 ) and $direction == 100 )
{ {
$ret->{arr_direction} $ret->{arr_direction}