modules/lists/lists.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2007 Polytechnique.org                              *
   4  *  http://opensource.polytechnique.org/                                   *
   5  *                                                                         *
   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.                                    *
  10  *                                                                         *
  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.                           *
  15  *                                                                         *
  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            *
  18  *  Foundation, Inc.,                                                      *
  19  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  20  ***************************************************************************/
  21
  22 // {{{ function list_sort_owners
  23
  24 function list_sort_owners(&$members, $tri_promo = true) {
  25     global $globals;
  26
  27     $membres = Array();
  28
  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));
  39             } else {
  40                 $membres[0][] = Array('l' => $mem);
  41             }
  42         } else {
  43             $res = XDB::query('SELECT m2.uid,
  44                                       IF(m2.origine="X", u.prenom, m1.prenom) AS prenom,
  45                                       IF(m2.origine="X", u.nom, m1.nom) AS nom,
  46                                       IF(m2.origine="X", u.promo, "non-X") AS promo
  47                                  FROM groupex.membres AS m1
  48                             LEFT JOIN groupex.membres AS m2 ON(m1.email=m2.email AND m2.asso_id={?})
  49                             LEFT JOIN auth_user_md5   AS u  ON(m2.origine = "X" AND m2.uid = u.user_id)
  50                                 WHERE m1.email={?}', $globals->asso('id'), $mem);
  51             if (list($uid, $prenom, $nom, $promo) = $res->fetchOneRow()) {
  52                 $key = $tri_promo ? ($promo != 'non-X' ? $promo : 0) : strtoupper($nom{0});
  53                 if ($tri_promo) {
  54                     $promo = null;
  55                 }
  56                 $membres[$key][$nom.$m] = Array('n' => "$prenom $nom", 'l' => $mem, 'x' => $uid, 'p' => $promo);
  57             } else {
  58                 $membres[0][] = Array('l' => $mem, 'p' => (!$tri_promo ? 'non-X' : null));
  59             }
  60         }
  61     }
  62
  63     ksort($membres);
  64     foreach($membres as $key=>$val) ksort($membres[$key]);
  65     return $membres;
  66 }
  67
  68 // }}}
  69 // {{{ function list_sort_members
  70
  71 function list_sort_members(&$members, $tri_promo = true) {
  72     $member_list = array_map(create_function('$arr', 'return $arr[1];'), $members);
  73     return list_sort_owners($member_list, $tri_promo);
  74 }
  75
  76 // }}}
  77 // {{{ function list_header_decode
  78
  79 function _list_header_decode($charset, $c, $str) {
  80     $s = ($c == 'Q' || $c == 'q') ? quoted_printable_decode($str) : base64_decode($str);
  81     $s = iconv($charset, 'iso-8859-15', $s);
  82     return str_replace('_', ' ', $s);
  83 }
  84
  85 function list_header_decode($value) {
  86     $val = preg_replace('/(=\?[^?]*\?[BQbq]\?[^?]*\?=) (=\?[^?]*\?[BQbq]\?[^?]*\?=)/', '\1\2', $value);
  87     return preg_replace('/=\?([^?]*)\?([BQbq])\?([^?]*)\?=/e', '_list_header_decode("\1", "\2", "\3")', $val);
  88 }
  89
  90 // }}}
  91 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
  92 ?>