diff options
author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-08-13 23:05:34 +0200 |
---|---|---|
committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-08-13 23:05:34 +0200 |
commit | c5af2fec5bfbff8469ecf770dbd67718b8fc9c78 (patch) | |
tree | d4536daa745992f3f477e1ffd5b8d03706caef87 | |
parent | d4a8507f859342898a5ca215a5700d7d74cb0b9d (diff) |
DBDB: sort wagenreihung dict keys so that caching actually works2.8.16
-rw-r--r-- | lib/Travelynx/Helper/DBDB.pm | 4 |
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})"; |