blob: 4090f1152e70ceea529504d0d4eeea9e00c25e7b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
% for my $wagongroup (@{$wagongroups // []}) {
%= $wagongroup->{desc} // $wagongroup->{name}
% my ($wagon_number) = ($wagongroup->{name} =~ m{ ^ ICE 0* (\d+) $ }x);
% if ($wagongroup->{designation}) {
„<%= $wagongroup->{designation} %>“
% }
% elsif ($wagon_number and my $group_name = app->ice_name->{$wagon_number}) {
„<%= $group_name %>“
% }
als <b><%= $wagongroup->{type} // $journey->{type} %> <%= $wagongroup->{no} %></b>
% if ($wagongroup->{from}) {
von <b><%= $wagongroup->{from} %></b>
% }
% if ($wagongroup->{to}) {
nach <b><%= $wagongroup->{to} %></b>
% }
<br/>
% for my $wagon (@{$wagongroup->{wagons}}) {
% if (length($wagon->{id}) == 12 or length($wagon->{id}) == 14) {
<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/>
% }
% }
|
