checked-in view: restore dbf.finalrewind.org carriage formation link2.12.2

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index efe5c07..af46e5a 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -1478,7 +1478,17 @@ sub startup {
 							and $wr
 							and not exists $wagonorder->{error} )
 						{
+							my $dt
+							  = $opt{datetime}->clone->set_time_zone('UTC');
 							$data->{wagonorder_dep}   = $wagonorder;
+							$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},
+							};
 							$user_data->{wagongroups} = [];
 							for my $group ( $wr->groups ) {
 								my @wagons;