Changeset 112 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm

Timestamp:

05/16/09 02:44:29 (15 years ago)

Author:

nanardon

Message:

• first step with forms

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (4 diffs)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrForms.pm

@@ -17 +17 @@
 
 my $attrs = {
-    'uid' => 'Login',
-    'uidNumber', 'UID',
+    uid => 'Login',
+    uidNumber => 'UID',
     gidNumber => 'GID',
+    sn => 'Nom',
+    givenName => 'Prenom',
+    homeDirectory => 'Home',
+    loginShell => 'Shell',
 };
 
@@ -25 +29 @@
     user_main => {
         acl => 'admin',
-        attrs => [ qw(uid uidNumber gidNumber gecos homeDirectory shell) ],
+        attrs => [ qw(
+            sn givenName uid uidNumber gidNumber gecos homeDirectory loginShell
+        ) ],
     }
 };
@@ -37 +43 @@
 sub ACCEPT_CONTEXT {
     my ($self, $c, $form, $object) = @_;
+    $forms->{$form} or return;
+    $self->{c} = $c;
     $self->{form} = $form;
-    $self->{object} = $object;
-    $self->{c} = $c;
+    $self->{object} = $object or return;
     $self
 }
@@ -65 +72 @@
 }
 
+sub set_attrs {
+    my ($self) = @_;
+    $self->{object}->set_c_fields(
+        map {
+            $_ => $self->{c}->req->param($_)
+        } grep { 
+            exists $self->{c}->req->params->{$_}
+        } $self->attributes
+    );
+    $self->{object}->base->commit;
+}
+
 =head1 AUTHOR