3 * GForge Mailing Lists Facility
5 * Portions Copyright 1999-2001 (c) VA Linux Systems
6 * The rest Copyright 2003 (c) Guillaume Smet
13 function mail_header($params) {
14 global $Language, $HTML, $group_id;
17 //required for site_project_header
18 $params['group'] = $group_id;
19 $params['toptab'] = 'mail';
21 $project =& group_get_object($group_id);
23 if ($project && is_object($project)) {
24 if (!$project->usesMail()) {
25 exit_error(_('Error'), _('This Project Has Turned Off The Mailing Lists'));
30 site_project_header($params);
31 if (session_loggedin()) {
32 $perm =& $project->getPermission(session_get_user());
33 if ($perm && is_object($perm) && !$perm->isError() && $perm->isAdmin()) {
39 '/mail/admin/?group_id='.$group_id
49 function mail_footer($params) {
50 site_project_footer($params);