diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/Travelynx.pm | 99 |
1 files changed, 52 insertions, 47 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index 2bc151d..82fa373 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -2270,6 +2270,51 @@ sub startup { ); $self->helper( + 'stationinfo_to_direction' => sub { + my ( $self, $platform_info, $wagonorder, $prev_stop ) = @_; + if ( $platform_info->{kopfgleis} ) { + return $platform_info->{direction}; + } + elsif ( $prev_stop + and exists $platform_info->{direction_from}{$prev_stop} ) + { + return $platform_info->{direction_from}{$prev_stop}; + } + elsif ($wagonorder) { + my $wr; + eval { + $wr + = Travel::Status::DE::DBWagenreihung->new( + from_json => $wagonorder ); + }; + if ( $wr + and $wr->sections + and defined $wr->direction ) + { + my $section_0 = ( $wr->sections )[0]; + my $direction = $wr->direction; + if ( $section_0->name eq 'A' + and $direction == 0 ) + { + return $platform_info->{direction}; + } + elsif ( $section_0->name ne 'A' + and $direction == 100 ) + { + return $platform_info->{direction}; + } + elsif ( $platform_info->{direction} ) { + return $platform_info->{direction} eq 'r' + ? 'l' + : 'r'; + } + return; + } + } + } + ); + + $self->helper( 'get_user_status' => sub { my ( $self, $uid ) = @_; @@ -2425,53 +2470,13 @@ sub startup { and exists $in_transit->{data}{stationinfo_arr} {$arr_platform_number} ) { - my $platform_info = $in_transit->{data}{stationinfo_arr} - {$arr_platform_number}; - 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 { - $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->name eq 'A' - and $direction == 0 ) - { - $ret->{arr_direction} - = $platform_info->{direction}; - } - elsif ( $section_0->name ne 'A' - and $direction == 100 ) - { - $ret->{arr_direction} - = $platform_info->{direction}; - } - else { - $ret->{arr_direction} - = $platform_info->{direction} eq 'r' - ? 'l' - : 'r'; - } - } - } + $ret->{arr_direction} + = $self->stationinfo_to_direction( + $in_transit->{data}{stationinfo_arr} + {$arr_platform_number}, + $in_transit->{data}{wagonorder_arr}, + $stop_before_dest + ); } } |