dolibarr/htdocs/comm/action/class/actioncomm.class.php

<?php
/* Copyright (C) 2002-2004  Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2004-2011  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2012  Regis Houssin           <regis.houssin@inodbox.com>
 * Copyright (C) 2011-2017  Juanjo Menent           <jmenent@2byte.es>
 * Copyright (C) 2015	    Marcos García		    <marcosgdf@gmail.com>
 * Copyright (C) 2018	    Nicolas ZABOURI	        <info@inovea-conseil.com>
 * Copyright (C) 2018       Frédéric France         <frederic.france@netlogic.fr>
 *
 * 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/>.
 */

/**
 *       \file       htdocs/comm/action/class/actioncomm.class.php
 *       \ingroup    agenda
 *       \brief      File of class to manage agenda events (actions)
 */
require_once DOL_DOCUMENT_ROOT.'/comm/action/class/cactioncomm.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/commonobject.class.php';


/**
 *		Class to manage agenda events (actions)
 */
class ActionComm extends CommonObject
{
    /**
     * @var string ID to identify managed object
     */
    public $element = 'action';

    /**
     * @var string Name of table without prefix where object is stored
     */
    public $table_element = 'actioncomm';

    /**
     * @var string Name of id column
     */
    public $table_rowid = 'id';

    /**
     * @var string Name of icon for actioncomm object. Filename of icon is object_action.png
     */
    public $picto = 'action';

    /**
     * @var int 0=No test on entity, 1=Test with field entity, 2=Test with link by societe
     */
    public $ismultientitymanaged = 1;

    /**
     * @var integer 0=Default
     *              1=View may be restricted to sales representative only if no permission to see all or to company of external user if external user
     *              2=Same than 1 but accept record if fksoc is empty
     */
    public $restrictiononfksoc = 2;

    /**
     * @var int Id of the event
     */
    public $id;

    /**
     * @var int Id of the event. Use $id as possible
     */
    public $ref;

    /**
     * @var int Id into parent table llx_c_actioncomm (used only if option to use type is set)
     */
    public $type_id;

    /**
     * @var string Code into parent table llx_c_actioncomm (used only if option to use type is set). With default setup, should be AC_OTH_AUTO or AC_OTH.
     */
    public $type_code;

    /**
     * @var string Type label
     */
    public $type_label;

    /**
     * @var string Label into parent table llx_c_actioncomm (used only if option to use type is set)
     */
    public $type;

    /**
     * @var string Color into parent table llx_c_actioncomm (used only if option to use type is set)
     */
    public $type_color;

    /**
     * @var string Free code to identify action. Ie: Agenda trigger add here AC_TRIGGERNAME ('AC_COMPANY_CREATE', 'AC_PROPAL_VALIDATE', ...)
     */
    public $code;

    /**
     * @var string Agenda event label
     */
    public $label;

    /**
     * @var integer Date creation record (datec)
     */
    public $datec;

    /**
     * @var integer Date end record (datef)
     */
    public $datef;

    /**
     * @var integer Duration (duree)
     */
    public $duree;

    /**
     * @var integer Date modification record (tms)
     */
    public $datem;

    /**
     * @var User Object user that create action
     * @deprecated
     * @see $authorid
     */
    public $author;

    /**
     * @var User Object user that modified action
     * @deprecated
     * @see $usermodid
     */
    public $usermod;

    /**
     * @var int Id user that create action
     */
    public $authorid;

    /**
     * @var int Id user that modified action
     */
    public $usermodid;

    /**
     * @var integer Date action start (datep)
     */
    public $datep;

    /**
     * @var integer Date action end (datep2)
     */
    public $datep2;

    /**
     * @var int -1=Unkown duration
     * @deprecated
     */
    public $durationp = -1;

    /**
     * @var int 1=Event on full day
     */
    public $fulldayevent = 0;

    /**
     * @var int Milestone
     * @deprecated Milestone is already event with end date = start date
     */
    public $punctual = 1;

    /**
     * @var integer Percentage
     */
    public $percentage;

    /**
     * @var string Location
     */
    public $location;

    /**
     * @var int Transparency (ical standard). Used to say if people assigned to event are busy or not by event. 0=available, 1=busy, 2=busy (refused events)
     */
    public $transparency;

    /**
     * @var int (0 By default)
     */
    public $priority;

    /**
     * @var int[] Array of user ids
     */
    public $userassigned = array();

    /**
     * @var int Id of user owner = fk_user_action into table
     */
    public $userownerid;

    /**
     * @var int Id of user done (deprecated)
     * @deprecated
     */
    public $userdoneid;

    /**
     * @var int[] Array of contact ids
     */
    public $socpeopleassigned = array();

    /**
     * @var int[] Array of other contact emails (not user, not contact)
     */
    public $otherassigned = array();


    /**
     * @var User Object user of owner
     * @deprecated
     * @see $userownerid
     */
    public $usertodo;

    /**
     * @var User Object user that did action
     * @deprecated
     * @see $userdoneid
     */
    public $userdone;

    /**
     * @var int thirdparty id linked to action
     */
    public $socid;

    /**
     * @var int socpeople id linked to action
     */
    public $contactid;

    /**
     * @var Societe|null Company linked to action (optional)
     * @deprecated
     * @see $socid
     */
    public $societe;

    /**
     * @var Contact|null Contact linked to action (optional)
     * @deprecated
     * @see $contactid
     */
    public $contact;

    // Properties for links to other objects
    /**
     * @var int Id of linked object
     */
    public $fk_element;    // Id of record

    /**
     * @var int Id of record alternative for API
     */
    public $elementid;

    /**
     * @var string Type of record. This if property ->element of object linked to.
     */
    public $elementtype;

    /**
     * @var string Ical name
     */
    public $icalname;

    /**
     * @var string Ical color
     */
    public $icalcolor;

    /**
     * @var string Extraparam
     */
    public $extraparams;

    /**
     * @var array Actions
     */
    public $actions=array();

    /**
     * @var string Email msgid
     */
    public $email_msgid;

    /**
     * @var string Email from
     */
    public $email_from;

    /**
     * @var string Email sender
     */
    public $email_sender;

    /**
     * @var string Email to
     */
    public $email_to;

    /**
     * @var string Email tocc
     */
    public $email_tocc;
    /**
     * @var string Email tobcc
     */
    public $email_tobcc;

    /**
     * @var string Email subject
     */
    public $email_subject;

    /**
     * @var string Email errors to
     */
    public $errors_to;


    /**
     *      Constructor
     *
     *      @param      DoliDB		$db      Database handler
     */
    public function __construct(DoliDB $db)
    {
        $this->db = $db;
    }

