first reimport from platal
[platal.git] / htdocs / listes / members.php
1 <?php
2 /***************************************************************************
3 * Copyright (C) 2003-2004 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 if (!$page) {
23 require_once("xorg.inc.php");
24 if (!Env::has('liste')) header('Location: index.php');
25 $liste = strtolower(Env::get('liste'));
26
27 new_skinned_page('listes/members.tpl', AUTH_COOKIE);
28 require_once('lists.inc.php');
29
30 $client =& lists_xmlrpc(Session::getInt('uid'), Session::get('password'));
31 }
32
33 if(Get::has('del')) {
34 $client->unsubscribe($liste);
35 header("Location: {$_SERVER['PHP_SELF']}?liste=$liste");
36 }
37 if(Get::has('add')) {
38 $client->subscribe($liste);
39 header("Location: {$_SERVER['PHP_SELF']}?liste=$liste");
40 }
41 $members = $client->get_members($liste);
42
43 $tri_promo = !Env::getBool('alpha');
44
45 if(list($det,$mem,$own) = $members) {
46 $membres = list_sort_members($mem, $tri_promo);
47 $moderos = list_sort_owners($own, $tri_promo);
48
49 $page->assign_by_ref('details', $det);
50 $page->assign_by_ref('members', $membres);
51 $page->assign_by_ref('owners', $moderos);
52 $page->assign('nb_m', count($mem));
53
54 } else {
55 $page->kill("La liste n'existe pas ou tu n'as pas le droit d'en voir les détails");
56 }
57
58 $page->run();
59 ?>