Unverified Commit 4e75713b authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

update wagonorder_param for dbf 4.37.15

parent eb445304

lib/Travelynx.pm

+4 −6
Original line number Diff line number Diff line
@@ -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 ) {