summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--templates/_checked_in.html.ep14
1 files 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>