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

Timestamp:

12/28/15 09:54:45 (9 years ago)

Author:

nanardon

Message:

Ensure expire graph start at current date

File:

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

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/Expire.pm

@@ -4 +4 @@
 
 BEGIN { extends 'Catalyst::Controller'; }
+
+use DateTime;
 
 =head1 NAME
@@ -37 +39 @@
     
     my %dates;
+    my $today = DateTime->now()->ymd() . ' 00:00';
     foreach my $user (@exists) {
         if (my $d = $results{$user}) {
             my $contrat = $contrats{$user}[0] || '(none)';
+            $dates{$contrat}{$today} ||= 0;
             foreach (@{ $results{$user} }) {
                 $_ or next;