summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2024-08-13 23:05:34 +0200
committerBirte Kristina Friesel <derf@finalrewind.org>2024-08-13 23:05:34 +0200
commitc5af2fec5bfbff8469ecf770dbd67718b8fc9c78 (patch)
treed4536daa745992f3f477e1ffd5b8d03706caef87
parentd4a8507f859342898a5ca215a5700d7d74cb0b9d (diff)
DBDB: sort wagenreihung dict keys so that caching actually works2.8.16
-rw-r--r--lib/Travelynx/Helper/DBDB.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Travelynx/Helper/DBDB.pm b/lib/Travelynx/Helper/DBDB.pm
index 10b9136..20bcbca 100644
--- a/lib/Travelynx/Helper/DBDB.pm
+++ b/lib/Travelynx/Helper/DBDB.pm
@@ -42,7 +42,7 @@ sub has_wagonorder_p {
my $url = sprintf( '%s?%s',
'https://www.bahn.de/web/api/reisebegleitung/wagenreihung/vehicle-sequence',
- join( '&', map { $_ . '=' . $param{$_} } keys %param ) );
+ join( '&', map { $_ . '=' . $param{$_} } sort keys %param ) );
my $cache = $self->{realtime_cache};
my $promise = Mojo::Promise->new;
@@ -107,7 +107,7 @@ sub get_wagonorder_p {
my $url = sprintf( '%s?%s',
'https://www.bahn.de/web/api/reisebegleitung/wagenreihung/vehicle-sequence',
- join( '&', map { $_ . '=' . $param{$_} } keys %param ) );
+ join( '&', map { $_ . '=' . $param{$_} } sort keys %param ) );
my $debug_prefix
= "get_wagonorder_p($opt{train_type} $opt{train_no} @ $opt{eva})";