% if ($wr->errstr) {
Fehler bei der Abfrage der Wagenreihung: <%= $wr->errstr %>
% } % else { % my $has_multi_dest = 0; % if (scalar $wr->destinations > 1) { % $has_multi_dest = 1; % }
%= join( ' / ', $wr->origins ) → %= join( ' / ', map { $_->{name} } $wr->destinations )
% if ($has_multi_dest) {
% for my $destination ($wr->destinations) { Nach <%= $destination->{name} %> in Abschnitt <%= join(q{}, sort @{$destination->{sections} // []}) %>
% }
% } <%= $wr->station_name %> Gleis <%= $wr->platform %>
% if ($wr->train_type =~ m{^IC|EC}) { Zugtyp: <%= $wr->train_subtype // 'IC?' %> % } % elsif ($wr->train_powertype) { %= $wr->train_type % } % my %translation = ( % 90 => 'mit sonstigem Antrieb', % 91 => 'mit elektrischer Lokomotive', % 92 => 'mit Diesellokomotive', % 93 => 'Hochgeschwindigkeitszug', % 94 => 'Elektrischer Triebzug', % 95 => 'Diesel-Triebzug', % 96 => 'mit speziellen Beiwagen', % 97 => 'mit elektrischer Rangierlok', % 98 => 'mit Diesel-Rangierlok', % 99 => 'Sonderfahrzeug', % ); % if (not $wr->train_powertype) { % } % else { %= $translation{$wr->train_powertype}; % }
% 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) { % $bg = 'background-color: #ffff99;'; % } % if ($wagon->is_locomotive or $wagon->is_powercar) { % $bg = 'background-color: #cccccc;'; % } % if ($wagon->train_no ne $train_no) { % $extra_class .= ' nondestwagon'; % }
% if ($wagon->is_locomotive or $wagon->is_powercar) { % } % 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 ($wr->has_bad_wagons) { % } % elsif ($wr->direction == 100) { arrow_downward % } % else { arrow_upward % }
%= $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.
% }