Changeset 2324

Timestamp:

12/16/19 14:20:13 (4 years ago)

Author:

nanardon

Message:

Recompute cached attribute on employment change

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (6 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -1746 +1746 @@
         # If an employement apply we set the value to the user object
 
-        $self->computeEmploymentDate;
+        $self->_computeEmploymentDate;
 
         my %attrsets = (
@@ -1772 +1772 @@
             if (my $res = $self->set_fields(%attrsets)) {
                 $self->ReportChange('Update', 'Attr %s updated to match Employment %s', join(', ', sort keys %attrsets), $currentemployment->id);
+                $self->PostSetAttribute();
                 return $res;
             }
@@ -1780 +1781 @@
         # No current employment, resetting values:
 
-        return $self->_resetEmployment;
+        return $self->resetEmployment;
     }
 
 }
 
-# Reset attribute value set by employment
-# except managerContact and expire
-
-sub _resetEmployment {
+=head2 resetEmployment
+
+Reset attribute value set by employment except managerContact and expire
+
+=cut
+
+sub resetEmployment {
     my ($self) = @_;
 
-    $self->computeEmploymentDate;
+    $self->_computeEmploymentDate;
 
     my %changes = (
@@ -1835 +1839 @@
             $self->base->log(LA_NOTICE, "Updating user %s to match unemployment", $self->id);
             $self->ReportChange('Update', 'Update %s to match unemployment', join(', ', sort keys %changes));
+            $self->PostSetAttribute();
             return 1;
         } else {
@@ -1845 +1850 @@
 }
 
-=head2 computeEmploymentDate
+=head2 _computeEmploymentDate
 
 Compute and copy to user start and end employment date
@@ -1851 +1856 @@
 =cut
 
-sub computeEmploymentDate {
+sub _computeEmploymentDate {
     my ($self) = @_;