Changeset 2075 for trunk/LATMOS-Accounts/lib
- Timestamp:
- 08/26/17 15:34:00 (7 years ago)
- Location:
- trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Employment.pm
r2007 r2075 338 338 } 339 339 340 sub set_fields {340 sub _set_c_fields { 341 341 my ($self, %data) = @_; 342 342 343 my $res = $self->SUPER::set_fields(%data); 344 345 my $user = $self->base->get_object('user', $self->get_attributes('user')) or do { 346 $self->base->log(LA_ERR, "Cannot fetch user %s to apply employment", $self->get_attributes('user')); 347 return; 348 }; 343 my $res = $self->SUPER::_set_c_fields(%data); 344 345 if ($res) { 346 my $user = $self->base->get_object('user', $self->get_attributes('user')) or do { 347 $self->base->log(LA_ERR, "Cannot fetch user %s to apply employment", $self->get_attributes('user')); 348 return; 349 }; 350 } 349 351 350 352 $user->applyCurrentEmployment; -
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r2074 r2075 1628 1628 my $default = $self->base->config("unemployment.$attr") || ''; 1629 1629 my $old = $self->_get_attributes($attr) || ''; 1630 warn "$attr $old $default"; 1630 1631 1631 if ($old ne $default) { 1632 1632 $changes{$attr} = $default || undef;
Note: See TracChangeset
for help on using the changeset viewer.