diff options
Diffstat (limited to 'templates/_train_details.html.ep')
| -rw-r--r-- | templates/_train_details.html.ep | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/templates/_train_details.html.ep b/templates/_train_details.html.ep index c89a01c..ccdb70a 100644 --- a/templates/_train_details.html.ep +++ b/templates/_train_details.html.ep @@ -113,6 +113,27 @@ </div> </div> </div> <!-- dataline --> +% if (my $wr = $departure->{wr}) { + <div class="wagonorder-preview"> +% my @wagons = $wr->wagons; +% my $direction = $wr->direction == 100 ? '→' : '←'; +% if ($departure->{direction}) { +% $direction = $departure->{direction} eq 'l' ? '◀' : '▶'; +% if (($departure->{direction} eq 'l' ? 0 : 100) != $wr->direction) { +% @wagons = reverse @wagons; +% } +% } + <a href="/_wr/<%= $departure->{train_no} %>/<%= $departure->{wr_link} %>?e=<%= $departure->{direction} // '' %>"> + %= $direction +% for my $wagon (@wagons) { +% if (not ($wagon->is_locomotive or $wagon->is_powercar)) { +%= $wagon->number || ($wagon->type =~ m{AB} ? '½' : $wagon->type =~ m{A} ? '1.' : $wagon->type =~ m{B} ? '2.' : '?' ) +% } +% } + %= $direction + </a> + </div> +% } <div class="verbose"> % if ($departure->{trip_id}) { % if (stash('station_name')) { |