Changeset 1722 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases
- Timestamp:
- 02/23/16 17:58:27 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm
r1699 r1722 6 6 use warnings; 7 7 use LATMOS::Accounts::Log; 8 9 use Date::Parse; 10 use DateTime; 11 use DateTime::TimeZone; 12 8 13 9 14 =head1 NAME … … 188 193 if (!defined($value)) { return } 189 194 return $self->{input}->($value); 195 } elsif ($self->real_form_type =~ /^(DATE|DATETIME)$/) { 196 if (!$value) { 197 return; 198 } else { 199 $value =~ s:^(\d+)/(\d+)/(\d+):$2/$1/$3:; 200 my $dt = DateTime->from_epoch(epoch => str2time($value)) 201 or return $value; 202 $dt->set_time_zone( DateTime::TimeZone->new( name => 'local' ) ); 203 if ($self->real_form_type eq 'DATE') { 204 return $dt->ymd('-'); 205 } else { 206 return $dt->ymd('-') . ' ' . $dt->hms(':'); 207 } 208 } 190 209 } else { 191 210 return $value;
Note: See TracChangeset
for help on using the changeset viewer.