% for my $wagongroup (@{$wagongroups // []}) {
<%= $wagongroup->{name} %>
% my ($wagon_number) = ($wagongroup->{name} =~ m{ ^ ICE 0* (\d+) $ }x);
% if ($wagon_number and my $group_name = app->ice_name->{$wagon_number}) {
„<%= $group_name %>“
% }
als <%= $journey->{type} %> <%= $wagongroup->{no} %>
von <%= $wagongroup->{from} %> nach <%= $wagongroup->{to} %>
% for my $wagon (@{$wagongroup->{wagons}}) {
% if (length($wagon->{id}) == 12) {
<%= substr($wagon->{id}, 0, 2) %><%= substr($wagon->{id}, 2, 2) %><%= substr($wagon->{id}, 4, 1) %><%= substr($wagon->{id}, 5, 3) %><%= substr($wagon->{id}, 8, 3) %><%= substr($wagon->{id}, 11) %>
% }
% elsif ($wagon->{id}) {
„<%= $wagon->{id} %>“
% }
%= $wagon->{type}
% if ($wagon->{number}) {
– Wagen <%= $wagon->{number} %>
% }
% }
% }