% if (not $wr->has_bad_wagons) {
% for my $section ($wr->sections) {
%= $section->{name}
% }
% }
% for my $wagon ($wr->wagons) {
% my $bg = '';
% if ($wagon->is_first_class) {
% $bg = 'background-color: #ffff99;';
% }
% if ($wagon->is_locomotive or $wagon->is_powercar) {
% $bg = 'background-color: #cccccc;';
% }
% if ($wr->has_bad_wagons) {
% }
% elsif ($wr->direction == 100) {
↓
% }
% else {
↑
% }
% if ($wagon->is_locomotive or $wagon->is_powercar) {
LOK
% }
% else {
%= $wagon->number // '?'
% if ($wagon->has_accessibility) {
accessible
% }
% if ($wagon->has_bistro) {
restaurant
% }
% if ($wagon->has_compartments) {
% }
% if ($wagon->has_quiet_area) {
volume_off
% }
% if ($wagon->has_phone_area) {
smartphone
% }
% if ($wagon->has_family_area) {
people
% }
% if ($wagon->has_bahn_comfort) {
star
% }
% }
% if ($wagon->is_first_class) {
1
% }
% elsif ($wagon->is_second_class) {
2
% }
% else {
% }
%= $wagon->type
% my $uic_id = $wagon->uic_id;
% if (length($uic_id) != 12) {
<%= $uic_id %>
% }
% elsif ($wr->train_type eq 'ICE') {
<%= 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.