Changeset 1628 for trunk

Timestamp:

01/11/16 16:08:29 (9 years ago)

Author:

nanardon

Message:

Add remove_old_dpmt parameter: remove user from previous department group

Location:

trunk/LATMOS-Accounts

Files:

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

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

@@ -1311 +1311 @@
 }
 
+sub set_fields {
+    my ($self, %data) = @_;
+
+    my $old;
+    if (exists($data{department})) {
+        $old = $self->_get_attributes('department');
+    }
+    if (($data{department} || '') eq ($old || '')) {
+        # We do not remove the group, there is no change
+        $old = undef;
+    }
+
+    my $res = $self->SUPER::set_fields(%data) or return;
+
+    if ($self->base->config('remove_old_dpmt') && $old) {
+        $self->base->log(LA_DEBUG,
+            "Removing %s from group %s (department change to %s)",
+            $self->id,
+            $old,
+            $data{department} || '');
+        $self->_delAttributeValue('memberOf', $old) or return;
+        $res++;
+    }
+
+    $res
+}
+
 =head2 listEmployment
 

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

@@ -9 +9 @@
 The C<libpq> connection parameters, eg a semin colon separated paramaters
 containing the server, the database name, user and password, etc...
+
+=head2 remove_old_dpmt
+
+By default when the department is changed on a user account it remains in the
+department group as a secondary department.
+
+Setting C<remove_old_dpmt> to true in the config will force user removal from
+the group when department is changed.
+The user can still be added back later.
 
 =head1 FEATURES