% if ($departure->{is_cancelled} and $departure->{sched_arrival}) { An: ––:––
Plan: <%= $departure->{sched_arrival} %> % } % elsif ($departure->{arrival_is_cancelled}) { Beginnt hier
Plan: <%= $departure->{sched_arrival} %> % } % elsif ($departure->{arrival}) { % if ($departure->{arrival} ne $departure->{sched_arrival}) { % if (($departure->{arrival_delay} // 0) < 0) { An: <%= $departure->{arrival} %> % } % else { An: <%= $departure->{arrival} %> % }
Plan: <%= $departure->{sched_arrival} %> % } % else { An: <%= $departure->{arrival} %> % } % } % elsif ($departure->{sched_arrival}) { An: <%= $departure->{sched_arrival} %> % } % elsif ($departure->{prep_time}) { Ein: <%= $departure->{prep_time} %> % }
% if (@{$departure->{replaced_by}}) { % for my $replacement (@{$departure->{replaced_by}}) { Ersatzfahrt: <%= $replacement %>
% } % } % if (@{$departure->{replacement_for}}) { % for my $replacement (@{$departure->{replacement_for}}) { Ersatzfahrt für <%= $replacement %>
% } % } % if ($departure->{arrival_is_cancelled} and $departure->{departure_is_cancelled}) { Fahrt fällt aus % } % else { % my $left = ''; % my $right = ''; % if ($departure->{direction} and $departure->{direction} eq 'l') { % $left = '◀ '; % } % elsif ($departure->{direction} and $departure->{direction} eq 'r') { % $right = ' ▶'; % } % if ($departure->{scheduled_platform} and $departure->{platform} % and $departure->{scheduled_platform} ne $departure->{platform}) { <%= $left %>Gleis <%= $departure->{platform} %><%= $right %> % } % elsif ($departure->{scheduled_platform} or $departure->{platform}) { <%= $left %>Gleis <%= $departure->{platform} // $departure->{scheduled_platform} %><%= $right %> % } % } % if ($departure->{arrival_hidden} and not $departure->{prep_time}) {
Nur Einstieg % } % if ($departure->{departure_hidden}) {
Nur Ausstieg % }
% if ($departure->{is_cancelled} and $departure->{sched_departure}) { Ab: ––:––
Plan: <%= $departure->{sched_departure} %> % } % elsif ($departure->{departure_is_cancelled}) { Endet hier
Plan: <%= $departure->{sched_departure} %> % } % elsif ($departure->{departure}) { % if ($departure->{departure} ne $departure->{sched_departure}) { Ab: <%= $departure->{departure} %>
Plan: <%= $departure->{sched_departure} %> % } % else { Ab: <%= $departure->{departure} %> % } % } % elsif ($departure->{sched_departure}) { Ab: <%= $departure->{sched_departure} %> % }
% if (my $wr = $departure->{wr}) {
% my @wagons = $wr->wagons; % my $direction = $wr->direction ? $wr->direction == 100 ? '→' : '←' : q{}; % if ($departure->{direction}) { % $direction = $departure->{direction} eq 'l' ? '◀' : '▶'; % if (($departure->{direction} eq 'l' ? 0 : 100) != $wr->direction) { % @wagons = reverse @wagons; % } % } %= $direction % my $gi; % for my $wagon (@wagons) { % if (not ($wagon->is_locomotive or $wagon->is_powercar)) { % if (defined $gi and $gi != $wagon->group_index) { • % } % if ($wagon->is_closed) { X % } % else { %= $wagon->number || ($wagon->type =~ m{AB} ? '½' : $wagon->type =~ m{A} ? '1.' : $wagon->type =~ m{B} ? '2.' : $wagon->type ) % } % } % $gi = $wagon->group_index; % } %= $direction
% }
% if ($departure->{trip_id}) { % if (stash('station_name')) { Karte % } % else { Karte % } % } % if ($departure->{wr_link}) { <%= $departure->{wr_text} || 'Wagen' %> % } % if ($departure->{train_type} and $departure->{train_no}) { Details % } % for my $link (@{$departure->{links}}) { <%= $link->[0] %> % }
% if (not $departure->{departure_is_cancelled}) { % if (my $u = $departure->{utilization}) {
% my ($text, $icon1, $icon2) = utilization_icon($u); <%= $text %>. 1. 2.
% } % elsif (my $o = $departure->{occupancy}) {
% my ($text, $icon) = occupancy_icon($o); <%= $text %>.
% } % } % % if ($departure->{missing_realtime}) {
Echtzeitdaten fehlen. Ob die Zugfahrt wie im Fahrplan vorgesehen stattfindet, ist nicht bekannt.
% } % elsif ($departure->{no_realtime_yet}) {
Für diese Zugfahrt sind derzeit nur Fahrplandaten bekannt.
% } % if ($departure->{moreinfo} and @{$departure->{moreinfo}}) { Meldungen % } % if ($departure->{route_pre_diff} and $departure->{route_post_diff}) { % if ($departure->{date}) { Fahrtverlauf am % if (stash('train') !~ m{[|]}) { % } %= $departure->{date}->strftime('%d.%m.%Y') % if (stash('train') !~ m{[|]}) { % } % } % } % if ($departure->{operator}) {
Betrieb: <%= $departure->{operator} %>
% } % if ($departure->{details} and @{$departure->{details}}) {
Details:
% }