% if (not $wr->has_bad_wagons) {
% for my $section ($wr->sections) {
%= $section->{name}
% }
% }
% for my $group ($wr->groups) {
% my $first = 1;
% for my $wagon ($group->wagons) {
%= include '_wagon', wr => $wr, wagon => $wagon, first => $first, multi => (scalar $wr->destinations) - 1 + (scalar $wr->train_nos) - 1, wref => $wref, exit_dir => stash('exit_dir');
% $first = 0;
% }
% }
%= join( ' / ', map { $_->{name} } $wr->origins )
→
%= join( ' / ', map { $_->{name} } $wr->destinations )
% for my $group ($wr->groups) {
% if ($group->description) {
%= $group->description
% if (scalar $wr->groups > 1 and $group->has_sections) {
in Abschnitt <%= join(q{}, sort $group->sections) %>
% }
% }
% }
Quelle: DB Wagenreihungs-API. Angaben ohne Gewähr.
% }