- Timestamp:
- 12/28/15 09:54:45 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/Expire.pm
r1477 r1542 4 4 5 5 BEGIN { extends 'Catalyst::Controller'; } 6 7 use DateTime; 6 8 7 9 =head1 NAME … … 37 39 38 40 my %dates; 41 my $today = DateTime->now()->ymd() . ' 00:00'; 39 42 foreach my $user (@exists) { 40 43 if (my $d = $results{$user}) { 41 44 my $contrat = $contrats{$user}[0] || '(none)'; 45 $dates{$contrat}{$today} ||= 0; 42 46 foreach (@{ $results{$user} }) { 43 47 $_ or next;
Note: See TracChangeset
for help on using the changeset viewer.