? my ($app, $results) = @_;
? for my $result (@$results) {
-
? my @date = localtime($result->[0]);
? $date[5] = $date[5] % 100;
? $date[4] = $date[4] + 1;
= $result->[1] ?> = $result->[3] ?>
= $result->[2] ?>
= sprintf("%02d:%02d %02d-%02d-%02d", @date[2,1,4,3,5]) ?>
? }