    /**
     *    Add an action/event into database.
     *    $this->type_id OR $this->type_code must be set.
     *
     *    @param	User	$user      		Object user making action
     *    @param    int		$notrigger		1 = disable triggers, 0 = enable triggers
     *    @return   int 		        	Id of created event, < 0 if KO
     */
    public function create(User $user, $notrigger = 0)
    {
        global $langs, $conf, $hookmanager;

        $error = 0;
        $now = dol_now();

        // Check parameters
        if (!isset($this->userownerid) || $this->userownerid === '')	// $this->userownerid may be 0 (anonymous event) of > 0
        {
            dol_syslog("You tried to create an event but mandatory property ownerid was not defined", LOG_WARNING);
        	$this->errors[] = 'ErrorPropertyUserowneridNotDefined';
        	return -1;
        }

        // Clean parameters
        $this->label = dol_trunc(trim($this->label), 128);
        $this->location = dol_trunc(trim($this->location), 128);
        $this->note = dol_htmlcleanlastbr(trim($this->note));
        if (empty($this->percentage))   $this->percentage = 0;
        if (empty($this->priority) || !is_numeric($this->priority)) $this->priority = 0;
        if (empty($this->fulldayevent)) $this->fulldayevent = 0;
        if (empty($this->punctual))     $this->punctual = 0;
        if (empty($this->transparency)) $this->transparency = 0;
        if ($this->percentage > 100) $this->percentage = 100;
        //if ($this->percentage == 100 && ! $this->dateend) $this->dateend = $this->date;
        if (!empty($this->datep) && !empty($this->datef))   $this->durationp = ($this->datef - $this->datep); // deprecated
        //if (! empty($this->date)  && ! empty($this->dateend)) $this->durationa=($this->dateend - $this->date);
        if (!empty($this->datep) && !empty($this->datef) && $this->datep > $this->datef) $this->datef = $this->datep;
        //if (! empty($this->date)  && ! empty($this->dateend) && $this->date > $this->dateend) $this->dateend=$this->date;
        if (!isset($this->fk_project) || $this->fk_project < 0) $this->fk_project = 0;
        // For backward compatibility
        if ($this->elementtype == 'facture')  $this->elementtype = 'invoice';
        if ($this->elementtype == 'commande') $this->elementtype = 'order';
        if ($this->elementtype == 'contrat')  $this->elementtype = 'contract';

        if (!is_array($this->userassigned) && !empty($this->userassigned))	// For backward compatibility when userassigned was an int instead fo array
        {
        	$tmpid = $this->userassigned;
        	$this->userassigned = array();
        	$this->userassigned[$tmpid] = array('id'=>$tmpid, 'transparency'=>$this->transparency);
        }


        $userownerid = $this->userownerid;
        $userdoneid = $this->userdoneid;

        // Be sure assigned user is defined as an array of array('id'=>,'mandatory'=>,...).
        if (empty($this->userassigned) || count($this->userassigned) == 0 || !is_array($this->userassigned))
        	$this->userassigned = array($userownerid=>array('id'=>$userownerid, 'transparency'=>$this->transparency));

        if (!$this->type_id || !$this->type_code)
        {
        	$key = empty($this->type_id) ? $this->type_code : $this->type_id;

            // Get id from code
            $cactioncomm = new CActionComm($this->db);
            $result = $cactioncomm->fetch($key);

            if ($result > 0)
            {
                $this->type_id = $cactioncomm->id;
                $this->type_code = $cactioncomm->code;
            }
            elseif ($result == 0)
            {
                $this->error = 'Failed to get record with id '.$this->type_id.' code '.$this->type_code.' from dictionary "type of events"';
                return -1;
            }
            else
			{
                $this->error = $cactioncomm->error;
                return -1;
            }
        }
        $code = empty($this->code) ? $this->type_code : $this->code;

        // Check parameters
        if (!$this->type_id)
        {
            $this->error = "ErrorWrongParameters";
            return -1;
        }

        $this->db->begin();

        $sql = "INSERT INTO ".MAIN_DB_PREFIX."actioncomm";
        $sql .= "(datec,";
        $sql .= "datep,";
        $sql .= "datep2,";
        $sql .= "durationp,"; // deprecated
        $sql .= "fk_action,";
        $sql .= "code,";
        $sql .= "fk_soc,";
        $sql .= "fk_project,";
        $sql .= "note,";
        $sql .= "fk_contact,";
        $sql .= "fk_user_author,";
        $sql .= "fk_user_action,";
        $sql .= "fk_user_done,";
        $sql .= "label,percent,priority,fulldayevent,location,punctual,";
        $sql .= "transparency,";
        $sql .= "fk_element,";
        $sql .= "elementtype,";
        $sql .= "entity,";
        $sql .= "extraparams,";
		// Fields emails
        $sql .= "email_msgid,";
        $sql .= "email_from,";
        $sql .= "email_sender,";
        $sql .= "email_to,";
        $sql .= "email_tocc,";
        $sql .= "email_tobcc,";
        $sql .= "email_subject,";
        $sql .= "errors_to";
        $sql .= ") VALUES (";
        $sql .= "'".$this->db->idate($now)."', ";
        $sql .= (strval($this->datep) != '' ? "'".$this->db->idate($this->datep)."'" : "null").", ";
        $sql .= (strval($this->datef) != '' ? "'".$this->db->idate($this->datef)."'" : "null").", ";
        $sql .= ((isset($this->durationp) && $this->durationp >= 0 && $this->durationp != '') ? "'".$this->db->escape($this->durationp)."'" : "null").", "; // deprecated
        $sql .= (isset($this->type_id) ? $this->type_id : "null").",";
        $sql .= ($code ? ("'".$code."'") : "null").", ";
        $sql .= ((isset($this->socid) && $this->socid > 0) ? $this->socid : "null").", ";
        $sql .= ((isset($this->fk_project) && $this->fk_project > 0) ? $this->fk_project : "null").", ";
        $sql .= " '".$this->db->escape($this->note_private ? $this->note_private : $this->note)."', ";
        $sql .= ((isset($this->contactid) && $this->contactid > 0) ? $this->contactid : "null").", ";
        $sql .= (isset($user->id) && $user->id > 0 ? $user->id : "null").", ";
        $sql .= ($userownerid > 0 ? $userownerid : "null").", ";
        $sql .= ($userdoneid > 0 ? $userdoneid : "null").", ";
        $sql .= "'".$this->db->escape($this->label)."','".$this->db->escape($this->percentage)."','".$this->db->escape($this->priority)."','".$this->db->escape($this->fulldayevent)."','".$this->db->escape($this->location)."','".$this->db->escape($this->punctual)."', ";
        $sql .= "'".$this->db->escape($this->transparency)."', ";
        $sql .= (!empty($this->fk_element) ? $this->fk_element : "null").", ";
        $sql .= (!empty($this->elementtype) ? "'".$this->db->escape($this->elementtype)."'" : "null").", ";
        $sql .= $conf->entity.",";
        $sql .= (!empty($this->extraparams) ? "'".$this->db->escape($this->extraparams)."'" : "null").", ";
        // Fields emails
        $sql .= (!empty($this->email_msgid) ? "'".$this->db->escape($this->email_msgid)."'" : "null").", ";
        $sql .= (!empty($this->email_from) ? "'".$this->db->escape($this->email_from)."'" : "null").", ";
        $sql .= (!empty($this->email_sender) ? "'".$this->db->escape($this->email_sender)."'" : "null").", ";
        $sql .= (!empty($this->email_to) ? "'".$this->db->escape($this->email_to)."'" : "null").", ";
        $sql .= (!empty($this->email_tocc) ? "'".$this->db->escape($this->email_tocc)."'" : "null").", ";
        $sql .= (!empty($this->email_tobcc) ? "'".$this->db->escape($this->email_tobcc)."'" : "null").", ";
        $sql .= (!empty($this->email_subject) ? "'".$this->db->escape($this->email_subject)."'" : "null").", ";
        $sql .= (!empty($this->errors_to) ? "'".$this->db->escape($this->errors_to)."'" : "null");
        $sql .= ")";

        dol_syslog(get_class($this)."::add", LOG_DEBUG);
        $resql = $this->db->query($sql);
        if ($resql)
        {
            $this->id = $this->db->last_insert_id(MAIN_DB_PREFIX."actioncomm", "id");

            // Now insert assigned users
			if (!$error)
			{
				//dol_syslog(var_export($this->userassigned, true));
				foreach ($this->userassigned as $key => $val)
				{
			        if (!is_array($val))	// For backward compatibility when val=id
			        {
			        	$val = array('id'=>$val);
			        }

			        if ($val['id'] > 0)
			        {
						$sql = "INSERT INTO ".MAIN_DB_PREFIX."actioncomm_resources(fk_actioncomm, element_type, fk_element, mandatory, transparency, answer_status)";
						$sql .= " VALUES(".$this->id.", 'user', ".$val['id'].", ".(empty($val['mandatory']) ? '0' : $val['mandatory']).", ".(empty($val['transparency']) ? '0' : $val['transparency']).", ".(empty($val['answer_status']) ? '0' : $val['answer_status']).")";

						$resql = $this->db->query($sql);
						if (!$resql)
						{
							$error++;
							dol_syslog('Error to process userassigned: '.$this->db->lasterror(), LOG_ERR);
			           		$this->errors[] = $this->db->lasterror();
						}
						//var_dump($sql);exit;
			        }
				}
			}

			if (!$error)
			{
				if (!empty($this->socpeopleassigned))
				{
					foreach ($this->socpeopleassigned as $id => $val)
					{
						$sql = "INSERT INTO ".MAIN_DB_PREFIX."actioncomm_resources(fk_actioncomm, element_type, fk_element, mandatory, transparency, answer_status)";
						$sql .= " VALUES(".$this->id.", 'socpeople', ".$id.", 0, 0, 0)";

						$resql = $this->db->query($sql);
						if (!$resql)
						{
							$error++;
							dol_syslog('Error to process socpeopleassigned: '.$this->db->lasterror(), LOG_ERR);
							$this->errors[] = $this->db->lasterror();
						}
					}
				}
			}

            if (!$error)
            {
	            // Actions on extra fields
            	if (empty($conf->global->MAIN_EXTRAFIELDS_DISABLED)) // For avoid conflicts if trigger used
            	{
            		$result = $this->insertExtraFields();
            		if ($result < 0)
            		{
            			$error++;
            		}
	            }
            }

            if (!$error && !$notrigger)
            {
                // Call trigger
                $result = $this->call_trigger('ACTION_CREATE', $user);
                if ($result < 0) { $error++; }
                // End call triggers
            }

            if (!$error)
            {
            	$this->db->commit();
            	return $this->id;
            }
            else
            {
                $this->db->rollback();
                return -1;
            }
        }
        else
        {
            $this->db->rollback();
            $this->error = $this->db->lasterror();
            return -1;
        }
    }

