Changeset 1725


Ignore:
Timestamp:
02/25/16 21:22:45 (8 years ago)
Author:
nanardon
Message:

D'ont try to format invalid date

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

    r1722 r1725  
    198198        } else { 
    199199            $value =~ s:^(\d+)/(\d+)/(\d+):$2/$1/$3:; 
    200             my $dt = DateTime->from_epoch(epoch => str2time($value)) 
    201                 or return $value; 
     200            my $epoch = str2time($value); 
     201            return $value if (!defined($epoch)); 
     202            my $dt = DateTime->from_epoch(epoch => str2time($value)); 
    202203            $dt->set_time_zone( DateTime::TimeZone->new( name => 'local' ) ); 
    203204            if ($self->real_form_type eq 'DATE') { 
Note: See TracChangeset for help on using the changeset viewer.