%= 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) {
%= include '_wagon', direction => $wr->direction, wagon => $wagon, type => $wr->train_subtype // 'IC', wref => $wref;
% }
Quelle: DB Wagenreihungs-API. Angaben ohne Gewähr.
% }