2019-12-19 19:25:38 +00:00
|
|
|
|
% for my $wagongroup (@{$wagongroups // []}) {
|
2020-01-04 17:48:46 +00:00
|
|
|
|
Wagenverbund <%= $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 <b><%= $journey->{type} %> <%= $wagongroup->{no} %></b>
|
|
|
|
|
|
von <b><%= $wagongroup->{from} %></b> nach <b><%= $wagongroup->{to} %></b><br/>
|
2019-12-19 19:25:38 +00:00
|
|
|
|
% for my $wagon (@{$wagongroup->{wagons}}) {
|
|
|
|
|
|
% if (length($wagon->{id}) == 12) {
|
|
|
|
|
|
<span><%= substr($wagon->{id}, 0, 2) %></span><span><%= substr($wagon->{id}, 2, 2) %></span><span><%= substr($wagon->{id}, 4, 1) %></span><span class="wagonclass"><%= substr($wagon->{id}, 5, 3) %></span><span class="wagonnum"><%= substr($wagon->{id}, 8, 3) %></span><span class="checksum"><%= substr($wagon->{id}, 11) %></span>
|
|
|
|
|
|
% }
|
|
|
|
|
|
% elsif ($wagon->{id}) {
|
|
|
|
|
|
„<%= $wagon->{id} %>“
|
|
|
|
|
|
% }
|
|
|
|
|
|
%= $wagon->{type}
|
|
|
|
|
|
% if ($wagon->{number}) {
|
|
|
|
|
|
– Wagen <%= $wagon->{number} %>
|
|
|
|
|
|
% }
|
|
|
|
|
|
<br/>
|
|
|
|
|
|
% }
|
|
|
|
|
|
% }
|
