Changeset 1576 for trunk

Timestamp:

12/31/15 14:31:45 (9 years ago)

Author:

nanardon

Message:

Employment task reset status for unemployed user

Location:

trunk/LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases/Sql/Employment.pm (modified) (2 diffs)
• lib/LATMOS/Accounts/Task/Employment.pm (modified) (2 diffs)
• man/man8/latmos-accounts-base-sql.pod (modified) (1 diff)

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

@@ -44 +44 @@
 
 sub _has_extended_attributes { 1 }
+
+sub _reported_atributes { qw(company contratType department endcircuit) }
 
 sub _get_attr_schema {
@@ -317 +319 @@
         appliedEmployement => $self->id,
     );
-    foreach my $attr (qw(company contratType department managerContact endcircuit)) {
+    foreach my $attr (_reported_atributes(), 'managerContact') {
         my $uval = $user->get_attributes($attr) || '';
         my $cval = $self->get_attributes($attr) || '';

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Employment.pm

@@ -7 +7 @@
 use LATMOS::Accounts::Log;
 use LATMOS::Accounts::Utils;
+use LATMOS::Accounts::Bases::Sql::Employment;
 
 =head1 NAME
@@ -58 +59 @@
             $self->{_base}->commit;
         }
+        delete($users{$user});
+    }
+
+    # Change has old employment => nothing
+    # if user is still active, expired account remains untouched
+    foreach my $user ($self->{_base}->search_objects('user', 'active=1')) {
+        if ($users{$user}) {
+            my $ouser = $self->{_base}->get_object('user', $user);
+            my %changes = (
+                appliedEmployement => undef,
+            );
+            foreach my $attr (LATMOS::Accounts::Bases::Sql::Employment::_reported_atributes) {
+                my $default = $self->{_base}->config("unemployment.$attr") || '';
+                my $old = $ouser->_get_attributes($attr) || '';
+                if ($old ne $default) {
+                    $changes{$attr} = $default || undef;
+                }
+            }
+            if ($ouser->set_fields(%changes)) {
+                $self->{_base}->log(LA_NOTICE, "Updating user $user to match unemployment");
+                $ouser->ReportChange('Update', 'Update %s to match unemployment', join(', ', sort keys %changes));
+                $self->{_base}->commit;
+            } else {
+                $self->{_base}->rollback;
+            }
+        }
     }
 

trunk/LATMOS-Accounts/man/man8/latmos-accounts-base-sql.pod

@@ -113 +113 @@
 =back
 
+When active users become out of any employment all managed attribute are unset
+(except the expire attribute).
+
+A default value for each of this attribute can be set in configuration using
+parameter in form C<unemployment.ATTRIBUTE>. For example
+C<unemployment.contratType=external> will set any C<contratType> to C<external>
+when no employment apply to user anymore.
+
+Only active accounts are modified in this way.
+
 =head3 User endEmployment