Changeset 2075 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

08/26/17 15:34:00 (7 years ago)

Author:

nanardon

Message:

Optimize employment update

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql

Files:

• Employment.pm (modified) (1 diff)
• User.pm (modified) (1 diff)

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

@@ -338 +338 @@
 }
 
-sub set_fields {
+sub _set_c_fields {
     my ($self, %data) = @_;
 
-    my $res = $self->SUPER::set_fields(%data);
-
-    my $user = $self->base->get_object('user', $self->get_attributes('user')) or do {
-        $self->base->log(LA_ERR, "Cannot fetch user %s to apply employment", $self->get_attributes('user'));
-        return;
-    };
+    my $res = $self->SUPER::_set_c_fields(%data);
+
+    if ($res) {
+        my $user = $self->base->get_object('user', $self->get_attributes('user')) or do {
+            $self->base->log(LA_ERR, "Cannot fetch user %s to apply employment", $self->get_attributes('user'));
+            return;
+        };
+    }
 
     $user->applyCurrentEmployment;

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

@@ -1628 +1628 @@
         my $default = $self->base->config("unemployment.$attr") || '';
         my $old = $self->_get_attributes($attr) || '';
-        warn "$attr $old $default";
+
         if ($old ne $default) {
             $changes{$attr} = $default || undef;