Changeset 2488

Timestamp:

11/19/21 14:44:55 (2 years ago)

Author:

nanardon

Message:

Fix ldap class upgrade

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap

Files:

• Group.pm (modified) (1 diff)
• objects.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/Group.pm

@@ -112 +112 @@
 sub _computeSSID {
     my ($value) = @_;
-    $value * 2 + 1000
+    $value * 2 + 1001
 }
 

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/objects.pm

@@ -238 +238 @@
 }
 
-sub set_fields {
+sub _set_c_fields {
     my ($self, %fields) = @_;
 
@@ -248 +248 @@
         }
     }
+
+    $self->SUPER::_set_c_fields(%fields);
+
+    my $mesg = $self->{entry}->update($self->base->ldap);
+
+    if ($mesg->code && $mesg->code != 82) {
+        $self->base->log(LA_ERR, "Cannot set attributes: %s", $mesg->error);
+        return;
+    } else { return 1 }
+}
+
+sub set_fields {
+    my ($self, %fields) = @_;
+
     foreach (keys %fields) {
         my $attr = $self->attribute($_) or do {
@@ -258 +272 @@
     }
     
-    my $mesg = $self->{entry}->update($self->base->ldap);
-
-    if ($mesg->code && $mesg->code != 82) {
-        $self->base->log(LA_ERR, "Cannot set attributes: %s", $mesg->error);
-        return;
-    } else { return 1 }
+    return 1;
 }