% if (not $wr or $wr->errstr) { <div class="container"> <div class="error"> <strong>Fehler bei der Abfrage der Wagenreihung:</strong> <%= $wr ? $wr->errstr : $wr_error %> </div> </div> % } % else { % my $has_multi_dest = 0; % if (scalar $wr->destinations > 1) { % $has_multi_dest = 1; % } <div class="container"> <div style="text-align: center;"> %= join( ' / ', $wr->origins ) → %= join( ' / ', map { $_->{name} } $wr->destinations ) </div> % if ($has_multi_dest) { <div style="text-align: center;"> % for my $destination ($wr->destinations) { Nach <%= $destination->{name} %> in Abschnitt <%= join(q{}, sort @{$destination->{sections} // []}) %><br/> % } </div> % } <%= $wr->station_name %> Gleis <%= $wr->platform %><br/> % 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}; % } </div> <div class="container"> <div class="wagonorder"> % if (not $wr->has_bad_wagons) { % for my $section ($wr->sections) { <div class="section" style=" top: <%= $section->{start_percent} %>%; bottom: <%= 100 - $section->{end_percent} %>%;"> %= $section->{name} </div> % } % } % for my $wagon ($wr->wagons) { %= include '_wagon', direction => $wr->direction, wagon => $wagon, type => $wr->train_subtype // 'IC', wref => $wref; % } </div> <!-- <div> Legende: ♿ Behindertengerechte Ausstattung / 🍴 Bistro/Restaurant / 🚪 Abteile vorhanden </div> --> <div style="margin-top: 1em;"> Quelle: DB Wagenreihungs-API. Angaben ohne Gewähr. </div> </div> % }