diff options
| author | Birte Kristina Friesel <birte.friesel@uos.de> | 2025-06-18 15:25:23 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <birte.friesel@uos.de> | 2025-06-18 15:25:23 +0200 |
| commit | 9be80133b419ceb193f146d4a06dfd88bc9020ee (patch) | |
| tree | 3cd1e32e9264065a7e707350b8b9ddd554086db8 | |
| parent | df27058a22e857557a8cdefee048b9557db63ac4 (diff) | |
DBRIS: Support short IDs (A=1@L=eva)2.14.11
| -rwxr-xr-x | lib/Travelynx/Controller/Traveling.pm | 2 | ||||
| -rw-r--r-- | lib/Travelynx/Helper/DBRIS.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm index 0437556..c044281 100755 --- a/lib/Travelynx/Controller/Traveling.pm +++ b/lib/Travelynx/Controller/Traveling.pm @@ -1340,7 +1340,7 @@ sub station { } my $connections_p; - if ( $trip_id and $hafas_service ) { + if ( $trip_id and ( $dbris_service or $hafas_service ) ) { @results = grep { $_->id eq $trip_id } @results; } elsif ( $train and not $hafas_service ) { diff --git a/lib/Travelynx/Helper/DBRIS.pm b/lib/Travelynx/Helper/DBRIS.pm index 9ddaa5f..1b7f099 100644 --- a/lib/Travelynx/Helper/DBRIS.pm +++ b/lib/Travelynx/Helper/DBRIS.pm @@ -69,7 +69,7 @@ sub get_departures_p { my $agent = $self->{user_agent}; - if ( $opt{station} =~ m{ [@] L = (?<eva> \d+ ) [@] }x ) { + if ( $opt{station} =~ m{ [@] L = (?<eva> \d+ ) }x ) { $opt{station} = { eva => $+{eva}, id => $opt{station}, |