Changeset 1523 for trunk/LATMOS-Accounts/lib/LATMOS

Timestamp:

12/22/15 16:35:18 (9 years ago)

Author:

nanardon

Message:

Add trace about change

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Employment.pm (modified) (2 diffs)

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

@@ -194 +194 @@
     if ($expire != $nextexpire) {
         $user->set_fields(expire => $endemploy);
+        $user->ReportChange('Update', 'Expire update to %s to match employment', $endemploy);
     }
 
@@ -215 +216 @@
 
     if (keys %attrsets) {
-        return $user->set_fields(%attrsets);
+        if (my $res = $user->set_fields(%attrsets)) {
+            $user->ReportChange('Update', 'Attr %s updated to match Employment %s', join(', ', sort keys %attrsets), $self->id);
+            return $res;
+        }
     } else {
         return 1;