interface_50_modAgenda_ActionsAuto.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2005-2017  Laurent Destailleur   <eldy@users.sourceforge.net>
 * Copyright (C) 2009-2017  Regis Houssin   <regis.houssin@inodbox.com>
 * Copyright (C) 2011-2014  Juanjo Menent   <jmenent@2byte.es>
 * Copyright (C) 2013   Cedric GROSS      <c.gross@kreiz-it.fr>
 * Copyright (C) 2014   Marcos García   <marcosgdf@gmail.com>
 * Copyright (C) 2015   Bahfir Abbes      <bafbes@gmail.com>
 * Copyright (C) 2022   Ferran Marcet     <fmarcet@2byte.es>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */
 
require_once DOL_DOCUMENT_ROOT.'/core/triggers/dolibarrtriggers.class.php';
 
 
class InterfaceActionsAuto extends DolibarrTriggers
{
  public function __construct($db)
  {
    $this->db = $db;
 
    $this->name = preg_replace('/^Interface/i', '', get_class($this));
    $this->family = "agenda";
    $this->description = "Triggers of this module add actions in agenda according to setup made in agenda setup.";
    // 'development', 'experimental', 'dolibarr' or version
    $this->version = self::VERSION_DOLIBARR;
    $this->picto = 'action';
  }
 
