dolibarr  9.0.0
info.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2009 Laurent Destailleur <eldy@users.sourceforge.net>
3  * Copyright (C) 2010 Regis Houssin <regis.houssin@inodbox.com>
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 3 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, see <http://www.gnu.org/licenses/>.
17  */
18 
25 require '../../main.inc.php';
26 require_once DOL_DOCUMENT_ROOT .'/comm/mailing/class/mailing.class.php';
27 require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
28 require_once DOL_DOCUMENT_ROOT.'/core/lib/emailing.lib.php';
29 
30 $id=GETPOST('id');
31 
32 // Load translation files required by the page
33 $langs->load("mails");
34 
35 // Security check
36 if (! $user->rights->mailing->lire || $user->societe_id > 0)
38 
39 
40 
41 /*
42  * View
43  */
44 
45 llxHeader('',$langs->trans("Mailing"),'EN:Module_EMailing|FR:Module_Mailing|ES:M&oacute;dulo_Mailing');
46 
47 $form = new Form($db);
48 
49 $object = new Mailing($db);
50 
51 if ($object->fetch($id) >= 0)
52 {
53  $head = emailing_prepare_head($object);
54 
55  dol_fiche_head($head, 'info', $langs->trans("Mailing"), -1, 'email');
56 
57  $linkback = '<a href="'.DOL_URL_ROOT.'/comm/mailing/list.php">'.$langs->trans("BackToList").'</a>';
58 
59  $morehtmlright='';
60  if ($object->statut == 2) $morehtmlright.=' ('.$object->countNbOfTargets('alreadysent').'/'.$object->nbemail.') ';
61 
62  dol_banner_tab($object, 'id', $linkback, 1, 'rowid', 'ref', '', '', 0, '', $morehtmlright);
63 
64  print '<div class="underbanner clearboth"></div><br>';
65 
66  //print '<table width="100%"><tr><td>';
67  $object->user_creation=$object->user_creat;
68  $object->date_creation=$object->date_creat;
69  $object->user_validation=$object->user_valid;
70  $object->date_validation=$object->date_valid;
71  dol_print_object_info($object, 0);
72  //print '</td></tr></table>';
73 
74 
75  dol_fiche_end();
76 }
77 
78 // End of page
79 llxFooter();
80 $db->close();
llxFooter()
Empty footer.
Definition: wrapper.php:56
GETPOST($paramname, $check='none', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
print
Draft customers invoices.
Definition: index.php:91
dol_banner_tab($object, $paramid, $morehtml='', $shownav=1, $fieldid='rowid', $fieldref='ref', $morehtmlref='', $moreparam='', $nodbprefix=0, $morehtmlleft='', $morehtmlstatus='', $onlybanner=0, $morehtmlright='')
Show tab footer of a card.
dol_print_object_info($object, $usetable=0)
Show informations on an object TODO Move this into html.formother.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0)
Show a message to say access is forbidden and stop program Calling this function terminate execution ...
Class to manage generation of HTML components Only common components must be here.
emailing_prepare_head(Mailing $object)
Prepare array with list of tabs.
dol_fiche_end($notab=0)
Show tab footer of a card.
llxHeader()
Empty header.
Definition: wrapper.php:44
Class to manage emailings module.
dol_fiche_head($links=array(), $active='0', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='')
Show tab header of a card.