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

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

parent e9f26a6a

lib/Travelynx.pm

+10 −0
Original line number Diff line number Diff line
@@ -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;

templates/_checked_in.html.ep

+2 −2
Original line number Diff line number Diff line
@@ -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;">