2 /***************************************************************************
3 * Copyright (C) 2003-2006 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 list_sort_owners
24 function list_sort_owners(&$members, $tri_promo = true
) {
29 foreach($members as $mem) {
30 list($m, $dom) = explode('@',$mem);
31 if ($dom == $globals->mail
->domain ||
$dom == $globals->mail
->domain2
) {
32 $res = XDB
::query('SELECT prenom,IF(nom_usage="", nom, nom_usage), promo
33 FROM auth_user_md5 AS u
34 INNER JOIN aliases AS a ON u.user_id = a.id
35 WHERE a.alias = {?}', $m);
36 if(list($prenom, $nom, $promo) = $res->fetchOneRow()) {
37 $key = $tri_promo ?
$promo : strtoupper($nom{0});
38 $membres[$key][$nom.$m] = Array('n' => "$prenom $nom", 'l' => $m, 'p' => (!$tri_promo ?
$promo : null
));
40 $membres[0][] = Array('l' => $mem);
43 $res = XDB
::query('SELECT m2.uid, m1.prenom, m1.nom
44 FROM groupex.membres AS m1
45 LEFT JOIN groupex.membres AS m2 ON(m1.email=m2.email AND m2.asso_id={?})
46 WHERE m1.email={?}', $globals->asso('id'), $mem);
47 if (list($uid, $prenom, $nom) = $res->fetchOneRow()) {
48 $key = $tri_promo ?
0 : strtoupper($nom{0});
49 $membres[$key][$nom.$m] = Array('n' => "$prenom $nom", 'l' => $mem, 'x' => $uid, 'p' => (!$tri_promo ?
'non-X' : null
));
51 $membres[0][] = Array('l' => $mem, 'p' => (!$tri_promo ?
'non-X' : null
));
57 foreach($membres as $key=>$val) ksort($membres[$key]);
62 // {{{ function list_sort_members
64 function list_sort_members(&$members, $tri_promo = true
) {
65 $member_list = array_map(create_function('$arr', 'return $arr[1];'), $members);
66 return list_sort_owners($member_list, $tri_promo);
70 // {{{ function list_header_decode
72 function _list_header_decode($charset, $c, $str) {
73 $s = ($c == 'Q' ||
$c == 'q') ?
quoted_printable_decode($str) : base64_decode($str);
74 $s = iconv($charset, 'iso-8859-15', $s);
75 return str_replace('_', ' ', $s);
78 function list_header_decode($value) {
79 $val = preg_replace('/(=\?[^?]*\?[BQbq]\?[^?]*\?=) (=\?[^?]*\?[BQbq]\?[^?]*\?=)/', '\1\2', $value);
80 return preg_replace('/=\?([^?]*)\?([BQbq])\?([^?]*)\?=/e', '_list_header_decode("\1", "\2", "\3")', $val);