Changeset 176 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Create.pm

Timestamp:

05/24/09 15:42:28 (15 years ago)

Author:

nanardon

Message:

• end user creation

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Create.pm (modified) (2 diffs)

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

@@ -4 +4 @@
 use warnings;
 use base 'LATMOS::Accounts::Web::Controller';
+use LATMOS::Accounts::Utils;
 
 =head1 NAME
@@ -36 +37 @@
         /^1$/ and do {
             $c->stash->{step} = 2;
-            $c->req->params->{id} = lc($c->req->param('sn'));
+            my $acc = $c->model('Accounts')->accounts;
+            foreach ($acc->Parameters('_defattr_')) {
+                if (/^user\.(.*)/) {
+                    $c->req->params->{$1} ||= $acc->val('_defattr_', $_);
+                }
+            }
+            $c->req->params->{exported} = 1;
+            if (! $c->req->params->{id}) {
+                for (1) {
+                    my $login;
+                    if ($c->req->param('sn')) {
+                        $login = lc(to_ascii($c->req->param('sn')));
+                        length($login) > 10 and $login = substr($login, 0, 8);
+                        $base->get_object('user', $login) or do {
+                            $c->req->params->{id} = $login;
+                            last;
+                        };
+                        if ($c->req->param('givenName')) {
+                            length($login) > 8 and $login = substr($login, 0, 8);
+                            $login .= substr(lc(to_ascii($c->req->param('givenName'))), 0, 1);
+                            $base->get_object('user', $login) or do {
+                                $c->req->params->{id} = $login;
+                                last;
+                            };
+                        }
+                    }
+                }
+            }
             last;
         };
         /^2$/ and do {
-            $base->create_c_object('user', $c->req->params->{id}, %{ $c->req->params });
+            $c->stash->{step} = 2;
+            $base->get_object('user', $c->req->params->{id}) and do {
+                $c->stash->{idexists} = 1;
+                return;
+            };
+            $base->create_c_object('user', $c->req->params->{id},
+                %{ $c->req->params },
+                exported => $c->req->param('exported') ? 1 : 0,
+            )
+             or return;
             $base->commit;
             $c->res->redirect($c->uri_for('/users', $c->req->params->{id}));