Go to the documentation of this file.
28 if (!defined(
'NOLOGIN')) {
29 define(
'NOLOGIN',
'1');
31 if (!defined(
'NOCSRFCHECK')) {
32 define(
'NOCSRFCHECK',
'1');
34 if (!defined(
'NOBROWSERNOTIF')) {
35 define(
'NOBROWSERNOTIF',
'1');
37 if (!defined(
'NOREQUIRETRAN')) {
38 define(
'NOREQUIRETRAN',
'1');
40 if (!defined(
'NOTOKENRENEWAL')) {
41 define(
'NOTOKENRENEWAL',
'1');
43 if (!defined(
'NOREQUIREMENU')) {
44 define(
'NOREQUIREMENU',
'1');
46 if (!defined(
'NOIPCHECK')) {
47 define(
'NOIPCHECK',
'1');
49 if (!defined(
"NOSESSION")) {
50 define(
"NOSESSION",
'1');
71 require
'../../main.inc.php';
76 $securitykey =
GETPOST(
'securitykey');
83 dol_syslog(
"public/emailing/mailing-read.php : tag=".$tag.
" securitykey=".$securitykey, LOG_DEBUG);
85 if ($securitykey != $conf->global->MAILING_EMAIL_UNSUBSCRIBE_KEY) {
86 print
'Bad security key value.';
91 dol_syslog(
"public/emailing/mailing-read.php : Update status of email target and thirdparty for tag ".$tag, LOG_DEBUG);
93 $sql =
"SELECT mc.rowid, mc.email, mc.statut, mc.source_type, mc.source_id, m.entity";
94 $sql .=
" FROM ".MAIN_DB_PREFIX.
"mailing_cibles as mc, ".MAIN_DB_PREFIX.
"mailing as m";
95 $sql .=
" WHERE mc.fk_mailing = m.rowid AND mc.tag='".$db->escape($tag).
"'";
100 $obj = $db->fetch_object(
$resql);
103 print
'Email target not valid. Operation canceled.';
106 if (empty($obj->email)) {
107 print
'Email target not valid. Operation canceled.';
110 if ($obj->statut == 2 || $obj->statut == 3) {
111 print
'Email target already set to read or unsubscribe. Operation canceled.';
125 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"mailing_cibles SET statut=".((int) $statut).
" WHERE rowid = ".((int) $obj->rowid);
126 $resql = $db->query($sql);
130 if ($obj->source_id > 0 && $obj->source_type ==
'thirdparty' && $obj->entity) {
131 $sql =
"UPDATE ".MAIN_DB_PREFIX.
'societe SET fk_stcomm = 3 WHERE fk_stcomm <> -1 AND entity = '.((int) $obj->entity).
' AND rowid = '.((int) $obj->source_id);
132 $resql = $db->query($sql);
136 if ($obj->source_id > 0 && $obj->source_type ==
'contact' && $obj->entity) {
137 $sql =
"UPDATE ".MAIN_DB_PREFIX.
'societe SET fk_stcomm = 3 WHERE fk_stcomm <> -1 AND entity = '.((int) $obj->entity).
' AND rowid IN (SELECT sc.fk_soc FROM '.MAIN_DB_PREFIX.
'socpeople AS sc WHERE sc.rowid = '.((int) $obj->source_id).
')';
138 $resql = $db->query($sql);
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
if(!defined('NOLOGIN')) if(!defined('NOCSRFCHECK')) if(!defined('NOBROWSERNOTIF')) if(!defined('NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOIPCHECK')) if(!defined("NOSESSION")) llxHeader()
Header empty.
if(isModEnabled('facture') &&!empty($user->rights->facture->lire)) if((isModEnabled('fournisseur') &&empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD) && $user->rights->fournisseur->facture->lire)||(isModEnabled('supplier_invoice') && $user->rights->supplier_invoice->lire)) if(isModEnabled('don') &&!empty($user->rights->don->lire)) if(isModEnabled('tax') &&!empty($user->rights->tax->charges->lire)) if(isModEnabled('facture') &&isModEnabled('commande') && $user->rights->commande->lire &&empty($conf->global->WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER)) $resql
Social contributions to pay.