Changeset 292 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/Group.pm

Timestamp:

07/27/09 23:04:32 (15 years ago)

Author:

nanardon

Message:

• update object class if need

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ldap/Group.pm (modified) (2 diffs)

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

@@ -40 +40 @@
 sub _key_attr { 'cn' } 
 
+sub _my_ldap_classes { qw(top posixGroup) }
+
 sub _delayed_fields {
     my ($self)= @_;
@@ -65 +67 @@
         $base->object_base_dn($class->type),
     ));
-    $entry->replace(objectClass => [ qw(top posixGroup)],);
+    $entry->replace(objectClass => [ $class->_my_ldap_classes ],);
     my %delayed;
     foreach (keys %data) {