% for my $sector ($wr->sectors) {
%= $sector->name
% }
% for my $group ($wr->groups) {
% my $first = 1;
% for my $wagon ($group->carriages) {
%= include '_wagon', wr => $wr, group => $group, wagon => $wagon, first => $first, multi => (scalar $wr->destinations) - 1 + (scalar $wr->train_numbers) - 1, wref => $wref, exit_dir => stash('exit_dir'), train_no => param('number');
% $first = 0;
% }
% }
% for my $group ($wr->groups) {
% if ($group->description) {
%= $group->description
% if (scalar $wr->groups > 1 and $group->has_sectors) {
in Abschnitt <%= join(q{}, sort $group->sectors) %>
% }
% }
% }
nach
%= join( ' / ', map { $_->{name} } $wr->destinations )
Quelle: DB Wagenreihungs-API. Angaben ohne Gewähr.
% }