? 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]) ?>
 
? }