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

Timestamp:

08/19/09 18:49:16 (15 years ago)

Author:

nanardon

Message:

• add a kind page for mail management

File:

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

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

@@ -110 +110 @@
             last;
         };
+        /^mail$/ and do {
+
+            $c->stash->{db} = $base;
+            $c->stash->{template} = 'users/mail.tt';
+            my %aliases;
+            my $faliases = $c->stash->{user}->get_c_field('aliases');
+            foreach my $al (ref $faliases ? @{ $faliases } : $faliases) {
+                $aliases{$al} = $base->get_object('aliases', $al);
+            }
+            foreach my $alias (values %aliases) {
+                foreach my $sameid (@{ $alias->get_c_field('samedestination') }) {
+                    exists($aliases{$sameid}) and next;
+                    $sameid eq $username and next; # skip the forward
+                    push(@{ $c->stash->{samealiases} },
+                        $base->get_object('aliases', $sameid));
+                }
+            }
+            $c->stash->{forward} = $base->get_object('aliases', $username);
+            $c->stash->{aliases} = [ values %aliases ];
+            last;
+        };
 
         $c->stash->{form} = $c->model('AttrForms', 'user' . $c->stash->{subform}, $c->stash->{user});