% if (not $wr or $wr->errstr) {
Fehler bei der Abfrage der Wagenreihung: <%= $wr ? $wr->errstr : $wr_error %>
% } % else {
<%= $wr->station->{name} %> Gleis <%= $wr->platform %>
% 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) %> % }
% } % }
% }