Changeset 821

Timestamp:

03/10/10 22:58:06 (14 years ago)

Author:

nanardon

Message:

• fix initial sAMAccountName when creating group
• really set groups attributes (eg call parent class function to do the work

File:

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

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

@@ -61 +61 @@
     my ($class, $base, $id, %data) = @_;
 
-    $data{sAMAccountName} = $id;
+    $data{sAMAccountName} = 'GR-' . $id;
     my $entry = Net::LDAP::Entry->new();
 
@@ -156 +156 @@
         };
     }
+    $self->SUPER::_populate_entry($entry, $field, $value, $base);
 }