Mirrors/travelynx
2
0
Fork 0
mirror of https://github.com/derf/travelynx synced 2024-12-04 10:19:09 +00:00
Code Issues Projects Releases Packages Wiki Activity

get_user_status: fix stop_before_dest calculation

Browse source
This commit is contained in:
Birte Kristina Friesel 2023-07-15 19:16:01 +02:00
parent 40cd1d06fe
commit bee67f096a
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lib/Travelynx.pm
View file

@ -1446,10 +1446,18 @@ sub startup {
= scalar @{ $ret->{route_after} }
? $ret->{route_after}[0][0]
: undef;
my $stop_before_dest
= scalar @{ $ret->{route_after} }
? $ret->{route_after}[-1][0]
: undef;
my $stop_before_dest;
for my $i ( 1 .. $#{ $ret->{route_after} } ) {
if ( $ret->{arr_name}
and $ret->{route_after}[$i][0] eq $ret->{arr_name} )
{
$stop_before_dest = $ret->{route_after}[ $i - 1 ][0];
last;
}
}
say $stop_after_dep;
say $stop_before_dest;
my ($dep_platform_number)
= ( ( $ret->{dep_platform} // 0 ) =~ m{(\d+)} );