Auto-relogin in 'My groups' list on xnet
[platal.git] / include / xnet / page.inc.php
CommitLineData
0337d704 1<?php
2/***************************************************************************
2b105fb6 3 * Copyright (C) 2003-2006 Polytechnique.org *
0337d704 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
0337d704 22class XnetPage extends PlatalPage
23{
d83a1b04 24 var $nomenu = false;
25
0337d704 26 // {{{ function XnetPage()
27
28 function XnetPage($tpl, $type=SKINNED)
29 {
30 $this->PlatalPage($tpl, $type);
63528107 31
32 $this->register_function('list_all_my_groups', 'list_all_my_groups');
33 $this->register_modifier('cat_pp', 'cat_pp');
34 $this->assign('it_is_xnet', true);
35
36 if (!S::logged() && Get::has('auth')) {
37 XnetSession::doAuthX();
38 }
0337d704 39 }
40
41 // }}}
42 // {{{ function run()
43
44 function run()
45 {
d83a1b04 46 if (!$this->nomenu) {
47 $this->useMenu();
48 }
0337d704 49 $this->_run('xnet/skin.tpl');
50 }
51
52 // }}}
53 // {{{ function setType
54
55 function setType($type)
56 {
57 $this->assign('xnet_type', strtolower($type));
58 }
59
60 // }}}
61 // {{{ function useMenu
62
63 function useMenu()
64 {
65 global $globals;
66
67 $menu = array();
68
59ff13cf 69 $sub = array();
59ff13cf 70 $sub['liste des groupes'] = 'plan';
27455960 71 $sub['documentation'] = 'Xnet';
9193e8f7 72 $sub['Signaler un bug'] = array('link' => 'send_bug', 'onclick' => 'send_bug();return false');
6b4707eb 73 $menu["no_title"] = $sub;
3cabafae 74
5372c4d7 75 if (S::logged() && $globals->asso()) {
0337d704 76 $sub = array();
77 $dim = $globals->asso('diminutif');
27ae65e3 78 $sub['présentation'] = "login/$dim/";
3cabafae 79 if (may_update() || (is_member() && $globals->asso('pub') == 'public')) {
2e94d2b8 80 $sub['annuaire du groupe'] = "$dim/annuaire";
28929cf0 81 $sub['trombinoscope'] = "$dim/trombi";
e336465e 82 $sub['carte'] = "$dim/geoloc";
2b105fb6 83 }
3cabafae 84 if ((is_member() || may_update()) && $globals->asso('mail_domain')) {
80f44cfe 85 $sub['listes de diffusion'] = "$dim/lists";
0337d704 86 }
4f10a058 87 $sub['événement'] = "$dim/events";
3cabafae 88 if (may_update() || is_member()) {
89 $sub['télépaiement'] = "$dim/paiement";
90 }
0337d704 91
92 $menu[$globals->asso('nom')] = $sub;
93 }
94
cab08090 95 if (S::logged() && may_update()) {
0337d704 96 $sub = array();
2e94d2b8 97 $sub['modifier l\'accueil'] = "$dim/edit";
24bcf50c 98 $sub['gérer les annonces'] = "$dim/admin/announces";
0337d704 99 if ($globals->asso('mail_domain')) {
3cabafae 100 $sub['envoyer un mail'] = "$dim/mail";
80f44cfe 101 $sub['créer une liste'] = "$dim/lists/create";
d1fcf09c 102 $sub['créer un alias'] = "$dim/alias/create";
0337d704 103 }
59ff13cf 104 if (S::has_perms()) {
105 $sub['gérer les groupes'] = 'admin';
106 }
107 $menu['Administrer'] = $sub;
8383ee06 108 } elseif (S::has_perms()) {
109 $sub = array();
110 $sub['gérer les groupes'] = 'admin';
111 $menu['Administrer'] = $sub;
0337d704 112 }
113
114 $this->assign('menu', $menu);
115 }
116
117 // }}}
0337d704 118}
119
b76f0797 120// {{{ function list_all_my_groups
121
122function list_all_my_groups($params)
123{
124 if (!S::logged()) {
125 return;
126 }
127 $res = XDB::iterRow(
128 "SELECT a.nom, a.diminutif
129 FROM groupex.asso AS a
130 INNER JOIN groupex.membres AS m ON m.asso_id = a.id
131 WHERE m.uid={?}", S::v('uid'));
6b4707eb 132 $html = '<div>Mes groupes (<a href="exit">déconnexion</a>) :</div>';
b76f0797 133 while (list($nom, $mini) = $res->next()) {
db5db6c8 134 $html .= "<span class='gp'>&bull; <a href='login/$mini'>$nom</a></span>";
b76f0797 135 }
136 return $html;
137}
138
139// }}}
140// {{{ cat_pp
141
142function cat_pp($cat)
143{
144 $trans = array(
145 'groupesx' => 'Groupes X' ,
146 'binets' => 'Binets' ,
147 'institutions' => 'Institutions' ,
148 'promotions' => 'Promotions'
149 );
150
151 return $trans[strtolower($cat)];
152}
153
154// }}}
155
0337d704 156// vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
157?>