% if (not $wr or $wr->errstr) {
Fehler bei der Abfrage der Wagenreihung: <%= $wr ? $wr->errstr : $wr_error %>
% } % else { % my $has_multi_dest = 0; % my $has_multi_desc = 0; % if (scalar $wr->destinations > 1) { % $has_multi_dest = 1; % } % if (scalar $wr->train_descriptions > 1) { % $has_multi_desc = 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 %>
% for my $desc ($wr->train_descriptions) { % if ($desc->{text}) { %= $desc->{text} % if ($has_multi_desc) { in Abschnitt <%= join(q{}, sort @{$desc->{sections}}) %> % }
% } % }
% 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, wref => $wref, exit_dir => stash('exit_dir'); % }
% }