diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-12-13 20:08:31 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-12-13 20:08:31 +0100 |
| commit | aa65f07176a0cf06dbe14667e31a2d738899248b (patch) | |
| tree | 0b3e3337f958aacaffb5bf6ace7a20f08b0444ad | |
| parent | b2ad8b4946a121f41f638a96bac934e8576f1767 (diff) | |
| -rwxr-xr-x | lib/Travelynx/Controller/Traveling.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm index 154938d..5595e3c 100755 --- a/lib/Travelynx/Controller/Traveling.pm +++ b/lib/Travelynx/Controller/Traveling.pm @@ -1419,10 +1419,12 @@ sub station { my $user_status = $self->get_user_status; my $can_check_out = 0; + my ($eva) = ( $station =~ m{ [@] L = (\d+) }x ); + $eva //= $status->{station_eva}; if ( $user_status->{checked_in} ) { for my $stop ( @{ $user_status->{route_after} } ) { if ( - $stop->[1] eq $status->{station_eva} + $stop->[1] eq $eva or List::Util::any { $stop->[1] eq $_->{uic} } @{ $status->{related_stations} } ) |