    /**
     *  Load an object from its id and create a new one in database
     *
     *  @param	    User	        $fuser      	Object user making action
	 *  @param		int				$socid			Id of thirdparty
     *  @return		int								New id of clone
     */
    public function createFromClone(User $fuser, $socid)
    {
        global $db, $conf, $hookmanager;

        $error = 0;
        $now = dol_now();

        $this->db->begin();

		// Load source object
		$objFrom = clone $this;

		// Retreive all extrafield
		// fetch optionals attributes and labels
		$this->fetch_optionals();

		//$this->fetch_userassigned();
		$this->fetchResources();

        $this->id = 0;

        // Create clone
		$this->context['createfromclone'] = 'createfromclone';
		$result = $this->create($fuser);
        if ($result < 0) $error++;

        if (!$error)
        {
            // Hook of thirdparty module
            if (is_object($hookmanager))
            {
                $parameters = array('objFrom'=>$objFrom);
                $action = '';
                $reshook = $hookmanager->executeHooks('createFrom', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
                if ($reshook < 0) $error++;
            }

            // Call trigger
            $result = $this->call_trigger('ACTION_CLONE', $fuser);
            if ($result < 0) { $error++; }
            // End call triggers
        }

        unset($this->context['createfromclone']);

        // End
        if (!$error)
        {
            $this->db->commit();
            return $this->id;
        }
        else
        {
            $this->db->rollback();
            return -1;
        }
    }

    /**
     *  Load object from database
     *
     *  @param  int		$id     	Id of action to get
     *  @param  string	$ref    	Ref of action to get
     *  @param  string	$ref_ext	Ref ext to get
     *  @return	int					<0 if KO, >0 if OK
     */
    public function fetch($id, $ref = '', $ref_ext = '')
    {
        global $langs;

        $sql = "SELECT a.id,";
        $sql .= " a.id as ref,";
        $sql .= " a.entity,";
        $sql .= " a.ref_ext,";
        $sql .= " a.datep,";
        $sql .= " a.datep2,";
        $sql .= " a.durationp,"; // deprecated
        $sql .= " a.datec,";
        $sql .= " a.tms as datem,";
        $sql .= " a.code, a.label, a.note,";
        $sql .= " a.fk_soc,";
        $sql .= " a.fk_project,";
        $sql .= " a.fk_user_author, a.fk_user_mod,";
        $sql .= " a.fk_user_action, a.fk_user_done,";
        $sql .= " a.fk_contact, a.percent as percentage,";
        $sql .= " a.fk_element as elementid, a.elementtype,";
        $sql .= " a.priority, a.fulldayevent, a.location, a.punctual, a.transparency,";
        $sql .= " c.id as type_id, c.code as type_code, c.libelle as type_label, c.color as type_color, c.picto as type_picto,";
        $sql .= " s.nom as socname,";
        $sql .= " u.firstname, u.lastname as lastname";
        $sql .= " FROM ".MAIN_DB_PREFIX."actioncomm as a ";
        $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."c_actioncomm as c ON a.fk_action=c.id ";
        $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."user as u on u.rowid = a.fk_user_author";
        $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s on s.rowid = a.fk_soc";
        $sql .= " WHERE ";
        if ($ref) $sql .= " a.id=".$ref; // No field ref, we use id
        elseif ($ref_ext) $sql .= " a.ref_ext='".$this->db->escape($ref_ext)."'";
        else $sql .= " a.id=".$id;

        dol_syslog(get_class($this)."::fetch", LOG_DEBUG);
        $resql = $this->db->query($sql);
        if ($resql)
        {
        	$num = $this->db->num_rows($resql);
            if ($num)
            {
                $obj = $this->db->fetch_object($resql);

                $this->id         = $obj->id;
				$this->entity     = $obj->entity;
                $this->ref        = $obj->ref;
                $this->ref_ext    = $obj->ref_ext;

                // Properties of parent table llx_c_actioncomm
                $this->type_id    = $obj->type_id;
                $this->type_code  = $obj->type_code;
                $this->type_color = $obj->type_color;
                $this->type_picto = $obj->type_picto;
                $transcode = $langs->trans("Action".$obj->type_code);
                $this->type       = (($transcode != "Action".$obj->type_code) ? $transcode : $obj->type_label);
                $transcode = $langs->trans("Action".$obj->type_code.'Short');
                $this->type_short = (($transcode != "Action".$obj->type_code.'Short') ? $transcode : '');

				$this->code = $obj->code;
                $this->label				= $obj->label;
                $this->datep				= $this->db->jdate($obj->datep);
                $this->datef				= $this->db->jdate($obj->datep2);

                $this->datec   				= $this->db->jdate($obj->datec);
                $this->datem   				= $this->db->jdate($obj->datem);

                $this->note = $obj->note;
                $this->note_private = $obj->note;
                $this->percentage = $obj->percentage;

                $this->authorid = $obj->fk_user_author;
                $this->usermodid = $obj->fk_user_mod;

                if (!is_object($this->author)) $this->author = new stdClass(); // To avoid warning
                $this->author->id = $obj->fk_user_author; // deprecated
                $this->author->firstname = $obj->firstname; // deprecated
                $this->author->lastname = $obj->lastname; // deprecated
                if (!is_object($this->usermod)) $this->usermod = new stdClass(); // To avoid warning
                $this->usermod->id = $obj->fk_user_mod; // deprecated

                $this->userownerid = $obj->fk_user_action;
                $this->userdoneid = $obj->fk_user_done;
                $this->priority				= $obj->priority;
                $this->fulldayevent			= $obj->fulldayevent;
                $this->location				= $obj->location;
                $this->transparency			= $obj->transparency;
                $this->punctual				= $obj->punctual; // deprecated

                $this->socid = $obj->fk_soc; // To have fetch_thirdparty method working
                $this->contactid			= $obj->fk_contact; // To have fetch_contact method working
                $this->fk_project = $obj->fk_project; // To have fetch_projet method working

                //$this->societe->id			= $obj->fk_soc;			// deprecated
                //$this->contact->id			= $obj->fk_contact;		// deprecated

                $this->fk_element = $obj->elementid;
                $this->elementid = $obj->elementid;
                $this->elementtype = $obj->elementtype;

                $this->fetchResources();
            }
            $this->db->free($resql);
        }
        else
        {
            $this->error = $this->db->lasterror();
            return -1;
        }

        return $num;
    }

    /**
     *    Initialize $this->userassigned & this->socpeopleassigned array with list of id of user and contact assigned to event
     *
     *    @return   int				<0 if KO, >0 if OK
     */
    public function fetchResources()
    {
    	$this->userassigned = array();
    	$this->socpeopleassigned = array();

    	$sql = 'SELECT fk_actioncomm, element_type, fk_element, answer_status, mandatory, transparency';
		$sql .= ' FROM '.MAIN_DB_PREFIX.'actioncomm_resources';
		$sql .= ' WHERE fk_actioncomm = '.$this->id;
		$sql .= " AND element_type IN ('user', 'socpeople')";
		$resql = $this->db->query($sql);
		if ($resql)
		{
			// If owner is known, we must but id first into list
			if ($this->userownerid > 0) $this->userassigned[$this->userownerid] = array('id'=>$this->userownerid); // Set first so will be first into list.

            while ($obj = $this->db->fetch_object($resql))
            {
            	if ($obj->fk_element > 0)
				{
					switch ($obj->element_type) {
						case 'user':
							$this->userassigned[$obj->fk_element] = array('id'=>$obj->fk_element, 'mandatory'=>$obj->mandatory, 'answer_status'=>$obj->answer_status, 'transparency'=>$obj->transparency);
							if (empty($this->userownerid)) $this->userownerid = $obj->fk_element; // If not defined (should not happened, we fix this)
							break;
						case 'socpeople':
							$this->socpeopleassigned[$obj->fk_element] = array('id'=>$obj->fk_element, 'mandatory'=>$obj->mandatory, 'answer_status'=>$obj->answer_status, 'transparency'=>$obj->transparency);
							break;
					}
				}
            }

        	return 1;
		}
		else
		{
			dol_print_error($this->db);
			return -1;
		}
	}

    // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
    /**
     *    Initialize this->userassigned array with list of id of user assigned to event
     *
     *    @param    bool    $override   Override $this->userownerid when empty. TODO This should be false by default. True is here to fix corrupted data.
     *    @return   int                 <0 if KO, >0 if OK
     */
    public function fetch_userassigned($override = true)
    {
        // phpcs:enable
        $sql ="SELECT fk_actioncomm, element_type, fk_element, answer_status, mandatory, transparency";
        $sql.=" FROM ".MAIN_DB_PREFIX."actioncomm_resources";
        $sql.=" WHERE element_type = 'user' AND fk_actioncomm = ".$this->id;

        $resql2=$this->db->query($sql);
        if ($resql2)
        {
            $this->userassigned = array();

            // If owner is known, we must but id first into list
            if ($this->userownerid > 0)
            {
                // Set first so will be first into list.
                $this->userassigned[$this->userownerid] = array('id'=>$this->userownerid);
            }

            while ($obj = $this->db->fetch_object($resql2))
            {
                if ($obj->fk_element > 0)
                {
                    $this->userassigned[$obj->fk_element] = array('id'=>$obj->fk_element,
                                                                  'mandatory'=>$obj->mandatory,
                                                                  'answer_status'=>$obj->answer_status,
                                                                  'transparency'=>$obj->transparency);
                }

                if ($override === true)
                {
                    // If not defined (should not happened, we fix this)
                    if (empty($this->userownerid))
                    {
                        $this->userownerid = $obj->fk_element;
                    }
                }
            }

            return 1;
        }
        else
        {
            dol_print_error($this->db);
            return -1;
        }
    }

    /**
     *    Delete event from database
     *
     *    @param    int		$notrigger		1 = disable triggers, 0 = enable triggers
     *    @return   int 					<0 if KO, >0 if OK
     */
    public function delete($notrigger = 0)
    {
        global $user;

        $error=0;

        $this->db->begin();

        $sql = "DELETE FROM ".MAIN_DB_PREFIX."actioncomm";
        $sql.= " WHERE id=".$this->id;

        dol_syslog(get_class($this)."::delete", LOG_DEBUG);
        $res=$this->db->query($sql);
        if (!$res) {
        	$this->error=$this->db->lasterror();
        	$error++;
        }

        if (! $error) {
            $sql = "DELETE FROM ".MAIN_DB_PREFIX."actioncomm_resources";
            $sql.= " WHERE fk_actioncomm=".$this->id;

            dol_syslog(get_class($this)."::delete", LOG_DEBUG);
            $res=$this->db->query($sql);
            if (!$res) {
                $this->error=$this->db->lasterror();
                $error++;
            }
        }

        // Removed extrafields
        if (! $error) {
        	$result=$this->deleteExtraFields();
          	if ($result < 0)
           	{
           		$error++;
           		dol_syslog(get_class($this)."::delete error -3 ".$this->error, LOG_ERR);
           	}
        }

        if (!$error)
        {
            if (!$notrigger)
            {
                // Call trigger
                $result = $this->call_trigger('ACTION_DELETE', $user);
                if ($result < 0) { $error++; }
                // End call triggers
            }

            if (!$error)
            {
                $this->db->commit();
                return 1;
            }
            else
            {
                $this->db->rollback();
                return -2;
            }
        }
        else
        {
            $this->db->rollback();
            $this->error = $this->db->lasterror();
            return -1;
        }
    }

    /**
     *    Update action into database
     *	  If percentage = 100, on met a jour date 100%
     *
     *    @param    User	$user			Object user making change
     *    @param    int		$notrigger		1 = disable triggers, 0 = enable triggers
     *    @return   int     				<0 if KO, >0 if OK
     */
    public function update($user, $notrigger = 0)
    {
        global $langs, $conf, $hookmanager;

        $error = 0;

        // Clean parameters
        $this->label = trim($this->label);
        $this->note = trim($this->note);
        if (empty($this->percentage))    $this->percentage = 0;
        if (empty($this->priority) || !is_numeric($this->priority)) $this->priority = 0;
        if (empty($this->transparency))  $this->transparency = 0;
        if (empty($this->fulldayevent))  $this->fulldayevent = 0;
        if ($this->percentage > 100) $this->percentage = 100;
        //if ($this->percentage == 100 && ! $this->dateend) $this->dateend = $this->date;
        if ($this->datep && $this->datef)   $this->durationp = ($this->datef - $this->datep); // deprecated
        //if ($this->date  && $this->dateend) $this->durationa=($this->dateend - $this->date);
        if ($this->datep && $this->datef && $this->datep > $this->datef) $this->datef = $this->datep;
        //if ($this->date  && $this->dateend && $this->date > $this->dateend) $this->dateend=$this->date;
        if ($this->fk_project < 0) $this->fk_project = 0;

        // Check parameters
        if ($this->percentage == 0 && $this->userdoneid > 0)
        {
            $this->error = "ErrorCantSaveADoneUserWithZeroPercentage";
            return -1;
        }

        $socid = (($this->socid > 0) ? $this->socid : 0);
        $contactid = (($this->contactid > 0) ? $this->contactid : 0);
		$userownerid = ($this->userownerid ? $this->userownerid : 0);
		$userdoneid = ($this->userdoneid ? $this->userdoneid : 0);

        $this->db->begin();

        $sql = "UPDATE ".MAIN_DB_PREFIX."actioncomm ";
        $sql .= " SET percent = '".$this->db->escape($this->percentage)."'";
        if ($this->type_id > 0) $sql .= ", fk_action = '".$this->db->escape($this->type_id)."'";
        $sql .= ", label = ".($this->label ? "'".$this->db->escape($this->label)."'" : "null");
        $sql .= ", datep = ".(strval($this->datep) != '' ? "'".$this->db->idate($this->datep)."'" : 'null');
        $sql .= ", datep2 = ".(strval($this->datef) != '' ? "'".$this->db->idate($this->datef)."'" : 'null');
        $sql .= ", durationp = ".(isset($this->durationp) && $this->durationp >= 0 && $this->durationp != '' ? "'".$this->db->escape($this->durationp)."'" : "null"); // deprecated
        $sql .= ", note = '".$this->db->escape($this->note_private ? $this->note_private : $this->note)."'";
        $sql .= ", fk_project =".($this->fk_project > 0 ? $this->fk_project : "null");
        $sql .= ", fk_soc =".($socid > 0 ? $socid : "null");
        $sql .= ", fk_contact =".($contactid > 0 ? $contactid : "null");
        $sql .= ", priority = '".$this->db->escape($this->priority)."'";
        $sql .= ", fulldayevent = '".$this->db->escape($this->fulldayevent)."'";
        $sql .= ", location = ".($this->location ? "'".$this->db->escape($this->location)."'" : "null");
        $sql .= ", transparency = '".$this->db->escape($this->transparency)."'";
        $sql .= ", fk_user_mod = ".$user->id;
        $sql .= ", fk_user_action=".($userownerid > 0 ? "'".$userownerid."'" : "null");
        $sql .= ", fk_user_done=".($userdoneid > 0 ? "'".$userdoneid."'" : "null");
        if (!empty($this->fk_element)) $sql .= ", fk_element=".($this->fk_element ? $this->db->escape($this->fk_element) : "null");
        if (!empty($this->elementtype)) $sql .= ", elementtype=".($this->elementtype ? "'".$this->db->escape($this->elementtype)."'" : "null");
        $sql .= " WHERE id=".$this->id;

        dol_syslog(get_class($this)."::update", LOG_DEBUG);
        if ($this->db->query($sql))
        {
			$action = 'update';

        	// Actions on extra fields
       		if (empty($conf->global->MAIN_EXTRAFIELDS_DISABLED)) // For avoid conflicts if trigger used
       		{
       			$result = $this->insertExtraFields();
       			if ($result < 0)
       			{
       				$error++;
       			}
        	}

            // Now insert assignedusers
			if (!$error)
			{
				$sql = "DELETE FROM ".MAIN_DB_PREFIX."actioncomm_resources where fk_actioncomm = ".$this->id." AND element_type = 'user'";
				$resql = $this->db->query($sql);

				foreach ($this->userassigned as $key => $val)
				{
			        if (!is_array($val))	// For backward compatibility when val=id
			        {
			        	$val = array('id'=>$val);
			        }
					$sql = "INSERT INTO ".MAIN_DB_PREFIX."actioncomm_resources(fk_actioncomm, element_type, fk_element, mandatory, transparency, answer_status)";
					$sql .= " VALUES(".$this->id.", 'user', ".$val['id'].", ".(empty($val['mandatory']) ? '0' : $val['mandatory']).", ".(empty($val['transparency']) ? '0' : $val['transparency']).", ".(empty($val['answer_status']) ? '0' : $val['answer_status']).")";

					$resql = $this->db->query($sql);
					if (!$resql)
					{
						$error++;
		           		$this->errors[] = $this->db->lasterror();
					}
					//var_dump($sql);exit;
				}
			}

			if (!$error)
			{
				$sql = "DELETE FROM ".MAIN_DB_PREFIX."actioncomm_resources where fk_actioncomm = ".$this->id." AND element_type = 'socpeople'";
				$resql = $this->db->query($sql);

				if (!empty($this->socpeopleassigned))
				{
					foreach (array_keys($this->socpeopleassigned) as $id)
					{
						$sql = "INSERT INTO ".MAIN_DB_PREFIX."actioncomm_resources(fk_actioncomm, element_type, fk_element, mandatory, transparency, answer_status)";
						$sql .= " VALUES(".$this->id.", 'socpeople', ".$id.", 0, 0, 0)";

						$resql = $this->db->query($sql);
						if (!$resql)
						{
							$error++;
							$this->errors[] = $this->db->lasterror();
						}
					}
				}
			}

            if (!$error && !$notrigger)
            {
                // Call trigger
                $result = $this->call_trigger('ACTION_MODIFY', $user);
                if ($result < 0) { $error++; }
                // End call triggers
            }

            if (!$error)
            {
                $this->db->commit();
                return 1;
            }
            else
            {
                $this->db->rollback();
                dol_syslog(get_class($this)."::update ".join(',', $this->errors), LOG_ERR);
                return -2;
            }
        }
        else
        {
            $this->db->rollback();
            $this->error = $this->db->lasterror();
            return -1;
        }
    }

    /**
     *  Load all objects with filters.
     *  @todo WARNING: This make a fetch on all records instead of making one request with a join.
     *
     *  @param		DoliDb	$db				Database handler
     *  @param		int		$socid			Filter by thirdparty
     *  @param		int		$fk_element		Id of element action is linked to
     *  @param		string	$elementtype	Type of element action is linked to
     *  @param		string	$filter			Other filter
     *  @param		string	$sortfield		Sort on this field
     *  @param		string	$sortorder		ASC or DESC
     *  @param		string	$limit			Limit number of answers
     *  @return		array|string			Error string if KO, array with actions if OK
     */
    public static function getActions($db, $socid = 0, $fk_element = 0, $elementtype = '', $filter = '', $sortfield = 'a.datep', $sortorder = 'DESC', $limit = 0)
    {
        global $conf, $langs;

        $resarray = array();

        dol_syslog(get_class()."::getActions", LOG_DEBUG);

        $sql = "SELECT a.id";
        $sql .= " FROM ".MAIN_DB_PREFIX."actioncomm as a";
        $sql .= " WHERE a.entity IN (".getEntity('agenda').")";
        if (!empty($socid)) $sql .= " AND a.fk_soc = ".$socid;
        if (!empty($elementtype))
        {
            if ($elementtype == 'project') $sql .= ' AND a.fk_project = '.$fk_element;
            else $sql .= " AND a.fk_element = ".(int) $fk_element." AND a.elementtype = '".$elementtype."'";
        }
        if (!empty($filter)) $sql .= $filter;
		if ($sortorder && $sortfield) $sql .= $db->order($sortfield, $sortorder);
		$sql .= $db->plimit($limit, 0);

        $resql = $db->query($sql);
        if ($resql)
        {
            $num = $db->num_rows($resql);

            if ($num)
            {
                for ($i = 0; $i < $num; $i++)
                {
                    $obj = $db->fetch_object($resql);
                    $actioncommstatic = new ActionComm($db);
                    $actioncommstatic->fetch($obj->id);
                    $resarray[$i] = $actioncommstatic;
                }
            }
            $db->free($resql);
            return $resarray;
        }
        else
        {
            return $db->lasterror();
        }
    }

    // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
    /**
     * Load indicators for dashboard (this->nbtodo and this->nbtodolate)
     *
     * @param	User	$user   			Objet user
     * @param	int		$load_state_board	Charge indicateurs this->nb de tableau de bord
     * @return WorkboardResponse|int <0 if KO, WorkboardResponse if OK
     */
    public function load_board($user, $load_state_board = 0)
    {
        // phpcs:enable
        global $conf, $langs;

    	if(empty($load_state_board)) $sql = "SELECT a.id, a.datep as dp";
    	else {
    		$this->nb=array();
    		$sql = "SELECT count(a.id) as nb";
    	}
    	$sql.= " FROM ".MAIN_DB_PREFIX."actioncomm as a";
    	if (! $user->rights->societe->client->voir && ! $user->socid) $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe_commerciaux as sc ON a.fk_soc = sc.fk_soc";
    	$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON a.fk_soc = s.rowid";
    	$sql.= " WHERE 1 = 1";
    	if(empty($load_state_board)) $sql.= " AND a.percent >= 0 AND a.percent < 100";
    	$sql.= " AND a.entity IN (".getEntity('agenda').")";
    	if (! $user->rights->societe->client->voir && ! $user->socid) $sql.= " AND (a.fk_soc IS NULL OR sc.fk_user = " .$user->id . ")";
    	if ($user->socid) $sql.=" AND a.fk_soc = ".$user->socid;
    	if (! $user->rights->agenda->allactions->read) $sql.= " AND (a.fk_user_author = ".$user->id . " OR a.fk_user_action = ".$user->id . " OR a.fk_user_done = ".$user->id . ")";

    	$resql=$this->db->query($sql);
    	if ($resql)
    	{
    		if(empty($load_state_board)) {
	    		$agenda_static = new ActionComm($this->db);
	    		$response = new WorkboardResponse();
	    		$response->warning_delay = $conf->agenda->warning_delay/60/60/24;
	    		$response->label = $langs->trans("ActionsToDo");
	    		$response->labelShort = $langs->trans("ActionsToDoShort");
	    		$response->url = DOL_URL_ROOT.'/comm/action/list.php?actioncode=0&amp;status=todo&amp;mainmenu=agenda';
	    		if ($user->rights->agenda->allactions->read) $response->url.='&amp;filtert=-1';
	    		$response->img = img_object('', "action", 'class="inline-block valigntextmiddle"');
    		}
    		// This assignment in condition is not a bug. It allows walking the results.
    		while ($obj=$this->db->fetch_object($resql))
    		{
    			if(empty($load_state_board)) {
	    			$response->nbtodo++;
	    			$agenda_static->datep = $this->db->jdate($obj->dp);
	    			if ($agenda_static->hasDelay()) $response->nbtodolate++;
    			} else $this->nb["actionscomm"]=$obj->nb;
    		}

    		$this->db->free($resql);
    		if(empty($load_state_board)) return $response;
    		else return 1;
    	}
    	else
    	{
    		dol_print_error($this->db);
    		$this->error=$this->db->error();
    		return -1;
    	}
    }


    /**
     *  Charge les informations d'ordre info dans l'objet facture
     *
     *  @param	int		$id       	Id de la facture a charger
     *  @return	void
     */
    public function info($id)
    {
        $sql = 'SELECT ';
        $sql .= ' a.id,';
        $sql .= ' datec,';
        $sql .= ' tms as datem,';
        $sql .= ' fk_user_author,';
        $sql .= ' fk_user_mod';
        $sql .= ' FROM '.MAIN_DB_PREFIX.'actioncomm as a';
        $sql .= ' WHERE a.id = '.$id;

        dol_syslog(get_class($this)."::info", LOG_DEBUG);
        $result = $this->db->query($sql);
        if ($result)
        {
            if ($this->db->num_rows($result))
            {
                $obj = $this->db->fetch_object($result);
                $this->id = $obj->id;
                if ($obj->fk_user_author)
                {
                    $cuser = new User($this->db);
                    $cuser->fetch($obj->fk_user_author);
                    $this->user_creation = $cuser;
                }
                if ($obj->fk_user_mod)
                {
                    $muser = new User($this->db);
                    $muser->fetch($obj->fk_user_mod);
                    $this->user_modification = $muser;
                }

                $this->date_creation = $this->db->jdate($obj->datec);
                if (!empty($obj->fk_user_mod)) $this->date_modification = $this->db->jdate($obj->datem);
            }
            $this->db->free($result);
        }
        else
        {
            dol_print_error($this->db);
        }
    }


    /**
     *  Return label of status
     *
     *  @param	int		$mode           0=libelle long, 1=libelle court, 2=Picto + Libelle court, 3=Picto, 4=Picto + Libelle long, 5=Libelle court + Picto
     *  @param  int		$hidenastatus   1=Show nothing if status is "Not applicable"
     *  @return string          		String with status
     */
    public function getLibStatut($mode, $hidenastatus = 0)
    {
        return $this->LibStatut($this->percentage, $mode, $hidenastatus, $this->datep);
    }

    // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
    /**
     *  Return label of action status
     *
     *  @param  int     $percent        Percent
     *  @param  int		$mode           0=Long label, 1=Short label, 2=Picto+Short label, 3=Picto, 4=Picto+Short label, 5=Short label+Picto, 6=Picto+Long label, 7=Very short label+Picto
     *  @param  int		$hidenastatus   1=Show nothing if status is "Not applicable"
     *  @param  int     $datestart      Date start of event
     *  @return string		    		Label
     */
    public function LibStatut($percent, $mode, $hidenastatus = 0, $datestart = '')
    {
        // phpcs:enable
        global $langs;

        if ($mode == 0)
        {
            if ($percent == -1 && !$hidenastatus) return $langs->trans('StatusNotApplicable');
            elseif ($percent == 0) return $langs->trans('StatusActionToDo').' (0%)';
            elseif ($percent > 0 && $percent < 100) return $langs->trans('StatusActionInProcess').' ('.$percent.'%)';
            elseif ($percent >= 100) return $langs->trans('StatusActionDone').' (100%)';
        }
        elseif ($mode == 1)
        {
        	if ($percent == -1 && !$hidenastatus) return $langs->trans('StatusNotApplicable');
        	elseif ($percent == 0) return $langs->trans('StatusActionToDo');
        	elseif ($percent > 0 && $percent < 100) return $percent.'%';
        	elseif ($percent >= 100) return $langs->trans('StatusActionDone');
        }
        elseif ($mode == 2)
        {
        	if ($percent == -1 && !$hidenastatus) return img_picto($langs->trans('StatusNotApplicable'), 'statut9').' '.$langs->trans('StatusNotApplicable');
        	elseif ($percent == 0) return img_picto($langs->trans('StatusActionToDo'), 'statut1').' '.$langs->trans('StatusActionToDo');
        	elseif ($percent > 0 && $percent < 100) return img_picto($langs->trans('StatusActionInProcess'), 'statut3').' '.$percent.'%';
        	elseif ($percent >= 100) return img_picto($langs->trans('StatusActionDone'), 'statut6').' '.$langs->trans('StatusActionDone');
        }
        elseif ($mode == 3)
        {
        	if ($percent == -1 && !$hidenastatus) return img_picto($langs->trans("Status").': '.$langs->trans('StatusNotApplicable'), 'statut9');
        	elseif ($percent == 0) return img_picto($langs->trans("Status").': '.$langs->trans('StatusActionToDo').' (0%)', 'statut1');
        	elseif ($percent > 0 && $percent < 100) return img_picto($langs->trans("Status").': '.$langs->trans('StatusActionInProcess').' ('.$percent.'%)', 'statut3');
        	elseif ($percent >= 100) return img_picto($langs->trans("Status").': '.$langs->trans('StatusActionDone').' (100%)', 'statut6');
        }
        elseif ($mode == 4)
        {
        	if ($percent == -1 && !$hidenastatus) return img_picto($langs->trans('StatusNotApplicable'), 'statut9').' '.$langs->trans('StatusNotApplicable');
        	elseif ($percent == 0) return img_picto($langs->trans('StatusActionToDo'), 'statut1').' '.$langs->trans('StatusActionToDo').' (0%)';
        	elseif ($percent > 0 && $percent < 100) return img_picto($langs->trans('StatusActionInProcess'), 'statut3').' '.$langs->trans('StatusActionInProcess').' ('.$percent.'%)';
        	elseif ($percent >= 100) return img_picto($langs->trans('StatusActionDone'), 'statut6').' '.$langs->trans('StatusActionDone').' (100%)';
        }
        elseif ($mode == 5)
        {
        	if ($percent == -1 && !$hidenastatus) return img_picto($langs->trans('StatusNotApplicable'), 'statut9');
        	elseif ($percent == 0) return '0% '.img_picto($langs->trans('StatusActionToDo'), 'statut1');
        	elseif ($percent > 0 && $percent < 100) return $percent.'% '.img_picto($langs->trans('StatusActionInProcess').' - '.$percent.'%', 'statut3');
        	elseif ($percent >= 100) return $langs->trans('StatusActionDone').' '.img_picto($langs->trans('StatusActionDone'), 'statut6');
        }
        elseif ($mode == 6)
        {
        	if ($percent == -1 && !$hidenastatus) return $langs->trans('StatusNotApplicable').' '.img_picto($langs->trans('StatusNotApplicable'), 'statut9');
        	elseif ($percent == 0) return $langs->trans('StatusActionToDo').' (0%) '.img_picto($langs->trans('StatusActionToDo'), 'statut1');
        	elseif ($percent > 0 && $percent < 100) return $langs->trans('StatusActionInProcess').' ('.$percent.'%) '.img_picto($langs->trans('StatusActionInProcess').' - '.$percent.'%', 'statut3');
        	elseif ($percent >= 100) return $langs->trans('StatusActionDone').' (100%) '.img_picto($langs->trans('StatusActionDone'), 'statut6');
        }
        elseif ($mode == 7)
        {
            if ($percent == -1 && !$hidenastatus) return img_picto($langs->trans('StatusNotApplicable'), 'statut9');
            elseif ($percent == 0) return '0% '.img_picto($langs->trans('StatusActionToDo'), 'statut1');
            elseif ($percent > 0 && $percent < 100) return $percent.'% '.img_picto($langs->trans('StatusActionInProcess').' - '.$percent.'%', 'statut3');
            elseif ($percent >= 100) return img_picto($langs->trans('StatusActionDone'), 'statut6');
        }

        return '';
    }

    /**
     *  Return URL of event
     *  Use $this->id, $this->type_code, $this->label and $this->type_label
     *
     *  @param	int		$withpicto				0=No picto, 1=Include picto into link, 2=Only picto
     *  @param	int		$maxlength				Max number of charaters into label. If negative, use the ref as label.
     *  @param	string	$classname				Force style class on a link
     *  @param	string	$option					''=Link to action, 'birthday'=Link to contact
     *  @param	int		$overwritepicto			1=Overwrite picto
     *  @param	int   	$notooltip		    	1=Disable tooltip
     *  @param  int     $save_lastsearch_value  -1=Auto, 0=No save of lastsearch_values when clicking, 1=Save lastsearch_values whenclicking
     *  @return	string							Chaine avec URL
     */
    public function getNomUrl($withpicto = 0, $maxlength = 0, $classname = '', $option = '', $overwritepicto = 0, $notooltip = 0, $save_lastsearch_value = -1)
    {
        global $conf, $langs, $user, $hookmanager, $action;

        if (!empty($conf->dol_no_mouse_hover)) $notooltip = 1; // Force disable tooltips

		$canread = 0;
		if ($user->rights->agenda->myactions->read && $this->authorid == $user->id) $canread = 1;	// Can read my event
		if ($user->rights->agenda->myactions->read && array_key_exists($user->id, $this->userassigned)) $canread = 1;	// Can read my event i am assigned
		if ($user->rights->agenda->allactions->read) $canread = 1;		// Can read all event of other
		if (! $canread)
		{
            $option = 'nolink';
		}

        $label = $this->label;
		if (empty($label)) $label = $this->libelle; // For backward compatibility

		$result = '';

		// Set label of type
		$labeltype = '';
		if ($this->type_code)
		{
			$labeltype = ($langs->transnoentities("Action".$this->type_code) != "Action".$this->type_code) ? $langs->transnoentities("Action".$this->type_code) : $this->type_label;
		}
		if (empty($conf->global->AGENDA_USE_EVENT_TYPE))
		{
		    if ($this->type_code != 'AC_OTH_AUTO') $labeltype = $langs->trans('ActionAC_MANUAL');
		}

		$tooltip = '<u>'.$langs->trans('ShowAction').'</u>';
		if (!empty($this->ref))
			$tooltip .= '<br><b>'.$langs->trans('Ref').':</b> '.$this->ref;
		if (!empty($label))
			$tooltip .= '<br><b>'.$langs->trans('Title').':</b> '.$label;
		if (!empty($labeltype))
			$tooltip .= '<br><b>'.$langs->trans('Type').':</b> '.$labeltype;
		if (!empty($this->location))
			$tooltip .= '<br><b>'.$langs->trans('Location').':</b> '.$this->location;
		if (!empty($this->note))
		    $tooltip .= '<br><b>'.$langs->trans('Note').':</b> '.(dol_textishtml($this->note) ? str_replace(array("\r", "\n"), "", $this->note) : str_replace(array("\r", "\n"), '<br>', $this->note));
		$linkclose = '';
		if (!empty($conf->global->AGENDA_USE_EVENT_TYPE) && $this->type_color)
			$linkclose = ' style="background-color:#'.$this->type_color.'"';

		if (empty($notooltip))
		{
		    if (!empty($conf->global->MAIN_OPTIMIZEFORTEXTBROWSER))
		    {
		        $label = $langs->trans("ShowAction");
		        $linkclose .= ' alt="'.dol_escape_htmltag($tooltip, 1).'"';
		    }
		    $linkclose .= ' title="'.dol_escape_htmltag($tooltip, 1).'"';
		    $linkclose .= ' class="'.$classname.' classfortooltip"';

		    /*
		    $hookmanager->initHooks(array('actiondao'));
		    $parameters=array('id'=>$this->id);
		    $reshook=$hookmanager->executeHooks('getnomurltooltip',$parameters,$this,$action);    // Note that $action and $object may have been modified by some hooks
		    $linkclose = ($hookmanager->resPrint ? $hookmanager->resPrint : $linkclose);
		    */
		}
		else $linkclose .= ' class="'.$classname.'"';

		$url = '';
		if ($option == 'birthday')
			$url = DOL_URL_ROOT.'/contact/perso.php?id='.$this->id;
		else
			$url = DOL_URL_ROOT.'/comm/action/card.php?id='.$this->id;
		if ($option !== 'nolink')
		{
			// Add param to save lastsearch_values or not
			$add_save_lastsearch_values = ($save_lastsearch_value == 1 ? 1 : 0);
			if ($save_lastsearch_value == -1 && preg_match('/list\.php/', $_SERVER["PHP_SELF"])) $add_save_lastsearch_values = 1;
			if ($add_save_lastsearch_values) $url .= '&save_lastsearch_values=1';
		}

		$linkstart = '<a href="'.$url.'"';
		$linkstart .= $linkclose.'>';
		$linkend = '</a>';

		if ($option == 'nolink') {
			$linkstart = '';
			$linkend = '';
		}

        if ($withpicto == 2)
        {
            $libelle = $label;
            if (!empty($conf->global->AGENDA_USE_EVENT_TYPE)) $libelle = $labeltype;
            $libelleshort = '';
        }
        else
        {
            $libelle = (empty($this->libelle) ? $label : $this->libelle.(($label && $label != $this->libelle) ? ' '.$label : ''));
            if (!empty($conf->global->AGENDA_USE_EVENT_TYPE) && empty($libelle)) $libelle = $labeltype;
            if ($maxlength < 0) $libelleshort = $this->ref;
            else $libelleshort = dol_trunc($libelle, $maxlength);
        }

        if ($withpicto)
        {
            if (!empty($conf->global->AGENDA_USE_EVENT_TYPE))	// Add code into ()
            {
            	if ($labeltype)
            	{
                	$libelle .= (preg_match('/'.preg_quote($labeltype, '/').'/', $libelle) ? '' : ' ('.$langs->transnoentities("Action".$this->type_code).')');
            	}
            }
        }

        $result .= $linkstart;
        if ($withpicto)	$result .= img_object(($notooltip ? '' : $langs->trans("ShowAction").': '.$libelle), ($overwritepicto ? $overwritepicto : 'action'), ($notooltip ? 'class="'.(($withpicto != 2) ? 'paddingright ' : '').'valigntextbottom"' : 'class="'.(($withpicto != 2) ? 'paddingright ' : '').'classfortooltip valigntextbottom"'), 0, 0, $notooltip ? 0 : 1);
        $result .= $libelleshort;
        $result .= $linkend;

        global $action;
        $hookmanager->initHooks(array('actiondao'));
        $parameters = array('id'=>$this->id, 'getnomurl'=>$result);
        $reshook = $hookmanager->executeHooks('getNomUrl', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
        if ($reshook > 0) $result = $hookmanager->resPrint;
        else $result .= $hookmanager->resPrint;

        return $result;
    }


    // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
    /**
     *		Export events from database into a cal file.
     *
     *		@param	string		$format			'vcal', 'ical/ics', 'rss'
     *		@param	string		$type			'event' or 'journal'
     *		@param	int			$cachedelay		Do not rebuild file if date older than cachedelay seconds
     *		@param	string		$filename		Force filename
     *		@param	array		$filters		Array of filters. Exemple array('notolderthan'=>99, 'year'=>..., 'idfrom'=>..., 'notactiontype'=>'systemauto', 'project'=>123, ...)
     *		@return int     					<0 if error, nb of events in new file if ok
     */
    public function build_exportfile($format, $type, $cachedelay, $filename, $filters)
    {
    	global $hookmanager;

        // phpcs:enable
        global $conf, $langs, $dolibarr_main_url_root, $mysoc;

        require_once DOL_DOCUMENT_ROOT."/core/lib/xcal.lib.php";
        require_once DOL_DOCUMENT_ROOT."/core/lib/date.lib.php";
        require_once DOL_DOCUMENT_ROOT."/core/lib/files.lib.php";

        dol_syslog(get_class($this)."::build_exportfile Build export file format=".$format.", type=".$type.", cachedelay=".$cachedelay.", filename=".$filename.", filters size=".count($filters), LOG_DEBUG);

        // Check parameters
        if (empty($format)) return -1;

        // Clean parameters
        if (!$filename)
        {
            $extension = 'vcs';
            if ($format == 'ical') $extension = 'ics';
            $filename = $format.'.'.$extension;
        }

        // Create dir and define output file (definitive and temporary)
        $result = dol_mkdir($conf->agenda->dir_temp);
        $outputfile = $conf->agenda->dir_temp.'/'.$filename;

        $result = 0;

        $buildfile = true;
        $login = ''; $logina = ''; $logind = ''; $logint = '';

        $now = dol_now();

        if ($cachedelay)
        {
            $nowgmt = dol_now();
            include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
            if (dol_filemtime($outputfile) > ($nowgmt - $cachedelay))
            {
                dol_syslog(get_class($this)."::build_exportfile file ".$outputfile." is not older than now - cachedelay (".$nowgmt." - ".$cachedelay."). Build is canceled");
                $buildfile = false;
            }
        }

        if ($buildfile)
        {
            // Build event array
            $eventarray=array();

            $sql = "SELECT a.id,";
            $sql.= " a.datep,";		// Start
            $sql.= " a.datep2,";	// End
            $sql.= " a.durationp,";			// deprecated
            $sql.= " a.datec, a.tms as datem,";
            $sql.= " a.label, a.code, a.note, a.fk_action as type_id,";
            $sql.= " a.fk_soc,";
            $sql.= " a.fk_user_author, a.fk_user_mod,";
            $sql.= " a.fk_user_action,";
            $sql.= " a.fk_contact, a.percent as percentage,";
            $sql.= " a.fk_element, a.elementtype,";
            $sql.= " a.priority, a.fulldayevent, a.location, a.punctual, a.transparency,";
            $sql.= " u.firstname, u.lastname, u.email,";
            $sql.= " s.nom as socname,";
            $sql.= " c.id as type_id, c.code as type_code, c.libelle as type_label";
            $sql.= " FROM (".MAIN_DB_PREFIX."c_actioncomm as c, ".MAIN_DB_PREFIX."actioncomm as a)";
            $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."user as u on u.rowid = a.fk_user_author";	// Link to get author of event for export
            $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s on s.rowid = a.fk_soc";

			$parameters=array('filters' => $filters);
			$reshook=$hookmanager->executeHooks('printFieldListFrom', $parameters);    // Note that $action and $object may have been modified by hook
			$sql.=$hookmanager->resPrint;

			// We must filter on assignement table
			if ($filters['logint']) $sql.=", ".MAIN_DB_PREFIX."actioncomm_resources as ar";
			$sql.= " WHERE a.fk_action=c.id";
            $sql.= " AND a.entity IN (".getEntity('agenda').")";
            foreach ($filters as $key => $value)
            {
                if ($key == 'notolderthan' && $value != '') $sql.=" AND a.datep >= '".$this->db->idate($now-($value*24*60*60))."'";
                if ($key == 'year')         $sql.=" AND a.datep BETWEEN '".$this->db->idate(dol_get_first_day($value, 1))."' AND '".$this->db->idate(dol_get_last_day($value, 12))."'";
                if ($key == 'id')           $sql.=" AND a.id=".(is_numeric($value)?$value:0);
                if ($key == 'idfrom')       $sql.=" AND a.id >= ".(is_numeric($value)?$value:0);
                if ($key == 'idto')         $sql.=" AND a.id <= ".(is_numeric($value)?$value:0);
                if ($key == 'project')      $sql.=" AND a.fk_project=".(is_numeric($value)?$value:0);
                if ($key == 'actiontype')    $sql.=" AND c.type = '".$this->db->escape($value)."'";
                if ($key == 'notactiontype') $sql.=" AND c.type <> '".$this->db->escape($value)."'";
                // We must filter on assignement table
				if ($key == 'logint')       $sql.= " AND ar.fk_actioncomm = a.id AND ar.element_type='user'";
                if ($key == 'logina')
                {
                    $logina=$value;
                    $condition='=';
                    if (preg_match('/^!/', $logina))
                    {
                        $logina=preg_replace('/^!/', '', $logina);
                        $condition='<>';
                    }
                    $userforfilter=new User($this->db);
                    $result=$userforfilter->fetch('', $logina);
                    if ($result > 0) $sql.= " AND a.fk_user_author ".$condition." ".$userforfilter->id;
                    elseif ($result < 0 || $condition == '=') $sql.= " AND a.fk_user_author = 0";
                }
                if ($key == 'logint')
                {
                    $logint=$value;
                    $condition='=';
                    if (preg_match('/^!/', $logint))
                    {
                        $logint=preg_replace('/^!/', '', $logint);
                        $condition='<>';
                    }
                    $userforfilter=new User($this->db);
                    $result=$userforfilter->fetch('', $logint);
                    if ($result > 0) $sql.= " AND ar.fk_element = ".$userforfilter->id;
                    elseif ($result < 0 || $condition == '=') $sql.= " AND ar.fk_element = 0";
                }
            }

            $sql.= " AND a.datep IS NOT NULL";		// To exclude corrupted events and avoid errors in lightning/sunbird import

			$parameters=array('filters' => $filters);
			$reshook=$hookmanager->executeHooks('printFieldListWhere', $parameters);    // Note that $action and $object may have been modified by hook
			$sql.=$hookmanager->resPrint;

            $sql.= " ORDER by datep";
            //print $sql;exit;

            dol_syslog(get_class($this)."::build_exportfile select events", LOG_DEBUG);
            $resql=$this->db->query($sql);
            if ($resql)
            {
                // Note: Output of sql request is encoded in $conf->file->character_set_client
                // This assignment in condition is not a bug. It allows walking the results.
				$diff = 0;
                while ($obj=$this->db->fetch_object($resql))
                {
                    $qualified=true;

                    // 'eid','startdate','duration','enddate','title','summary','category','email','url','desc','author'
                    $event=array();
                    $event['uid']='dolibarragenda-'.$this->db->database_name.'-'.$obj->id."@".$_SERVER["SERVER_NAME"];
                    $event['type']=$type;
                    $datestart=$this->db->jdate($obj->datep)-(empty($conf->global->AGENDA_EXPORT_FIX_TZ)?0:($conf->global->AGENDA_EXPORT_FIX_TZ*3600));

                    // fix for -> Warning: A non-numeric value encountered
                    if(is_numeric($this->db->jdate($obj->datep2)))
                    {
                        $dateend = $this->db->jdate($obj->datep2)
                                 - (empty($conf->global->AGENDA_EXPORT_FIX_TZ) ? 0 : ($conf->global->AGENDA_EXPORT_FIX_TZ * 3600));
                    }
                    else
                    {
                        // use start date as fall-back to avoid import erros on empty end date
                        $dateend = $datestart;
                    }

                    $duration=($datestart && $dateend)?($dateend - $datestart):0;
                    $event['summary']=$obj->label.($obj->socname?" (".$obj->socname.")":"");
                    $event['desc']=$obj->note;
                    $event['startdate']=$datestart;
                    $event['enddate']=$dateend;		// Not required with type 'journal'
                    $event['duration']=$duration;	// Not required with type 'journal'
                    $event['author']=dolGetFirstLastname($obj->firstname, $obj->lastname);
                    $event['priority']=$obj->priority;
                    $event['fulldayevent']=$obj->fulldayevent;
                    $event['location']=$obj->location;
                    $event['transparency']=(($obj->transparency > 0)?'OPAQUE':'TRANSPARENT');		// OPAQUE (busy) or TRANSPARENT (not busy)
                    $event['punctual']=$obj->punctual;
                    $event['category']=$obj->type_label;
                    $event['email']=$obj->email;
					// Define $urlwithroot
					$urlwithouturlroot=preg_replace('/'.preg_quote(DOL_URL_ROOT, '/').'$/i', '', trim($dolibarr_main_url_root));
					$urlwithroot=$urlwithouturlroot.DOL_URL_ROOT;			// This is to use external domain name found into config file
					//$urlwithroot=DOL_MAIN_URL_ROOT;						// This is to use same domain name than current
                    $url=$urlwithroot.'/comm/action/card.php?id='.$obj->id;
                    $event['url']=$url;
                    $event['created']=$this->db->jdate($obj->datec)-(empty($conf->global->AGENDA_EXPORT_FIX_TZ)?0:($conf->global->AGENDA_EXPORT_FIX_TZ*3600));
                    $event['modified']=$this->db->jdate($obj->datem)-(empty($conf->global->AGENDA_EXPORT_FIX_TZ)?0:($conf->global->AGENDA_EXPORT_FIX_TZ*3600));

                    // TODO: find a way to call "$this->fetch_userassigned();" without override "$this" properties
                    $this->id = $obj->id;
                    $this->fetch_userassigned(false);

                    $assignedUserArray = array();

                    foreach($this->userassigned as $key => $value)
                    {
                        $assignedUser = new User($this->db);
                        $assignedUser->fetch($value['id']);

                        $assignedUserArray[$key]=$assignedUser;
                    }

                    $event['assignedUsers']=$assignedUserArray;

                    if ($qualified && $datestart)
                    {
                        $eventarray[]=$event;
                    }
                    $diff++;
                }
            }
            else
            {
                $this->error=$this->db->lasterror();
                return -1;
            }

            $langs->load("agenda");

            // Define title and desc
            $more='';
            if ($login)  $more=$langs->transnoentities("User").' '.$login;
            if ($logina) $more=$langs->transnoentities("ActionsAskedBy").' '.$logina;
            if ($logint) $more=$langs->transnoentities("ActionsToDoBy").' '.$logint;
            if ($logind) $more=$langs->transnoentities("ActionsDoneBy").' '.$logind;
            if ($more)
            {
                $title='Dolibarr actions '.$mysoc->name.' - '.$more;
                $desc=$more;
                $desc.=' ('.$mysoc->name.' - built by Dolibarr)';
            }
            else
            {
                $title='Dolibarr actions '.$mysoc->name;
                $desc=$langs->transnoentities('ListOfActions');
                $desc.=' ('.$mysoc->name.' - built by Dolibarr)';
            }

            // Create temp file
            $outputfiletmp=tempnam($conf->agenda->dir_temp, 'tmp');  // Temporary file (allow call of function by different threads
            @chmod($outputfiletmp, octdec($conf->global->MAIN_UMASK));

            // Write file
            if ($format == 'vcal') $result=build_calfile($format, $title, $desc, $eventarray, $outputfiletmp);
            elseif ($format == 'ical') $result=build_calfile($format, $title, $desc, $eventarray, $outputfiletmp);
            elseif ($format == 'rss')  $result=build_rssfile($format, $title, $desc, $eventarray, $outputfiletmp);

            if ($result >= 0)
            {
                if (dol_move($outputfiletmp, $outputfile, 0, 1)) $result=1;
                else
                {
                	$this->error='Failed to rename '.$outputfiletmp.' into '.$outputfile;
                    dol_syslog(get_class($this)."::build_exportfile ".$this->error, LOG_ERR);
                    dol_delete_file($outputfiletmp, 0, 1);
                    $result=-1;
                }
            }
            else
            {
                dol_syslog(get_class($this)."::build_exportfile build_xxxfile function fails to for format=".$format." outputfiletmp=".$outputfile, LOG_ERR);
                dol_delete_file($outputfiletmp, 0, 1);
                $langs->load("errors");
                $this->error = $langs->trans("ErrorFailToCreateFile", $outputfile);
            }
        }

        return $result;
    }

    /**
     *  Initialise an instance with random values.
     *  Used to build previews or test instances.
     *  id must be 0 if object instance is a specimen.
     *
     *  @return	int >0 if ok
     */
    public function initAsSpecimen()
    {
        global $user;

        $now = dol_now();

        // Initialise parametres
        $this->id = 0;
        $this->specimen = 1;

        $this->type_code = 'AC_OTH';
        $this->code = 'AC_SPECIMEN_CODE';
        $this->label = 'Label of event Specimen';
        $this->datec = $now;
        $this->datem = $now;
        $this->datep = $now;
        $this->datef = $now;
        $this->author = $user;
        $this->usermod = $user;
        $this->usertodo = $user;
        $this->fulldayevent = 0;
        $this->punctual = 0;
        $this->percentage = 0;
        $this->location = 'Location';
        $this->transparency = 1; // 1 means opaque
        $this->priority = 1;
        $this->note = "This is a 'public' note";
		$this->note_public = "This is a 'public' note.";
		$this->note_private = "This is a 'private' note.";

        $this->userownerid = $user->id;
        $this->userassigned[$user->id] = array('id'=>$user->id, 'transparency'=> 1);
        return 1;
    }

	/**
	 *  Function used to replace a thirdparty id with another one.
	 *
	 *  @param DoliDB $db Database handler
	 *  @param int $origin_id Old thirdparty id
	 *  @param int $dest_id New thirdparty id
	 *  @return bool
	 */
	public static function replaceThirdparty(DoliDB $db, $origin_id, $dest_id)
	{
		$tables = array(
			'actioncomm'
		);

		return CommonObject::commonReplaceThirdparty($db, $origin_id, $dest_id, $tables);
	}

    /**
     *  Is the action delayed?
     *
     *  @return bool
     */
    public function hasDelay()
    {
        global $conf;

        $now = dol_now();

        return $this->datep && ($this->datep < ($now - $conf->agenda->warning_delay));
    }


    /**
     *  Send reminders by emails
     *  CAN BE A CRON TASK
     *
     *  @return int         0 if OK, <>0 if KO (this function is used also by cron so only 0 is OK)
     */
    public function sendEmailsReminder()
    {
    	global $conf, $langs;

    	$error = 0;
    	$this->output = '';
		$this->error = '';

    	if (empty($conf->agenda->enabled))	// Should not happen. If module disabled, cron job should not be visible.
		{
			$langs->load("agenda");
			$this->output = $langs->trans('ModuleNotEnabled', $langs->transnoentitiesnoconv("Agenda"));
			return 0;
		}
		if (empty($conf->global->AGENDA_REMINDER_EMAIL))
    	{
    		$langs->load("agenda");
    		$this->output = $langs->trans('EventRemindersByEmailNotEnabled', $langs->transnoentitiesnoconv("Agenda"));
    		return 0;
    	}

    	$now = dol_now();

    	dol_syslog(__METHOD__, LOG_DEBUG);

    	$this->db->begin();

        // TODO Scan events of type 'email' into table llx_actioncomm_reminder with status todo, send email, then set status to done

        // Delete also very old past events (we do not keep more than 1 month record in past)
        $sql = "DELETE FROM ".MAIN_DB_PREFIX."actioncomm_reminder WHERE dateremind < '".$this->db->jdate($now - (3600 * 24 * 32))."'";
        $this->db->query($sql);

        $this->db->commit();

        return $error;
    }
}