  public function runTrigger($action, $object, User $user, Translate $langs, Conf $conf)
  {
    if (empty($conf->agenda) || empty($conf->agenda->enabled)) {
      return 0; // Module not active, we do nothing
    }
 
    // Do not log events when trigger is for creating event (infinite loop)
    if (preg_match('/^ACTION_/', $action)) {
      return 0;
    }
 
    $key = 'MAIN_AGENDA_ACTIONAUTO_'.$action;
    //var_dump($action.' - '.$conf->global->$key);exit;
 
    // Do not log events not enabled for this action
    // GUI allow to set this option only if entry exists into table llx_c_action_trigger
    if (empty($conf->global->$key)) {
      return 0;
    }
 
    $langs->load("agenda");
 
    if (empty($object->actiontypecode)) {
      $object->actiontypecode = 'AC_OTH_AUTO';
    }
 
    // Actions
    if ($action == 'COMPANY_CREATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "companies"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("NewCompanyToDolibarr", $object->name);
      }
      $object->actionmsg = $langs->transnoentities("NewCompanyToDolibarr", $object->name);
 
      $object->sendtoid = 0;
      $object->socid = $object->id;
    } elseif ($action == 'COMPANY_MODIFY') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "companies"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("COMPANY_MODIFYInDolibarr", $object->name);
      }
      $object->actionmsg = $langs->transnoentities("COMPANY_MODIFYInDolibarr", $object->name);
 
      $object->sendtoid = 0;
      $object->socid = $object->id;
    } elseif ($action == 'COMPANY_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        dol_syslog('Trigger called with property actionmsg2 on object not defined', LOG_ERR);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'CONTACT_CREATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "companies"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("CONTACT_CREATEInDolibarr", $object->getFullName($langs));
      }
      $object->actionmsg = $langs->transnoentities("CONTACT_CREATEInDolibarr", $object->getFullName($langs));
 
      $object->sendtoid = array($object->id => $object->id);
      $object->socid = $object->socid;
    } elseif ($action == 'CONTACT_MODIFY') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "companies"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("CONTACT_MODIFYInDolibarr", $object->name);
      }
      $object->actionmsg = $langs->transnoentities("CONTACT_MODIFYInDolibarr", $object->name);
 
      $object->sendtoid = array($object->id => $object->id);
      $object->socid = $object->socid;
    } elseif ($action == 'CONTRACT_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "contracts"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ContractValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("ContractValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'CONTRACT_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "contracts"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ContractSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("ContractSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'PROPAL_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("PropalValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("PropalValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROPAL_MODIFY') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) $object->actionmsg2 = $langs->transnoentities("PropalBackToDraftInDolibarr", ($object->newref ? $object->newref : $object->ref));
      $object->actionmsg = $langs->transnoentities("PropalBackToDraftInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROPAL_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ProposalSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("ProposalSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'PROPAL_CLOSE_SIGNED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("PropalClosedSignedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("PropalClosedSignedInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROPAL_CLASSIFY_BILLED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("PropalClassifiedBilledInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("PropalClassifiedBilledInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROPAL_CLOSE_REFUSED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("PropalClosedRefusedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("PropalClosedRefusedInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("OrderValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_CLOSE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderDeliveredInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("OrderDeliveredInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_CLASSIFY_BILLED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderBilledInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("OrderBilledInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_CANCEL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderCanceledInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("OrderCanceledInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("OrderSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'BILL_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InvoiceValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("InvoiceValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'BILL_UNVALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InvoiceBackToDraftInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InvoiceBackToDraftInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'BILL_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InvoiceSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("InvoiceSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'BILL_PAYED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills"));
 
      // Values for this action can't be defined by caller.
      $object->actionmsg2 = $langs->transnoentities("InvoicePaidInDolibarr", $object->ref);
      $object->actionmsg = $langs->transnoentities("InvoicePaidInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'BILL_CANCEL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InvoiceCanceledInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InvoiceCanceledInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'FICHINTER_CREATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "interventions"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InterventionCreatedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InterventionCreatedInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
      $object->fk_element = 0;
      $object->elementtype = '';
    } elseif ($action == 'FICHINTER_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "interventions"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InterventionValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("InterventionValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
      $object->fk_element = 0;
      $object->elementtype = '';
    } elseif ($action == 'FICHINTER_MODIFY') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "interventions"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InterventionModifiedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InterventionModifiedInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
      $object->fk_element = 0;
      $object->elementtype = '';
    } elseif ($action == 'FICHINTER_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "interventions"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InterventionSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("InterventionSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'FICHINTER_CLASSIFY_BILLED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "interventions"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InterventionClassifiedBilledInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InterventionClassifiedBilledInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'FICHINTER_CLASSIFY_UNBILLED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "interventions"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InterventionClassifiedUnbilledInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InterventionClassifiedUnbilledInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'FICHINTER_DELETE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "interventions"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InterventionDeletedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InterventionDeletedInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
      $object->fk_element = 0;
      $object->elementtype = '';
    } elseif ($action == 'SHIPPING_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "sendings"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ShippingValidated", ($object->newref ? $object->newref : $object->ref));
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("ShippingValidated", ($object->newref ? $object->newref : $object->ref));
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'SHIPPING_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "sendings"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ShippingSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("ShippingSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'RECEPTION_VALIDATE') {
      $langs->load("agenda");
      $langs->load("other");
      $langs->load("receptions");
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ReceptionValidated", ($object->newref ? $object->newref : $object->ref));
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("ReceptionValidated", ($object->newref ? $object->newref : $object->ref));
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'RECEPTION_SENTBYMAIL') {
      $langs->load("agenda");
      $langs->load("other");
      $langs->load("receptions");
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ReceptionSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("ReceptionSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'PROPOSAL_SUPPLIER_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("PropalValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("PropalValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROPOSAL_SUPPLIER_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ProposalSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("ProposalSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'PROPOSAL_SUPPLIER_CLOSE_SIGNED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("PropalClosedSignedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("PropalClosedSignedInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROPOSAL_SUPPLIER_CLOSE_REFUSED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "propal"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("PropalClosedRefusedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("PropalClosedRefusedInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_SUPPLIER_CREATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderCreatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("OrderCreatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_SUPPLIER_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("OrderValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_SUPPLIER_APPROVE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderApprovedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("OrderApprovedInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_SUPPLIER_REFUSE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders", "main"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderRefusedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("OrderRefusedInDolibarr", $object->ref);
 
      if (!empty($object->refuse_note)) {
        $object->actionmsg .= '<br>';
        $object->actionmsg .= $langs->trans("Reason") . ': '.$object->refuse_note;
      }
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_SUPPLIER_CANCEL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders", "main"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("OrderCanceledInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("OrderCanceledInDolibarr", $object->ref);
 
      if (!empty($object->cancel_note)) {
        $object->actionmsg .= '<br>';
        $object->actionmsg .= $langs->trans("Reason") . ': '.$object->cancel_note;
      }
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_SUPPLIER_SUBMIT') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("SupplierOrderSubmitedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("SupplierOrderSubmitedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      if (!empty($object->context['comments'])) {
        $object->actionmsg .= '<br>';
        $object->actionmsg .= $langs->trans("Comment") . ': '.$object->context['comments'];
      }
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_SUPPLIER_RECEIVE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("SupplierOrderReceivedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("SupplierOrderReceivedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'ORDER_SUPPLIER_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("SupplierOrderSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("SupplierOrderSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'ORDER_SUPPLIER_CLASSIFY_BILLED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("SupplierOrderClassifiedBilled", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("SupplierOrderClassifiedBilled", $object->ref);
      }
 
      $object->sendtoid = 0;
    } elseif ($action == 'BILL_SUPPLIER_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InvoiceValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
      }
      $object->actionmsg = $langs->transnoentities("InvoiceValidatedInDolibarr", ($object->newref ? $object->newref : $object->ref));
 
      $object->sendtoid = 0;
    } elseif ($action == 'BILL_SUPPLIER_UNVALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InvoiceBackToDraftInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InvoiceBackToDraftInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'BILL_SUPPLIER_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills", "orders"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("SupplierInvoiceSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("SupplierInvoiceSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'BILL_SUPPLIER_PAYED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InvoicePaidInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InvoicePaidInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'BILL_SUPPLIER_CANCELED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "bills"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("InvoiceCanceledInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("InvoiceCanceledInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'MEMBER_VALIDATE') {
      // Members
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "members"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("MemberValidatedInDolibarr", $object->getFullName($langs));
      }
      $object->actionmsg = $langs->transnoentities("MemberValidatedInDolibarr", $object->getFullName($langs));
      $object->actionmsg .= "\n".$langs->transnoentities("Member").': '.$object->getFullName($langs);
      $object->actionmsg .= "\n".$langs->transnoentities("Type").': '.$object->type;
 
      $object->sendtoid = 0;
    } elseif ($action == 'MEMBER_MODIFY') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "members"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("MemberModifiedInDolibarr", $object->getFullName($langs));
      }
      $object->actionmsg = $langs->transnoentities("MemberModifiedInDolibarr", $object->getFullName($langs));
      $object->actionmsg .= "\n".$langs->transnoentities("Member").': '.$object->getFullName($langs);
      $object->actionmsg .= "\n".$langs->transnoentities("Type").': '.$object->type;
 
      $object->sendtoid = 0;
    } elseif ($action == 'MEMBER_SUBSCRIPTION_CREATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "members"));
 
      $member = (isset($this->context['member']) ? $this->context['member'] : null);
      if (!is_object($member)) {  // This should not happen
        dol_syslog("Execute a trigger MEMBER_SUBSCRIPTION_CREATE with context key 'member' not an object");
        include_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
        $member = new Adherent($this->db);
        $member->fetch($object->fk_adherent);
      }
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("MemberSubscriptionAddedInDolibarr", $object->id, $member->getFullName($langs));
      }
      $object->actionmsg = $langs->transnoentities("MemberSubscriptionAddedInDolibarr", $object->id, $member->getFullName($langs));
      $object->actionmsg .= "\n".$langs->transnoentities("Member").': '.$member->getFullName($langs);
      $object->actionmsg .= "\n".$langs->transnoentities("Type").': '.$object->fk_type;
      $object->actionmsg .= "\n".$langs->transnoentities("Amount").': '.$object->amount;
      $object->actionmsg .= "\n".$langs->transnoentities("Period").': '.dol_print_date($object->dateh, 'day').' - '.dol_print_date($object->datef, 'day');
 
      $object->sendtoid = 0;
      if (isset($object->fk_soc) && $object->fk_soc > 0) {
        $object->socid = $object->fk_soc;
      }
    } elseif ($action == 'MEMBER_SUBSCRIPTION_MODIFY') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "members"));
 
      $member = $this->context['member'];
      if (!is_object($member)) {  // This should not happen
        include_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
        $member = new Adherent($this->db);
        $member->fetch($object->fk_adherent);
      }
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("MemberSubscriptionModifiedInDolibarr", $object->id, $member->getFullName($langs));
      }
      $object->actionmsg = $langs->transnoentities("MemberSubscriptionModifiedInDolibarr", $object->id, $member->getFullName($langs));
      $object->actionmsg .= "\n".$langs->transnoentities("Member").': '.$member->getFullName($langs);
      $object->actionmsg .= "\n".$langs->transnoentities("Type").': '.$object->fk_type;
      $object->actionmsg .= "\n".$langs->transnoentities("Amount").': '.$object->amount;
      $object->actionmsg .= "\n".$langs->transnoentities("Period").': '.dol_print_date($object->dateh, 'day').' - '.dol_print_date($object->datef, 'day');
 
      $object->sendtoid = 0;
      if ($object->fk_soc > 0) {
        $object->socid = $object->fk_soc;
      }
    } elseif ($action == 'MEMBER_SUBSCRIPTION_DELETE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "members"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("MemberSubscriptionDeletedInDolibarr", $object->ref, $object->getFullName($langs));
      }
      $object->actionmsg = $langs->transnoentities("MemberSubscriptionDeletedInDolibarr", $object->ref, $object->getFullName($langs));
      $object->actionmsg .= "\n".$langs->transnoentities("Member").': '.$object->getFullName($langs);
      $object->actionmsg .= "\n".$langs->transnoentities("Type").': '.$object->fk_type;
      $object->actionmsg .= "\n".$langs->transnoentities("Amount").': '.$object->amount;
      $object->actionmsg .= "\n".$langs->transnoentities("Period").': '.dol_print_date($object->dateh, 'day').' - '.dol_print_date($object->datef, 'day');
 
      $object->sendtoid = 0;
      if (isset($object->fk_soc) && $object->fk_soc > 0) {
        $object->socid = $object->fk_soc;
      }
    } elseif ($action == 'MEMBER_RESILIATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "members"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("MemberResiliatedInDolibarr", $object->getFullName($langs));
      }
      $object->actionmsg = $langs->transnoentities("MemberResiliatedInDolibarr", $object->getFullName($langs));
      $object->actionmsg .= "\n".$langs->transnoentities("Member").': '.$object->getFullName($langs);
      $object->actionmsg .= "\n".$langs->transnoentities("Type").': '.$object->type;
 
      $object->sendtoid = 0;
    } elseif ($action == 'MEMBER_DELETE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "members"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("MemberDeletedInDolibarr", $object->getFullName($langs));
      }
      $object->actionmsg = $langs->transnoentities("MemberDeletedInDolibarr", $object->getFullName($langs));
      $object->actionmsg .= "\n".$langs->transnoentities("Member").': '.$object->getFullName($langs);
      $object->actionmsg .= "\n".$langs->transnoentities("Type").': '.$object->type;
 
      $object->sendtoid = 0;
    } elseif ($action == 'MEMBER_EXCLUDE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "members"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("MemberExcludedInDolibarr", $object->getFullName($langs));
      }
      $object->actionmsg = $langs->transnoentities("MemberExcludedInDolibarr", $object->getFullName($langs));
      $object->actionmsg .= "\n".$langs->transnoentities("Member").': '.$object->getFullName($langs);
      $object->actionmsg .= "\n".$langs->transnoentities("Type").': '.$object->type;
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROJECT_CREATE') {
      // Projects
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "projects"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ProjectCreatedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("ProjectCreatedInDolibarr", $object->ref);
      $object->actionmsg .= "\n".$langs->transnoentities("Project").': '.$object->ref;
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROJECT_VALIDATE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "projects"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ProjectValidatedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("ProjectValidatedInDolibarr", $object->ref);
      $object->actionmsg .= "\n".$langs->transnoentities("Project").': '.$object->ref;
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROJECT_MODIFY') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "projects"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ProjectModifiedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("ProjectModifiedInDolibarr", $object->ref);
      //$object->actionmsg .= "\n".$langs->transnoentities("Task").': ???';
      if (!empty($object->usage_opportunity) && is_object($object->oldcopy) && $object->opp_status != $object->oldcopy->opp_status) {
        $object->actionmsg .= "\n".$langs->transnoentitiesnoconv("OpportunityStatus").': '.$object->oldcopy->opp_status.' -> '.$object->opp_status;
      }
 
      $object->sendtoid = 0;
    } elseif ($action == 'PROJECT_SENTBYMAIL') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "projects"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ProjectSentByEMail", $object->ref);
      }
      if (empty($object->actionmsg)) {
        $object->actionmsg = $langs->transnoentities("ProjectSentByEMail", $object->ref);
      }
 
      // Parameters $object->sendtoid defined by caller
      //$object->sendtoid=0;
    } elseif ($action == 'PROJECT_CLOSE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "projects"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("ProjectClosedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("ProjectClosedInDolibarr", $object->ref);
 
      $object->sendtoid = 0;
    } elseif ($action == 'TASK_CREATE') {
      // Project tasks
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "projects"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("TaskCreatedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("TaskCreatedInDolibarr", $object->ref);
      $object->actionmsg .= "\n".$langs->transnoentities("Task").': '.$object->ref;
 
      $object->sendtoid = 0;
    } elseif ($action == 'TASK_MODIFY') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "projects"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("TaskModifiedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("TaskModifieddInDolibarr", $object->ref);
      $object->actionmsg .= "\n".$langs->transnoentities("Task").': '.$object->ref;
 
      $object->sendtoid = 0;
    } elseif ($action == 'TASK_DELETE') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "projects"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("TaskDeletedInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("TaskDeletedInDolibarr", $object->ref);
      $object->actionmsg .= "\n".$langs->transnoentities("Task").': '.$object->ref;
 
      $object->sendtoid = 0;
    } elseif ($action == 'TICKET_ASSIGNED') {
      // Load translation files required by the page
      $langs->loadLangs(array("agenda", "other", "projects"));
 
      if (empty($object->actionmsg2)) {
        $object->actionmsg2 = $langs->transnoentities("TICKET_ASSIGNEDInDolibarr", $object->ref);
      }
      $object->actionmsg = $langs->transnoentities("TICKET_ASSIGNEDInDolibarr", $object->ref);
      if ($object->oldcopy->fk_user_assign > 0) {
        $tmpuser = new User($this->db);
        $tmpuser->fetch($object->oldcopy->fk_user_assign);
        $object->actionmsg .= "\n".$langs->transnoentities("OldUser").': '.$tmpuser->getFullName($langs);
      } else {
        $object->actionmsg .= "\n".$langs->transnoentities("OldUser").': '.$langs->trans("None");
      }
      if ($object->fk_user_assign > 0) {
        $tmpuser = new User($this->db);
        $tmpuser->fetch($object->fk_user_assign);
        $object->actionmsg .= "\n".$langs->transnoentities("NewUser").': '.$tmpuser->getFullName($langs);
      } else {
        $object->actionmsg .= "\n".$langs->transnoentities("NewUser").': '.$langs->trans("None");
      }
      $object->sendtoid = 0;
    } else {
      // TODO Merge all previous cases into this generic one
      // $action = BILL_DELETE, TICKET_CREATE, TICKET_MODIFY, TICKET_DELETE, CONTACT_SENTBYMAIL, RECRUITMENTCANDIDATURE_MODIFY, ...
      // Can also be a value defined by an external module like SENTBYSMS, COMPANY_SENTBYSMS, MEMBER_SENTBYSMS, ...
      // Note: We are here only if $conf->global->MAIN_AGENDA_ACTIONAUTO_action is on (tested at begining of this function).
      // Note that these key can be set in agenda setup, only if defined into llx_c_action_trigger
      // Load translation files required by the page
      if (empty($object->actionmsg2)) {
        $langs->loadLangs(array("agenda", "other"));
        if ($langs->transnoentities($action."InDolibarr", (empty($object->newref) ? $object->ref : $object->newref)) != $action."InDolibarr") { // specific translation key
          $object->actionmsg2 = $langs->transnoentities($action."InDolibarr", (empty($object->newref) ? $object->ref : $object->newref));
        } else {  // generic translation key
          $tmp = explode('_', $action);
          $object->actionmsg2 = $langs->transnoentities($tmp[count($tmp) - 1]."InDolibarr", (empty($object->newref) ? $object->ref : $object->newref));
        }
      }
      if (empty($object->actionmsg)) {
        $langs->loadLangs(array("agenda", "other"));
        if ($langs->transnoentities($action."InDolibarr", (empty($object->newref) ? $object->ref : $object->newref)) != $action."InDolibarr") { // specific translation key
          $object->actionmsg = $langs->transnoentities($action."InDolibarr", (empty($object->newref) ? $object->ref : $object->newref));
        } else {  // generic translation key
          $tmp = explode('_', $action);
          $object->actionmsg = $langs->transnoentities($tmp[count($tmp) - 1]."InDolibarr", (empty($object->newref) ? $object->ref : $object->newref));
        }
      }
 
      if (!isset($object->sendtoid) || !is_array($object->sendtoid)) {
        $object->sendtoid = 0;
      }
    }
 
    // If trackid is not defined, we set it.
    // Note that it should be set by caller. This is for compatibility purpose only.
    if (empty($object->trackid)) {
      // See also similar list into emailcollector.class.php
      if (preg_match('/^COMPANY_/', $action)) {
        $object->trackid = 'thi'.$object->id;
      } elseif (preg_match('/^CONTACT_/', $action)) {
        $object->trackid = 'ctc'.$object->id;
      } elseif (preg_match('/^CONTRACT_/', $action)) {
        $object->trackid = 'con'.$object->id;
      } elseif (preg_match('/^PROPAL_/', $action)) {
        $object->trackid = 'pro'.$object->id;
      } elseif (preg_match('/^ORDER_/', $action)) {
        $object->trackid = 'ord'.$object->id;
      } elseif (preg_match('/^BILL_/', $action)) {
        $object->trackid = 'inv'.$object->id;
      } elseif (preg_match('/^FICHINTER_/', $action)) {
        $object->trackid = 'int'.$object->id;
      } elseif (preg_match('/^SHIPPING_/', $action)) {
        $object->trackid = 'shi'.$object->id;
      } elseif (preg_match('/^RECEPTION_/', $action)) {
        $object->trackid = 'rec'.$object->id;
      } elseif (preg_match('/^PROPOSAL_SUPPLIER/', $action)) {
        $object->trackid = 'spr'.$object->id;
      } elseif (preg_match('/^ORDER_SUPPLIER_/', $action)) {
        $object->trackid = 'sor'.$object->id;
      } elseif (preg_match('/^BILL_SUPPLIER_/', $action)) {
        $object->trackid = 'sin'.$object->id;
      } elseif (preg_match('/^MEMBER_SUBSCRIPTION_/', $action)) {
        $object->trackid = 'sub'.$object->id;
      } elseif (preg_match('/^MEMBER_/', $action)) {
        $object->trackid = 'mem'.$object->id;
      } elseif (preg_match('/^PROJECT_/', $action)) {
        $object->trackid = 'proj'.$object->id;
      } elseif (preg_match('/^TASK_/', $action)) {
        $object->trackid = 'tas'.$object->id;
      } elseif (preg_match('/^TICKET_/', $action)) {
        $object->trackid = 'tic'.$object->id;
      } elseif (preg_match('/^USER_/', $action)) {
        $object->trackid = 'use'.$object->id;
      } else {
        $object->trackid = '';
      }
    }
 
    /* Seems no more required: We have the data in dedicated field now.
    if (!empty($user->login)) {
      $object->actionmsg = dol_concatdesc($langs->transnoentities("Author").': '.$user->login, $object->actionmsg);
    } elseif (isset($object->origin_email)) {
      $object->actionmsg = dol_concatdesc($langs->transnoentities("Author").': '.$object->origin_email, $object->actionmsg);
    }
    */
 
    dol_syslog("Trigger '".$this->name."' for action '".$action."' launched by ".__FILE__.". id=".$object->id);
 
    // Add entry in event table
    $now = dol_now();
 
    if (isset($_SESSION['listofnames-'.$object->trackid])) {
      $attachs = $_SESSION['listofnames-'.$object->trackid];
      if ($attachs && strpos($action, 'SENTBYMAIL')) {
        $object->actionmsg = dol_concatdesc($object->actionmsg, "\n".$langs->transnoentities("AttachedFiles").': '.$attachs);
      }
    }
    require_once DOL_DOCUMENT_ROOT.'/contact/class/contact.class.php';
    require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
    $contactforaction = new Contact($this->db);
    $societeforaction = new Societe($this->db);
    // Set contactforaction if there is only 1 contact.
 
    if (is_array($object->sendtoid)) {
      if (count($object->sendtoid) == 1) {
        $contactforaction->fetch(reset($object->sendtoid));
      }
    } else {
      if ($object->sendtoid > 0) {
        $contactforaction->fetch($object->sendtoid);
      }
    }
    // Set societeforaction.
    if (isset($object->socid) && $object->socid > 0) {
      $societeforaction->fetch($object->socid);
    } elseif (isset($object->fk_soc) && $object->fk_soc > 0) {
      $societeforaction->fetch($object->fk_soc);
    } elseif (isset($object->thirdparty) && isset($object->thirdparty->id) && $object->thirdparty->id > 0) {
      $societeforaction = $object->thirdparty;
    }
 
    $projectid = isset($object->fk_project) ? $object->fk_project : 0;
    if ($object->element == 'project') {
      $projectid = $object->id;
    }
 
    $elementid = $object->id; // id of object
    $elementtype = $object->element;
    $elementmodule = (empty($object->module) ? '' : $object->module);
    if ($object->element == 'subscription') {
      $elementid = $object->fk_adherent;
      $elementtype = 'member';
    }
    //var_dump($societeforaction);var_dump($contactforaction);var_dump($elementid);var_dump($elementtype);exit;
 
    // Insertion action
    require_once DOL_DOCUMENT_ROOT.'/comm/action/class/actioncomm.class.php';
    $actioncomm = new ActionComm($this->db);
    $actioncomm->type_code   = $object->actiontypecode; // Type of event ('AC_OTH', 'AC_OTH_AUTO', 'AC_XXX'...)
    $actioncomm->code        = 'AC_'.$action;
    $actioncomm->label       = $object->actionmsg2;
    $actioncomm->note_private = $object->actionmsg;
    $actioncomm->fk_project  = $projectid;
    $actioncomm->datep       = $now;
    $actioncomm->datef       = $now;
    $actioncomm->durationp   = 0;
    $actioncomm->percentage  = -1; // Not applicable
    $actioncomm->socid       = $societeforaction->id;
    $actioncomm->contact_id = $contactforaction->id; // deprecated, use ->socpeopleassigned instead
    $actioncomm->authorid    = $user->id; // User saving action
    $actioncomm->userownerid = $user->id; // Owner of action
    // Fields defined when action is an email (content should be into object->actionmsg to be added into event note, subject should be into object->actionms2 to be added into event label)
    if (!property_exists($object, 'email_fields_no_propagate_in_actioncomm') || empty($object->email_fields_no_propagate_in_actioncomm)) {
      $actioncomm->email_msgid   = empty($object->email_msgid) ? null : $object->email_msgid;
      $actioncomm->email_from    = empty($object->email_from) ? null : $object->email_from;
      $actioncomm->email_sender  = empty($object->email_sender) ? null : $object->email_sender;
      $actioncomm->email_to      = empty($object->email_to) ? null : $object->email_to;
      $actioncomm->email_tocc    = empty($object->email_tocc) ? null : $object->email_tocc;
      $actioncomm->email_tobcc   = empty($object->email_tobcc) ? null : $object->email_tobcc;
      $actioncomm->email_subject = empty($object->email_subject) ? null : $object->email_subject;
      $actioncomm->errors_to     = empty($object->errors_to) ? null : $object->errors_to;
    }
 
    // Object linked (if link is for thirdparty, contact, project it is a recording error. We should not have links in link table
    // for such objects because there is already a dedicated field into table llx_actioncomm or llx_actioncomm_resources.
    if (!in_array($elementtype, array('societe', 'contact', 'project'))) {
      $actioncomm->fk_element  = $elementid;
      $actioncomm->elementtype = $elementtype.($elementmodule ? '@'.$elementmodule : '');
    }
 
    if (property_exists($object, 'attachedfiles') && is_array($object->attachedfiles) && count($object->attachedfiles) > 0) {
      $actioncomm->attachedfiles = $object->attachedfiles;
    }
    if (property_exists($object, 'sendtouserid') && is_array($object->sendtouserid) && count($object->sendtouserid) > 0) {
      $actioncomm->userassigned = $object->sendtouserid;
    }
    if (property_exists($object, 'sendtoid') && is_array($object->sendtoid) && count($object->sendtoid) > 0) {
      foreach ($object->sendtoid as $val) {
        $actioncomm->socpeopleassigned[$val] = $val;
      }
    }
 
    $ret = $actioncomm->create($user); // User creating action
 
    if ($ret > 0 && !empty($conf->global->MAIN_COPY_FILE_IN_EVENT_AUTO)) {
      if (is_array($object->attachedfiles) && array_key_exists('paths', $object->attachedfiles) && count($object->attachedfiles['paths']) > 0) {
        foreach ($object->attachedfiles['paths'] as $key => $filespath) {
          $srcfile = $filespath;
          $destdir = $conf->agenda->dir_output.'/'.$ret;
          $destfile = $destdir.'/'.$object->attachedfiles['names'][$key];
          if (dol_mkdir($destdir) >= 0) {
            require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
            dol_copy($srcfile, $destfile);
          }
        }
      }
    }
 
    unset($object->actionmsg);
    unset($object->actionmsg2);
    unset($object->actiontypecode); // When several action are called on same object, we must be sure to not reuse value of first action.
 
    if ($ret > 0) {
      $_SESSION['LAST_ACTION_CREATED'] = $ret;
      return 1;
    } else {
      $this->error = "Failed to insert event : ".$actioncomm->error." ".join(',', $actioncomm->errors);
      $this->errors = $actioncomm->errors;
 
      dol_syslog("interface_modAgenda_ActionsAuto.class.php: ".$this->error, LOG_ERR);
      return -1;
    }
  }
}