3 * Mailing Lists Facility
5 * Copyright 1999-2001 (c) VA Linux Systems
6 * Copyright 2003-2004 (c) Guillaume Smet - Open Wide
7 * Copyright (C) 2010-2011 Alain Peyrat - Alcatel-Lucent
8 * http://fusionforge.org/
10 * This file is part of FusionForge.
12 * FusionForge is free software; you can redistribute it and/or modify
13 * it under the terms of the GNU General Public License as published by
14 * the Free Software Foundation; either version 2 of the License, or
15 * (at your option) any later version.
17 * FusionForge is distributed in the hope that it will be useful,
18 * but WITHOUT ANY WARRANTY; without even the implied warranty of
19 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 * GNU General Public License for more details.
22 * You should have received a copy of the GNU General Public License
23 * along with FusionForge; if not, write to the Free Software
24 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
27 function mail_header($params) {
28 global $HTML, $group_id;
31 //required for site_project_header
32 $params['group'] = $group_id;
33 $params['toptab'] = 'mail';
35 $project = group_get_object($group_id);
37 if ($project && is_object($project)) {
38 if (!$project->usesMail()) {
39 exit_disabled('home');
45 $labels[] = _('View Lists');
46 $links[] = '/mail/?group_id='.$group_id;
47 if (session_loggedin()) {
48 if (forge_check_perm ('project_admin', $project->getID())) {
49 $labels[] = _('Administration');
50 $links[] = '/mail/admin/?group_id='.$group_id;
53 $params['submenu'] = $HTML->subMenu($labels,$links);
54 site_project_header($params);
60 function mail_footer($params) {
61 site_project_footer($params);
66 // c-file-style: "bsd"