Changeset 1519 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller

Timestamp:

12/22/15 13:53:24 (9 years ago)

Author:

nanardon

Message:

Translate date to english before parsing

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Users.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Users.pm

@@ -102 +102 @@
             $arg ||= $c->stash->{user}->get_attributes('currentEmployment');
 
-            $c->stash->{employment} = $base->get_object('employment', $arg);
+            $c->stash->{employment} = $base->get_object('employment', $arg) unless($arg =~ /^\@/);
             $c->stash->{forme} = $c->model('AttrForms', 'employment',
                 $c->stash->{employment} ? $c->stash->{employment} : 'employment', $base);
@@ -128 +128 @@
 
                         for (1) {
-                            my $time = str2time($c->req->param('firstday')) or last;
+                            my $frtoen = $c->req->param('firstday');
+                            # Date::Parse understand only mm/dd/yyyy...
+                            $frtoen =~ s:^(\d+)/(\d+)/(\d+):$2/$1/$3:;
+                            my $time = str2time($frtoen) or last;
                             my $lastd = DateTime->from_epoch( epoch => $time )
                                 ->set_time_zone( DateTime::TimeZone->new( name => 'local' ) );