From cc6601868c722e0423a4fe461109f936e68d0494 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Fri, 30 May 2025 18:56:37 +0200
Subject: checked-in view: restore dbf.finalrewind.org carriage formation link

---
 lib/Travelynx.pm              | 10 ++++++++++
 templates/_checked_in.html.ep |  4 ++--
 2 files changed, 12 insertions(+), 2 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;
diff --git a/templates/_checked_in.html.ep b/templates/_checked_in.html.ep
index 92d9593..016e56b 100644
--- a/templates/_checked_in.html.ep
+++ b/templates/_checked_in.html.ep
@@ -68,7 +68,7 @@
 					% }
 					% if (my $wr = $journey->{wagonorder}) {
 						<br/>
-						<!-- <a href="https://dbf.finalrewind.org/carriage-formation?<%= $journey->{train_no} %>/<%= $journey->{sched_departure}->strftime('%Y%m%d%H%M') %>?e=<%= $journey->{dep_direction} // q{} %>"> -->
+						<a href="https://dbf.finalrewind.org/carriage-formation?<%= join('&', map { $_ . '=' . $journey->{extra_data}{wagonorder_param}{$_} } sort keys %{$journey->{extra_data}{wagonorder_param}}) %>&amp;e=<%= $journey->{dep_direction} // q{} %>">
 							% my $direction = $wr->direction == 100 ? '→' : '←';
 							% my $rev = 0;
 							% if ($journey->{dep_direction}) {
@@ -111,7 +111,7 @@
 								% }
 							% }
 							%= $direction
-						<!-- </a> -->
+						</a>
 					% }
 				</div>
 				<div class="progress" style="height: 1ex;">
-- 
cgit v1.2.3