Select Code to Download

while ( my ($name, $stime, $etime, $unid, $loc, $desc) = $sth->fetchro
+w_array() ) {
    my ($start, $end) = oracle_to_datetime($stime, $etime);
...
          uid => $unid,
        };
}

$self->render(json => \@event_list);