Changeset 497 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Users.pm

Timestamp:

10/05/09 14:30:15 (15 years ago)

Author:

nanardon

Message:

• add user/mail page forms

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Users.pm (modified) (1 diff)

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

@@ -113 +113 @@
             $c->stash->{db} = $base;
             $c->stash->{template} = 'users/mail.tt';
-            my %aliases;
-            my @faliases = $c->stash->{user}->get_attributes('aliases');
-            foreach my $al (@faliases) {
-                $aliases{$al} = $base->get_object('aliases', $al);
-                delete($aliases{$al}) if (!$aliases{$al});
+
+            if ($c->req->param('usermail')) {
+                $c->stash->{user}->set_c_fields(
+                    mail => $c->req->param('mail'),
+                    aliases => [ grep { $_ } $c->req->param('aliases') ],
+                    revaliases => $c->req->param('revaliases'),
+                    forward => $c->req->param('forward'),
+                ) and $base->commit;
             }
-            my %samealiases;
-            foreach my $alias (values %aliases) {
-                foreach my $sameid ($alias->get_attributes('samedestination')) {
-                    exists($aliases{$sameid}) and next;
-                    $sameid eq $username and next; # skip the forward
-                    $samealiases{$sameid} ||= $base->get_object('aliases',
-                        $sameid);
-                }
-            }
-            @{ $c->stash->{samealiases} } = values %samealiases;
-            $c->stash->{forward} = $base->get_object('aliases', $username);
-            $c->stash->{aliases} = [ values %aliases ];
+
             last;
         };