dolibarr 19.0.3
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 <https://www.gnu.org/licenses/>.
17 */
18
25// Load Dolibarr environment
26require '../../main.inc.php';
27require_once DOL_DOCUMENT_ROOT.'/comm/mailing/class/mailing.class.php';
28require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
29require_once DOL_DOCUMENT_ROOT.'/core/lib/emailing.lib.php';
30
31$id = GETPOST('id', 'int');
32
33// Load translation files required by the page
34$langs->load("mails");
35
36// Security check
37if (!$user->hasRight('mailing', 'lire') || (!getDolGlobalString('EXTERNAL_USERS_ARE_AUTHORIZED') && $user->socid > 0)) {
39}
40//$result = restrictedArea($user, 'mailing');
41
42
43
44/*
45 * View
46 */
47
48llxHeader('', $langs->trans("Mailing"), 'EN:Module_EMailing|FR:Module_Mailing|ES:M&oacute;dulo_Mailing');
49
50$form = new Form($db);
51
52$object = new Mailing($db);
53
54if ($object->fetch($id) >= 0) {
55 $head = emailing_prepare_head($object);
56
57 print dol_get_fiche_head($head, 'info', $langs->trans("Mailing"), -1, 'email');
58
59 $linkback = '<a href="'.DOL_URL_ROOT.'/comm/mailing/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
60
61 $morehtmlref = '<div class="refidno">';
62 // Ref customer
63 $morehtmlref .= $form->editfieldkey("", 'title', $object->title, $object, 0, 'string', '', 0, 1);
64 $morehtmlref .= $form->editfieldval("", 'title', $object->title, $object, 0, 'string', '', null, null, '', 1);
65 $morehtmlref .= '</div>';
66
67 $morehtmlright = '';
68 $nbtry = $nbok = 0;
69 if ($object->statut == 2 || $object->statut == 3) {
70 $nbtry = $object->countNbOfTargets('alreadysent');
71 $nbko = $object->countNbOfTargets('alreadysentko');
72
73 $morehtmlright .= ' ('.$nbtry.'/'.$object->nbemail;
74 if ($nbko) {
75 $morehtmlright .= ' - '.$nbko.' '.$langs->trans("Error");
76 }
77 $morehtmlright .= ') &nbsp; ';
78 }
79
80 dol_banner_tab($object, 'id', $linkback, 1, 'rowid', 'ref', $morehtmlref, '', 0, '', $morehtmlright);
81
82 print '<div class="underbanner clearboth"></div><br>';
83
84 //print '<table width="100%"><tr><td>';
85 dol_print_object_info($object, 0);
86 //print '</td></tr></table>';
87
88 print dol_get_fiche_end();
89}
90
91// End of page
92llxFooter();
93$db->close();
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:55
llxFooter()
Empty footer.
Definition wrapper.php:69
Class to manage generation of HTML components Only common components must be here.
Class to manage emailings module.
emailing_prepare_head(Mailing $object)
Prepare array with list of tabs.
dol_print_object_info($object, $usetable=0)
Show informations on an object TODO Move this into html.formother.
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_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.