% if (not $wr->has_bad_wagons) {
% for my $section ($wr->sections) {
%= $section->{name}
% }
% }
% for my $wagon ($wr->wagons) {
% my $bg = '';
% my $extra_class = '';
% if ($wagon->is_first_class) {
% $extra_class .= ' firstclass';
% }
% if ($wagon->is_locomotive or $wagon->is_powercar) {
% $extra_class .= ' powercar';
% }
% if ($wagon->train_no ne $train_no) {
% $extra_class .= ' nondestwagon';
% }
%= $wagon->type
% my $uic_id = $wagon->uic_id;
% if (length($uic_id) != 12) {
<%= $uic_id %>
% }
% elsif (substr($uic_id, 0, 2) >= 90) {
<%= substr($uic_id, 0, 2) %><%= substr($uic_id, 2, 2) %><%= substr($uic_id, 4, 1) %><%= substr($uic_id, 5, 3) %><%= substr($uic_id, 8, 3) %><%= substr($uic_id, 11) %>
% }
% else {
<%= substr($uic_id, 0, 2) %><%= substr($uic_id, 2, 2) %><%= substr($uic_id, 4, 2) %><%= substr($uic_id, 6, 2) %><%= substr($uic_id, 8, 3) %><%= substr($uic_id, 11) %>
% }
% }
Angaben ohne Gewähr – Echtzeitdaten sind möglicherweise nicht berücksichtigt.