From 4e75713bb2375ea7b354ef72d49e49948e1099c3 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Tue, 4 Nov 2025 21:59:39 +0100 Subject: update wagonorder_param for dbf 4.37.15 --- lib/Travelynx.pm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'lib') diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm index 4a1f021..423cec3 100755 --- a/lib/Travelynx.pm +++ b/lib/Travelynx.pm @@ -1886,12 +1886,10 @@ sub startup { = $opt{datetime}->clone->set_time_zone('UTC'); $data->{wagonorder_dep} = $status->{raw_json}; $data->{wagonorder_param} = { - time => $dt->rfc3339 =~ s{(?=Z)}{.000}r, - number => $opt{train_no}, - evaNumber => $opt{eva}, - administrationId => 80, - date => $dt->strftime('%Y-%m-%d'), - category => $opt{train_type}, + tt => $opt{train_type}, + tn => $opt{train_no}, + dt => $dt->epoch, + eva => $opt{eva} }; $user_data->{wagongroups} = []; for my $group ( $wr->groups ) { -- cgit v1.2.3