update wagonorder_param for dbf 4.37.15HEAD2.17.21main

1 files changed, 4 insertions, 6 deletions

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 ) {