Changeset 112

Timestamp:

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

Author:

nanardon

Message:

• first step with forms

Location:

LATMOS-Accounts-Web

Files:

• lib/LATMOS/Accounts/Web/Controller/Users.pm (modified) (2 diffs)
• lib/LATMOS/Accounts/Web/Model/AttrForms.pm (modified) (4 diffs)
• root/html/users/default.tt (modified) (1 diff)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Users.pm

@@ -28 +28 @@
 
 sub default : LocalPath {
-    my ( $self, $c, undef, $username ) = @_;
+    my ( $self, $c, undef, $username, $subform ) = @_;
 
     my $base = $c->model('Accounts')->db;
@@ -34 +34 @@
     $c->stash->{username} = $username;
     $c->stash->{user} = $base->get_object('user', $username);
+
+    if ($c->stash->{user}) {
+        $c->model('AttrForms', $subform || 'user_main', $c->stash->{user})->set_attrs;
+    }
+
 }
 

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
 

LATMOS-Accounts-Web/root/html/users/default.tt

@@ -10 +10 @@
 <table border=1>
 [% END %]
-<tr><td>[% form.attr_label(attr) %]</td><td>[% form.attr_field(attr) %]</td><br>
+<tr><td>[% form.attr_label(attr) %]</td><td>[% form.attr_field(attr) %]</td>
 [% IF loop.last %]
 <tr><td colspan=2><input type="submit"></td></tr>