% for my $res (@{$suggestions}) { % my ($dep, $dest, $via_arr) = @{$res}; % my $row_class = ''; % my $link_class = 'action-checkin'; % if ($dep->{is_cancelled}) { % $row_class = 'cancelled'; % $link_class = 'action-cancelled-from'; % } % if ($checkin_from) {
  • % } % else {
  • % } % if ($dep->{is_cancelled}) { %= $dep->{sched_hhmm} % } % else { %= $dep->{rt_hhmm} % } % if ($via_arr) { → <%= $via_arr %> % } % if ($dep->{delay}) { %= sprintf('(%+d)', $dep->{delay}) % } % if ($dep->{platform}) { % if (($dep->{type} // q{}) =~ m{ ast | bus | ruf }ix) { Steig % } % else { Gleis % } %= $dep->{platform} % } %= $dep->{line} %= $dest->{name}
  • % }