Changeset 1827 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases
- Timestamp:
- 08/01/16 09:20:51 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r1826 r1827 1589 1589 }); 1590 1590 $list_empl->execute($self->id); 1591 my $res; 1592 while ($res = $list_empl->fetchrow_hashref) { 1591 while (my $res = $list_empl->fetchrow_hashref) { 1593 1592 if (!$res->{lastday}) { 1594 1593 # Ultimate employment. … … 1605 1604 last; 1606 1605 } 1606 } elsif ($pend) { 1607 my $nextstart = DateTime->from_epoch(epoch => str2time($res->{firstday})); 1608 $nextstart->set_time_zone( DateTime::TimeZone->new( name => 'local' ) ); 1609 my $tend = $pend->clone; 1610 $tend->add(days => $delay + 1); 1611 if ($tend->ymd lt $nextstart->ymd) { 1612 last; 1613 } 1614 $end = $tend 1607 1615 } elsif ((!$res->{current}) && (!$any)) { 1608 1616 last;
Note: See TracChangeset
for help on using the changeset viewer.