PrivateCoffee/travelynx
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

also show exit direction based on wagon order

Browse source
This commit is contained in:
Daniel Friesel 2019-06-23 17:08:47 +02:00
parent b3b0823829
commit 16c441e433
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lib/Travelynx.pm
View file

@ -13,6 +13,7 @@ use Geo::Distance;
use JSON;
use List::Util qw(first);
use List::MoreUtils qw(after_incl before_incl);
use Travel::Status::DE::DBWagenreihung;
use Travel::Status::DE::IRIS;
use Travel::Status::DE::IRIS::Stations;
use Travelynx::Helper::Sendmail;
@ -2375,6 +2376,38 @@ sub startup {
if ( $platform_info->{kopfgleis} ) {
$ret->{arr_direction} = $platform_info->{direction};
}
elsif ( $in_transit->{data}{wagonorder_arr} ) {
my $wr;
eval {
$wr
= Travel::Status::DE::DBWagenreihung->new(
from_json =>
$in_transit->{data}{wagonorder_arr} );
};
if ( $wr
and $wr->sections
and defined $wr->direction )
{
my $section_0 = ( $wr->sections )[0];
my $direction = $wr->direction;
if ( $section_0 eq 'A' and $direction == 0 ) {
$ret->{arr_direction}
= $platform_info->{direction};
}
elsif ( $section_0 ne 'A'
and $direction == 100 )
{
$ret->{arr_direction}
= $platform_info->{direction};
}
else {
$ret->{arr_direction}
= $platform_info->{direction} eq 'r'
? 'l'
: 'r';
}
}
}
}
}