[Sommaire] [Imprimer]

   1  <?php
   2  /* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
   3   * Copyright (C) 2005 Laurent Destailleur  <eldy@users.sourceforge.net>
   4   *
   5   * This program is free software; you can redistribute it and/or modify
   6   * it under the terms of the GNU General Public License as published by
   7   * the Free Software Foundation; either version 2 of the License, or
   8   * (at your option) any later version.
   9   *
  10   * This program is distributed in the hope that it will be useful,
  11   * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13   * GNU General Public License for more details.
  14   *
  15   * You should have received a copy of the GNU General Public License
  16   * along with this program; if not, write to the Free Software
  17   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  18   *
  19   * $Id: pre.inc.php,v 1.8 2005/08/25 16:55:11 eldy Exp $
  20   * $Source: /cvsroot/dolibarr/dolibarr/htdocs/comm/mailing/pre.inc.php,v $
  21   */
  22  
  23  /**
  24          \file       htdocs/comm/mailing/pre.inc.php
  25          \ingroup    mailing
  26          \brief      Fichier de gestion du menu gauche de l'espace mailing
  27          \version    $Revision: 1.8 $
  28  */
  29  
  30  require ("../../main.inc.php");
  31  require_once DOL_DOCUMENT_ROOT.'/comm/mailing/mailing.class.php';
  32  
  33  $user->getrights();
  34  $langs->load("companies");
  35  $langs->load("mails");
  36  
  37  
  38  function llxHeader($head = "", $title = "")
  39  {
  40      global $user, $conf, $langs;
  41      
  42      top_menu($head, $title);
  43      
  44      $menu = new Menu();
  45      
  46      if ($user->rights->mailing->lire)
  47      {
  48          $menu->add(DOL_URL_ROOT."/comm/mailing/index.php", $langs->trans("Mailings"));
  49      }
  50      
  51      if ($user->rights->mailing->creer)
  52      {
  53          $menu->add_submenu(DOL_URL_ROOT."/comm/mailing/fiche.php?action=create", $langs->trans("NewMailing"));
  54      }
  55      
  56      if ($user->rights->mailing->lire)
  57      {
  58          $menu->add_submenu(DOL_URL_ROOT."/comm/mailing/liste.php", $langs->trans("List"));
  59      }
  60      
  61      left_menu($menu->liste);
  62  }
  63  
  64  ?>