lib/CXGN/TimeUtils.pm

   1 package CXGN::TimeUtils;
   2
   3 sub db_time_to_iso {
   4     my $db_time = shift;
   5
   6     if ($db_time) {
   7         # Replace space with 'T' to follow ISO 8601 format
   8         $db_time =~ s/ /T/;
   9         return $db_time."Z";
  10     }
  11
  12     return $db_time;
  13 }
  14
  15 sub date_to_iso_timestamp {
  16
  17     #get %Y-%B-%d to 2000-02-29T12:34:56Z
  18     my $str_date = shift;
  19     my $date;
  20     if ($str_date) {
  21         my  $formatted_time = Time::Piece->strptime($str_date, '%Y-%B-%d');
  22         $date =  $formatted_time->datetime;
  23         $date .= "Z";
  24     }
  25
  26     return $date;
  27 }
  28
  29 sub db_time_to_iso_utc {
  30     my $db_time = shift;
  31     my $new_time = $db_time =~ s/ /T/r;
  32     return $new_time."Z";
  33 }
  34
  35 1;