% 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_departure->strftime('%H:%M') % } % else { %= $train->departure->strftime('%H:%M') % } % if ($train->departure_delay) { %= sprintf('(%+d)', $train->departure_delay) % } % if ($train->platform) { Gleis <%= $train->platform %> % } %= $train->line %= $dest->{name}
  • % }