Changeset 1722

Timestamp:

02/23/16 17:58:27 (8 years ago)

Author:

nanardon

Message:

Fix input for DATE/DATETIME attribute

Location:

trunk

Files:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrFormsA.pm (modified) (3 diffs)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrFormsA.pm

@@ -301 +301 @@
 sub attr_DATE {
     my ($self, $value, $name, $id) = @_;
+    
+    warn "-- $name $value";
 
     if (my $time = str2time($value)) {
@@ -307 +309 @@
         $value = $dt->dmy('/')
     }
+    warn $value;
 
     return sprintf(
@@ -336 +339 @@
         $value = $dt->dmy('/') . ' ' . $dt->hms(':')
     }
+
+    warn $value;
 
     return sprintf(

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

@@ -6 +6 @@
 use warnings;
 use LATMOS::Accounts::Log;
+
+use Date::Parse;
+use DateTime;
+use DateTime::TimeZone;
+
 
 =head1 NAME
@@ -188 +193 @@
         if (!defined($value)) { return }
         return $self->{input}->($value);
+    } elsif ($self->real_form_type =~ /^(DATE|DATETIME)$/) {
+        if (!$value) {
+            return;
+        } else {
+            $value =~ s:^(\d+)/(\d+)/(\d+):$2/$1/$3:;
+            my $dt = DateTime->from_epoch(epoch => str2time($value))
+                or return $value;
+            $dt->set_time_zone( DateTime::TimeZone->new( name => 'local' ) );
+            if ($self->real_form_type eq 'DATE') {
+                return $dt->ymd('-');
+            } else {
+                return $dt->ymd('-') . ' ' . $dt->hms(':');
+            }
+        }
     } else {
         return $value;