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

Improve status graph accurancy

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/Employment.pm

    r1720 r1721  
    7676    my %done; 
    7777 
    78     my @dates = sort 
    79         map { $employments{$_}->{end}  } 
    80         grep { $employments{$_}->{end} } (keys %employments); 
     78    my @dates; 
     79    
     80    foreach (map { $employments{$_}->{start}  } 
     81             grep { $employments{$_}->{start} } (keys %employments)) { 
     82             $_ gt $now or next; 
     83             my $dt = DateTime->from_epoch( epoch => str2time($_)); 
     84             $dt->set_time_zone( DateTime::TimeZone->new( name => 'local' ) ); 
     85             $dt->subtract(days => 1); 
     86             push(@dates, $_, $dt->ymd('-')); 
     87    } 
     88    foreach (map { $employments{$_}->{end}  } 
     89             grep { $employments{$_}->{end} } (keys %employments)) { 
     90             $_ gt $now or next; 
     91             my $dt = DateTime->from_epoch( epoch => str2time($_)); 
     92             $dt->set_time_zone( DateTime::TimeZone->new( name => 'local' ) ); 
     93             $dt->add(days => 1); 
     94             push(@dates, $_, $dt->ymd('-')); 
     95    } 
     96 
     97    @dates = sort(@dates); 
    8198 
    8299    if (@dates) { 
Note: See TracChangeset for help on using the changeset viewer.