Changeset 95 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

Timestamp:

05/12/09 19:36:59 (15 years ago)

Author:

nanardon

Message:

• fix SQL::User creation

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (1 diff)

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

@@ -50 +50 @@
 sub _inline_fields {
     my ($self, $for) = @_;
+    return {
+        %{ $self->_initial_fields($for) },
+        memberOf        => 'memberOf',
+    }
+}
+
+sub _initial_fields {
+    my ($self, $for) = @_;
     my %fields = (
         uidNumber       => 'uid',
         gidNumber       => 'gid',
-        memberOf        => 'memberOf',
         (($for !~ /w/)
         ? (