% for my $res (@{$connections}) { % my ($train, $via, $via_arr) = @{$res}; % $via_arr = $via_arr ? $via_arr->strftime('%H:%M') : q{}; % my $row_class = ''; % my $link_class = 'action-checkin'; % if ($train->is_cancelled) { % $row_class = 'cancelled'; % $link_class = 'action-cancelled-from'; % } % if ($checkin_from) {
  • % } % else {
  • % } % if ($train->is_cancelled) { %= $train->sched_datetime->strftime('%H:%M') % } % else { %= $train->datetime->strftime('%H:%M') % } % if ($via_arr) { → <%= $via_arr %> % } % if ($train->delay) { %= sprintf('(%+d)', $train->delay) % } % if ($train->platform) { Gleis <%= $train->platform %> % } %= $train->line %= $via->{name}
  • % }