% for my $res (@{$suggestions}) { % my ($train, $dest) = @{$res}; % my $row_class = ''; % my $link_class = 'action-checkin'; % if ($train->{departure_is_cancelled}) { % $row_class = 'cancelled'; % $link_class = 'action-cancelled-from'; % } % if ($checkin_from) {
  • % } % else {
  • % } % if ($train->{departure_is_cancelled}) { %= $train->{sched_hhmm} % } % else { %= $train->{rt_hhmm} % } % if ($train->{departure_delay}) { %= sprintf('(%+d)', $train->{departure_delay}) % } % if ($train->{platform}) { Gleis <%= $train->{platform} %> % } %= $train->{line} %= $dest->{name}
  • % }