wagon order: show first / second class if known

This commit is contained in:
Birte Kristina Friesel 2024-03-20 17:59:13 +01:00
parent bb9b31f53b
commit 150c5a137f
No known key found for this signature in database
GPG key ID: 19E6E524EBB177BA

View file

@ -78,10 +78,15 @@
% } % }
<a href="https://dbf.finalrewind.org/_wr/<%= $journey->{train_no} %>/<%= $journey->{sched_departure}->strftime('%Y%m%d%H%M') %>?e=<%= $journey->{dep_direction} // q{} %>"> <a href="https://dbf.finalrewind.org/_wr/<%= $journey->{train_no} %>/<%= $journey->{sched_departure}->strftime('%Y%m%d%H%M') %>?e=<%= $journey->{dep_direction} // q{} %>">
%= $direction %= $direction
% my $gi;
% for my $wagon (@wagons) { % for my $wagon (@wagons) {
% if (not ($wagon->is_locomotive or $wagon->is_powercar)) { % if (not ($wagon->is_locomotive or $wagon->is_powercar)) {
%= $wagon->number || $wagon->type % if (defined $gi and $gi != $wagon->group_index) {
% } % }
%= $wagon->number || ($wagon->type =~ m{AB} ? '½' : $wagon->type =~ m{A} ? '1.' : $wagon->type =~ m{B} ? '2.' : $wagon->type )
% }
% $gi = $wagon->group_index;
% } % }
%= $direction %= $direction
</a> </a>