From 0439aa8b0247bbbd5590526bb679f749940bb6df Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 3 Aug 2019 15:09:15 +0200
Subject: use the same direction for wagon order and direction indicator

---
 templates/_checked_in.html.ep | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/templates/_checked_in.html.ep b/templates/_checked_in.html.ep
index 2e5569a..4e056da 100644
--- a/templates/_checked_in.html.ep
+++ b/templates/_checked_in.html.ep
@@ -54,14 +54,22 @@
 				% }
 				% if (my $wr = $journey->{wagonorder}) {
 					<br/>
+					% my @wagons = $wr->wagons;
+					% my $direction = $wr->direction == 100 ? '→' : '←';
+					% if ($journey->{dep_direction}) {
+						% $direction = $journey->{dep_direction} eq 'l' ? '◀' : '▶';
+						% if (($journey->{dep_direction} eq 'l' ? 0 : 100) != $wr->direction) {
+							% @wagons = reverse @wagons;
+						% }
+					% }
 					<a href="https://marudor.de/<%= $journey->{dep_name} %>?selectedDetail=<%= $journey->{train_id} %>">
-					%= $wr->direction == 100 ? '→' : '←';
-					% for my $wagon ($wr->wagons) {
+					%= $direction
+					% for my $wagon (@wagons) {
 						% if (not ($wagon->is_locomotive or $wagon->is_powercar)) {
 							%= $wagon->number || $wagon->type
 						% }
 					% }
-					%= $wr->direction == 100 ? '→' : '←';
+					%= $direction
 					</a>
 				% }
 			</div>
-- 
cgit v1.2.3