2 /***************************************************************************
3 * Copyright (C) 2003-2008 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 function fill_email_combobox(PlPage
& $page)
27 $email_type = "directory";
30 "SELECT email_directory
31 FROM profile_directory
32 WHERE uid = {?}", $user->id());
33 $email_directory = $res->fetchOneCell();
34 if ($email_directory) {
35 $page->assign('email_directory', $email_directory);
36 list($alias, $domain) = explode('@', $email_directory);
38 $page->assign('email_directory', '');
40 $alias = $domain = '';
46 INNER JOIN virtual_redirect USING(vid)
47 WHERE (redirect = {?} OR redirect = {?})
48 AND alias LIKE '%@{$globals->mail->alias_dom}'",
49 $user->forlifeEmail(),
50 // TODO: remove this über-ugly hack. The issue is that you need
51 // to remove all @m4x.org addresses in virtual_redirect first.
52 $user->login() . '@' . $globals->mail
->domain2
);
53 $melix = $res->fetchOneCell();
55 list($melix) = explode('@', $melix);
56 $page->assign('melix', $melix);
57 if (($domain == $globals->mail
->alias_dom
) ||
($domain == $globals->mail
->alias_dom2
)) {
58 $email_type = "melix";
65 WHERE id={?} AND (type='a_vie' OR type='alias')", $user->id());
66 $res = $res->fetchAllAssoc();
67 $page->assign('list_email_X', $res);
68 if (($domain == $globals->mail
->domain
) ||
($domain == $globals->mail
->domain2
)) {
69 foreach ($res as $res_it) {
70 if ($alias == $res_it['alias']) {
76 require_once 'emails.inc.php';
77 $redirect = new Redirect($user);
79 foreach ($redirect->emails
as $redirect_it) {
80 if ($redirect_it instanceof EmailRedirection
) {
81 $redir[] = $redirect_it->email
;
82 if ($email_directory == $redirect_it->email
) {
83 $email_type = "redir";
87 $page->assign('list_email_redir', $redir);
92 WHERE uid = {?}", $user->id());
93 $res = $res->fetchAllAssoc();
95 foreach ($res as $res_it) {
96 if ($res_it['email'] != '') {
97 $pro[] = $res_it['email'];
98 if ($email_directory == $res_it['email']) {
103 $page->assign('list_email_pro', $pro);
105 $page->assign('email_type', $email_type);
108 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: