EXCELIA_DBARR/custom/booking/booking_agenda.php

<?php
/* Copyright (C) 2001-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2003      Eric Seigne          <erics@rycks.com>
 * Copyright (C) 2004-2018 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2012 Regis Houssin        <regis.houssin@inodbox.com>
 * Copyright (C) 2011      Juanjo Menent        <jmenent@2byte.es>
 * Copyright (C) 2014      Cedric GROSS         <c.gross@kreiz-it.fr>
 * Copyright (C) 2015      Marcos García        <marcosgdf@gmail.com>
 * Copyright (C) 2017      Open-DSI             <support@open-dsi.fr>
 * Copyright (C) 2018-2021 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/custom/booking/booking_agenda.php
 *  \ingroup    agenda
 *  \brief      Home page of calendar events
 */

// Load Dolibarr environment
require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT . '/societe/class/societe.class.php';
require_once DOL_DOCUMENT_ROOT . '/contact/class/contact.class.php';
require_once DOL_DOCUMENT_ROOT . '/comm/action/class/actioncomm.class.php';
require_once DOL_DOCUMENT_ROOT . '/core/lib/date.lib.php';
require_once DOL_DOCUMENT_ROOT . '/core/lib/agenda.lib.php';
require_once DOL_DOCUMENT_ROOT . '/custom/booking/class/booking_agenda_helper.class.php';
if (isModEnabled('project')) {
    require_once DOL_DOCUMENT_ROOT . '/core/class/html.formprojet.class.php';
}

if (!isset($conf->global->AGENDA_MAX_EVENTS_DAY_VIEW)) {
    $conf->global->AGENDA_MAX_EVENTS_DAY_VIEW = 3;
}

if (empty($conf->global->AGENDA_EXT_NB)) {
    $conf->global->AGENDA_EXT_NB = 5;
}
$MAXAGENDA = $conf->global->AGENDA_EXT_NB;

$disabledefaultvalues = GETPOST('disabledefaultvalues', 'int');

$check_holiday = GETPOST('check_holiday', 'int');
$filter = GETPOST("search_filter", 'alpha', 3) ? GETPOST("search_filter", 'alpha', 3) : GETPOST("filter", 'alpha', 3);
$filtert = GETPOST("search_filtert", "int", 3) ? GETPOST("search_filtert", "int", 3) : GETPOST("filtert", "int", 3);
$usergroup = GETPOST("search_usergroup", "int", 3) ? GETPOST("search_usergroup", "int", 3) : GETPOST("usergroup", "int", 3);
$showbirthday = empty($conf->use_javascript_ajax) ? GETPOST("showbirthday", "int") : 1;

// If not choice done on calendar owner (like on left menu link "Agenda"), we filter on user.
if (empty($filtert) && empty($conf->global->AGENDA_ALL_CALENDARS)) {
    $filtert = $user->id;
}

$newparam = '';

$sortfield = GETPOST('sortfield', 'aZ09comma');
$sortorder = GETPOST('sortorder', 'aZ09comma');
$page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
if (empty($page) || $page == -1) {
    $page = 0;
}     // If $page is not defined, or '' or -1
$limit = GETPOST('limit', 'int') ? GETPOST('limit', 'int') : $conf->liste_limit;
$offset = $limit * $page;
if (!$sortorder) {
    $sortorder = "ASC";
}
if (!$sortfield) {
    $sortfield = "a.datec";
}

// Security check
$socid = GETPOST("search_socid", "int") ? GETPOST("search_socid", "int") : GETPOST("socid", "int");
if ($user->socid) {
    $socid = $user->socid;
}
if ($socid < 0) {
    $socid = '';
}

$canedit = 1;
if (empty($user->rights->agenda->myactions->read)) {
    accessforbidden();
}
if (empty($user->rights->agenda->allactions->read)) {
    $canedit = 0;
}
if (empty($user->rights->agenda->allactions->read) || $filter == 'mine') {  // If no permission to see all, we show only affected to me
    $filtert = $user->id;
}

$action = GETPOST('action', 'aZ09');

$mode = GETPOST('mode', 'aZ09');
if (empty($mode) && preg_match('/show_/', $action)) {
    $mode = $action;    // For backward compatibility
}
$resourceid = GETPOST("search_resourceid", "int");
$year = GETPOST("year", "int") ? GETPOST("year", "int") : date("Y");
$month = GETPOST("month", "int") ? GETPOST("month", "int") : date("m");
$week = GETPOST("week", "int") ? GETPOST("week", "int") : date("W");
$day = GETPOST("day", "int") ? GETPOST("day", "int") : date("d");
$pid = GETPOST("search_projectid", "int", 3) ? GETPOST("search_projectid", "int", 3) : GETPOST("projectid", "int", 3);
$status = GETPOSTISSET("search_status") ? GETPOST("search_status", 'aZ09') : GETPOST("status", 'aZ09'); // status may be 0, 50, 100, 'todo', 'na' or -1
$type = GETPOSTISSET("search_type") ? GETPOST("search_type", 'aZ09') : GETPOST("type", 'aZ09');
$maxprint = GETPOSTISSET("maxprint") ? GETPOST("maxprint", 'int') : $conf->global->AGENDA_MAX_EVENTS_DAY_VIEW;
$optioncss = GETPOST('optioncss', 'aZ'); // Option for the css output (always '' except when 'print')
$idmenu = GETPOST('idmenu', 'int');
$dateselect = dol_mktime(0, 0, 0, GETPOST('dateselectmonth', 'int'), GETPOST('dateselectday', 'int'), GETPOST('dateselectyear', 'int'));
if ($dateselect > 0) {
    $day = GETPOST('dateselectday', 'int');
    $month = GETPOST('dateselectmonth', 'int');
    $year = GETPOST('dateselectyear', 'int');
}

// Set actioncode (this code must be same for setting actioncode into peruser, listacton and index)
if (GETPOST('search_actioncode', 'array:aZ09')) {
    $actioncode = GETPOST('search_actioncode', 'array:aZ09', 3);
    if (!count($actioncode)) {
        $actioncode = '0';
    }
} else {
    $actioncode = GETPOST("search_actioncode", "alpha", 3) ? GETPOST("search_actioncode", "alpha", 3) : (GETPOST("search_actioncode") == '0' ? '0' : ((empty($conf->global->AGENDA_DEFAULT_FILTER_TYPE) || $disabledefaultvalues) ? '' : $conf->global->AGENDA_DEFAULT_FILTER_TYPE));
}

if ($status == '' && !GETPOSTISSET('search_status')) {
    $status = ((empty($conf->global->AGENDA_DEFAULT_FILTER_STATUS) || $disabledefaultvalues) ? '' : $conf->global->AGENDA_DEFAULT_FILTER_STATUS);
}

$defaultview = (empty($conf->global->AGENDA_DEFAULT_VIEW) ? 'show_month' : $conf->global->AGENDA_DEFAULT_VIEW);
$defaultview = (empty($user->conf->AGENDA_DEFAULT_VIEW) ? $defaultview : $user->conf->AGENDA_DEFAULT_VIEW);
if (empty($mode) && !GETPOSTISSET('mode')) {
    //$mode = $defaultview;
    $mode = 'show_day';
}
if ($mode == 'default') {    // When action is default, we want a calendar view and not the list
    $mode = (($defaultview != 'show_list') ? $defaultview : 'show_month');
}
if (GETPOST('viewday', 'int') || GETPOST('mode', 'alpha') == 'show_day') {
    $mode = 'show_day';
    $day = ($day ? $day : date("d"));
} // View by day

$object = new ActionComm($db);
$bookingAgendaHelper = new BookingAgendaHelper($db);

// Load translation files required by the page
$langs->loadLangs(array('agenda', 'other', 'commercial'));

// Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
$hookmanager->initHooks(array('agenda'));

$result = restrictedArea($user, 'agenda', 0, 'actioncomm&societe', 'myactions|allactions', 'fk_soc', 'id');
if ($user->socid && $socid) {
    $result = restrictedArea($user, 'societe', $socid);
}


/*
 * Actions
 */

if (GETPOST("viewlist", 'alpha') || $mode == 'show_list') {
    $param = '';
    if (is_array($_POST)) {
        foreach ($_POST as $key => $val) {
            if ($key == 'token') {
                continue;
            }
            $param .= '&' . $key . '=' . urlencode($val);
        }
    }
    if (!preg_match('/action=/', $param)) {
        $param .= ($param ? '&' : '') . 'mode=show_list';
    }
    //print $param;
    header("Location: " . DOL_URL_ROOT . '/custom/booking/booking_list.php?' . $param);
    exit;
}

if (GETPOST("viewperuser", 'alpha') || $mode == 'show_peruser') {
    $param = '';
    if (is_array($_POST)) {
        foreach ($_POST as $key => $val) {
            if ($key == 'token') {
                continue;
            }
            $param .= '&' . $key . '=' . urlencode($val);
        }
    }
    //print $param;
    header("Location: " . DOL_URL_ROOT . '/comm/action/peruser.php?' . $param);
    exit;
}

/*
 if ($action == 'delete_action' && $user->rights->agenda->delete) {
 $event = new ActionComm($db);
 $event->fetch($actionid);
 $event->fetch_optionals();
 $event->fetch_userassigned();
 $event->oldcopy = dol_clone($event);

 $result = $event->delete();
 }
 */


/*
 * View
 */

$parameters = array(
    'socid' => $socid,
    'status' => $status,
    'year' => $year,
    'month' => $month,
    'day' => $day,
    'type' => $type,
    'maxprint' => $maxprint,
    'filter' => $filter,
    'filtert' => $filtert,
    'showbirthday' => $showbirthday,
    'canedit' => $canedit,
    'optioncss' => $optioncss,
    'actioncode' => $actioncode,
    'pid' => $pid,
    'resourceid' => $resourceid,
    'usergroup' => $usergroup,
);
$reshook = $hookmanager->executeHooks('beforeAgenda', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
if ($reshook < 0) {
    setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
}

$help_url = 'EN:Module_Agenda_En|FR:Module_Agenda|ES:M&oacute;dulo_Agenda';
llxHeader('', $langs->trans("Agenda"), $help_url);

$form = new Form($db);
$companystatic = new Societe($db);
$contactstatic = new Contact($db);
$userstatic = new User($db);

$now = dol_now();
$nowarray = dol_getdate($now);
$nowyear = $nowarray['year'];
$nowmonth = $nowarray['mon'];
$nowday = $nowarray['mday'];

$listofextcals = array();

// Define list of external calendars (global admin setup)
if (empty($conf->global->AGENDA_DISABLE_EXT)) {
    $i = 0;
    while ($i < $MAXAGENDA) {
        $i++;
        $source = 'AGENDA_EXT_SRC' . $i;
        $name = 'AGENDA_EXT_NAME' . $i;
        $offsettz = 'AGENDA_EXT_OFFSETTZ' . $i;
        $color = 'AGENDA_EXT_COLOR' . $i;
        $default = 'AGENDA_EXT_ACTIVEBYDEFAULT' . $i;
        $buggedfile = 'AGENDA_EXT_BUGGEDFILE' . $i;
        if (getDolGlobalString($source) && getDolGlobalString($name)) {
            // Note: $conf->global->buggedfile can be empty or 'uselocalandtznodaylight' or 'uselocalandtzdaylight'
            $listofextcals[] = array(
                'src' => getDolGlobalString($source),
                'name' => dol_string_nohtmltag(getDolGlobalString($name)),
                'offsettz' => (int) getDolGlobalInt($offsettz, 0),
                'color' => dol_string_nohtmltag(getDolGlobalString($color)),
                'default' => dol_string_nohtmltag(getDolGlobalString($default)),
                'buggedfile' => dol_string_nohtmltag(getDolGlobalString('buggedfile', ''))
            );
        }
    }
}
// Define list of external calendars (user setup)
if (empty($user->conf->AGENDA_DISABLE_EXT)) {
    $i = 0;
    while ($i < $MAXAGENDA) {
        $i++;
        $source = 'AGENDA_EXT_SRC_' . $user->id . '_' . $i;
        $name = 'AGENDA_EXT_NAME_' . $user->id . '_' . $i;
        $offsettz = 'AGENDA_EXT_OFFSETTZ_' . $user->id . '_' . $i;
        $color = 'AGENDA_EXT_COLOR_' . $user->id . '_' . $i;
        $enabled = 'AGENDA_EXT_ENABLED_' . $user->id . '_' . $i;
        $default = 'AGENDA_EXT_ACTIVEBYDEFAULT_' . $user->id . '_' . $i;
        $buggedfile = 'AGENDA_EXT_BUGGEDFILE_' . $user->id . '_' . $i;
        if (getDolUserString($source) && getDolUserString($name)) {
            // Note: $conf->global->buggedfile can be empty or 'uselocalandtznodaylight' or 'uselocalandtzdaylight'
            $listofextcals[] = array(
                'src' => getDolUserString($source),
                'name' => dol_string_nohtmltag(getDolUserString($name)),
                'offsettz' => (int) (empty($user->conf->$offsettz) ? 0 : $user->conf->$offsettz),
                'color' => dol_string_nohtmltag(getDolUserString($color)),
                'default' => dol_string_nohtmltag(getDolUserString($default)),
                'buggedfile' => dol_string_nohtmltag(isset($user->conf->buggedfile) ? $user->conf->buggedfile : '')
            );
        }
    }
}

if (empty($mode) || $mode == 'show_month') {
    $prev = dol_get_prev_month($month, $year);
    $prev_year = $prev['year'];
    $prev_month = $prev['month'];
    $next = dol_get_next_month($month, $year);
    $next_year = $next['year'];
    $next_month = $next['month'];

    $max_day_in_prev_month = date("t", dol_mktime(0, 0, 0, $prev_month, 1, $prev_year, 'gmt')); // Nb of days in previous month
    $max_day_in_month = date("t", dol_mktime(0, 0, 0, $month, 1, $year)); // Nb of days in next month
    // tmpday is a negative or null cursor to know how many days before the 1st to show on month view (if tmpday=0, 1st is monday)
    $tmpday = -date("w", dol_mktime(12, 0, 0, $month, 1, $year, 'gmt')) + 2; // date('w') is 0 fo sunday
    $tmpday += ((isset($conf->global->MAIN_START_WEEK) ? $conf->global->MAIN_START_WEEK : 1) - 1);
    if ($tmpday >= 1) {
        $tmpday -= 7; // If tmpday is 0 we start with sunday, if -6, we start with monday of previous week.
    }
    // Define firstdaytoshow and lastdaytoshow (warning: lastdaytoshow is last second to show + 1)
    $firstdaytoshow = dol_mktime(0, 0, 0, $prev_month, $max_day_in_prev_month + $tmpday, $prev_year, 'tzuserrel');
    $next_day = 7 - ($max_day_in_month + 1 - $tmpday) % 7;
    if ($next_day < 6) {
        $next_day += 7;
    }
    $lastdaytoshow = dol_mktime(0, 0, 0, $next_month, $next_day, $next_year, 'tzuserrel');
}
if ($mode == 'show_week') {
    $prev = dol_get_first_day_week($day, $month, $year);
    $prev_year = $prev['prev_year'];
    $prev_month = $prev['prev_month'];
    $prev_day = $prev['prev_day'];
    $first_day = $prev['first_day'];
    $first_month = $prev['first_month'];
    $first_year = $prev['first_year'];

    $week = $prev['week'];

    $day = (int) $day;
    $next = dol_get_next_week($first_day, $week, $first_month, $first_year);
    $next_year = $next['year'];
    $next_month = $next['month'];
    $next_day = $next['day'];

    // Define firstdaytoshow and lastdaytoshow (warning: lastdaytoshow is last second to show + 1)
    $firstdaytoshow = dol_mktime(0, 0, 0, $first_month, $first_day, $first_year, 'tzuserrel');
    $lastdaytoshow = dol_time_plus_duree($firstdaytoshow, 7, 'd');

    $max_day_in_month = date("t", dol_mktime(0, 0, 0, $month, 1, $year, 'gmt'));

    $tmpday = $first_day;
}
if ($mode == 'show_day') {
    $prev = dol_get_prev_day($day, $month, $year);
    $prev_year = $prev['year'];
    $prev_month = $prev['month'];
    $prev_day = $prev['day'];
    $next = dol_get_next_day($day, $month, $year);
    $next_year = $next['year'];
    $next_month = $next['month'];
    $next_day = $next['day'];
    // Define firstdaytoshow and lastdaytoshow (warning: lastdaytoshow is last second to show + 1)
    $firstdaytoshow = dol_mktime(0, 0, 0, $prev_month, $prev_day, $prev_year, 'tzuserrel');
    $lastdaytoshow = dol_mktime(0, 0, 0, $next_month, $next_day, $next_year, 'tzuserrel');
}
//print 'xx'.$prev_year.'-'.$prev_month.'-'.$prev_day;
//print 'xx'.$next_year.'-'.$next_month.'-'.$next_day;
//print dol_print_date($firstdaytoshow,'dayhour').' '.dol_print_date($lastdaytoshow,'dayhour');

/*$title = $langs->trans("DoneAndToDoActions");
 if ($status == 'done') $title = $langs->trans("DoneActions");
 if ($status == 'todo') $title = $langs->trans("ToDoActions");
 */

$param = '';
if ($actioncode || GETPOSTISSET('search_actioncode')) {
    if (is_array($actioncode)) {
        foreach ($actioncode as $str_action) {
            $param .= "&search_actioncode[]=" . urlencode($str_action);
        }
    } else {
        $param .= "&search_actioncode=" . urlencode($actioncode);
    }
}
if ($resourceid > 0) {
    $param .= "&search_resourceid=" . urlencode($resourceid);
}
if ($status || GETPOSTISSET('status') || GETPOSTISSET('search_status')) {
    $param .= "&search_status=" . urlencode($status);
}
if ($filter) {
    $param .= "&search_filter=" . urlencode($filter);
}
if ($filtert) {
    $param .= "&search_filtert=" . urlencode($filtert);
}
if ($usergroup > 0) {
    $param .= "&search_usergroup=" . urlencode($usergroup);
}
if ($socid > 0) {
    $param .= "&search_socid=" . urlencode($socid);
}
if ($showbirthday) {
    $param .= "&search_showbirthday=1";
}
if ($pid) {
    $param .= "&search_projectid=" . urlencode($pid);
}
if ($type) {
    $param .= "&search_type=" . urlencode($type);
}
$param .= "&maxprint=" . urlencode($maxprint);
if ($mode == 'show_day' || $mode == 'show_week' || $mode == 'show_month') {
    $param .= '&mode=' . urlencode($mode);
}

// Show navigation bar
if ($mode == 'show_day') {
    $nav = "<a href=\"?year=" . $prev_year . "&month=" . $prev_month . "&day=" . $prev_day . $param . "\"><i class=\"fa fa-chevron-left\"></i></a> &nbsp;\n";
    $nav .= " <span id=\"month_name\">" . dol_print_date(dol_mktime(0, 0, 0, $month, $day, $year), "daytextshort");
    $nav .= " </span>\n";
    $nav .= " &nbsp; <a href=\"?year=" . $next_year . "&month=" . $next_month . "&day=" . $next_day . $param . "&idmenu=" . $idmenu . "&mainmenu=booking&leftmenu=\"><i class=\"fa fa-chevron-right\"></i></a>\n";
    if (empty($conf->dol_optimize_smallscreen)) {
        $nav .= " &nbsp; <a href=\"?year=" . $nowyear . "&amp;month=" . $nowmonth . "&amp;day=" . $nowday . $param . "\">" . $langs->trans("Today") . "</a> ";
    }
    $picto = 'calendarday';
}

$nav .= $form->selectDate($dateselect, 'dateselect', 0, 0, 1, '', 1, 0);
//$nav .= ' <input type="submit" class="button button-save" name="submitdateselect" value="'.$langs->trans("Refresh").'">';
$nav .= '<button type="submit" class="liste_titre button_search valignmiddle" name="button_search_x" value="x"><span class="fa fa-search"></span></button>';

// Must be after the nav definition
$paramnodate = $param;
$param .= '&year=' . $year . '&month=' . $month . ($day ? '&day=' . $day : '');
//print 'x'.$param;




/*$tabactive = '';
 if ($mode == 'show_month') $tabactive = 'cardmonth';
 if ($mode == 'show_week') $tabactive = 'cardweek';
 if ($mode == 'show_day')  $tabactive = 'cardday';
 if ($mode == 'show_list') $tabactive = 'cardlist';
 if ($mode == 'show_pertuser') $tabactive = 'cardperuser';
 if ($mode == 'show_pertype') $tabactive = 'cardpertype';
 */

$paramnoaction = preg_replace('/mode=[a-z_]+/', '', preg_replace('/action=[a-z_]+/', '', $param));
$paramnoactionodate = preg_replace('/mode=[a-z_]+/', '', preg_replace('/action=[a-z_]+/', '', $paramnodate));

$head = calendars_prepare_head($paramnoaction);

print '<form method="POST" id="searchFormList" class="listactionsfilter" action="' . $_SERVER["PHP_SELF"] . '">' . "\n";
if ($optioncss != '') {
    print '<input type="hidden" name="optioncss" value="' . $optioncss . '">';
}
print '<input type="hidden" name="token" value="' . newToken() . '">';
print '<input type="hidden" name="mode" value="' . $mode . '">';

//print dol_get_fiche_head($head, $tabactive, $langs->trans('Agenda'), 0, 'action');
//print_actions_filter($form, $canedit, $status, $year, $month, $day, $showbirthday, 0, $filtert, 0, $pid, $socid, $action, $listofextcals, $actioncode, $usergroup, '', $resourceid);
//print dol_get_fiche_end();

$viewmode = '';
/* $viewmode .= '<a class="btnTitle reposition" href="' . DOL_URL_ROOT . '/custom/booking/booking_list.php?mode=show_list&restore_lastsearch_values=1' . $paramnoactionodate . '">';
//$viewmode .= '<span class="fa paddingleft imgforviewmode valignmiddle btnTitle-icon">';
$viewmode .= img_picto($langs->trans("List"), 'object_calendarlist', 'class="imgforviewmode pictoactionview block"');
//$viewmode .= '</span>';
$viewmode .= '<span class="valignmiddle text-plus-circle btnTitle-label hideonsmartphone">' . $langs->trans("ViewList") . '</span></a>';
 */
/* $viewmode .= '<a class="btnTitle' . ($mode == 'show_month' ? ' btnTitleSelected' : '') . ' reposition" href="' . DOL_URL_ROOT . '/custom/booking/booking_agenda.php?mode=show_month&year=' . (isset($object->datep) ? dol_print_date($object->datep, '%Y') : $year) . '&month=' . (isset($object->datep) ? dol_print_date($object->datep, '%m') : $month) . '&day=' . (isset($object->datep) ? dol_print_date($object->datep, '%d') : $day) . $paramnoactionodate . '">';
//$viewmode .= '<span class="fa paddingleft imgforviewmode valignmiddle btnTitle-icon">';
$viewmode .= img_picto($langs->trans("ViewCal"), 'object_calendarmonth', 'class="pictoactionview block"');
//$viewmode .= '</span>';
$viewmode .= '<span class="valignmiddle text-plus-circle btnTitle-label hideonsmartphone">' . $langs->trans("ViewCal") . '</span></a>';
 */
/* $viewmode .= '<a class="btnTitle' . ($mode == 'show_week' ? ' btnTitleSelected' : '') . ' reposition" href="' . DOL_URL_ROOT . '/custom/booking/booking_agenda.php?mode=show_week&year=' . (isset($object->datep) ? dol_print_date($object->datep, '%Y') : $year) . '&month=' . (isset($object->datep) ? dol_print_date($object->datep, '%m') : $month) . '&day=' . (isset($object->datep) ? dol_print_date($object->datep, '%d') : $day) . $paramnoactionodate . '">';
//$viewmode .= '<span class="fa paddingleft imgforviewmode valignmiddle btnTitle-icon">';
$viewmode .= img_picto($langs->trans("ViewWeek"), 'object_calendarweek', 'class="pictoactionview block"');
//$viewmode .= '</span>';
$viewmode .= '<span class="valignmiddle text-plus-circle btnTitle-label hideonsmartphone">' . $langs->trans("ViewWeek") . '</span></a>';
 */
$viewmode .= '<a class="btnTitle' . ($mode == 'show_day' ? ' btnTitleSelected' : '') . ' reposition" href="' . DOL_URL_ROOT . '/custom/booking/booking_agenda.php?mode=show_day&year=' . (isset($object->datep) ? dol_print_date($object->datep, '%Y') : $year) . '&month=' . (isset($object->datep) ? dol_print_date($object->datep, '%m') : $month) . '&day=' . (isset($object->datep) ? dol_print_date($object->datep, '%d') : $day) . $paramnoactionodate . '">';
//$viewmode .= '<span class="fa paddingleft imgforviewmode valignmiddle btnTitle-icon">';
$viewmode .= img_picto($langs->trans("ViewDay"), 'object_calendarday', 'class="pictoactionview block"');
//$viewmode .= '</span>';
$viewmode .= '<span class="valignmiddle text-plus-circle btnTitle-label hideonsmartphone">' . $langs->trans("ViewDay") . '</span></a>';

/* $viewmode .= '<a class="btnTitle reposition" href="'.DOL_URL_ROOT.'/comm/action/peruser.php?mode=show_peruser&year='.(isset($object->datep) ? dol_print_date($object->datep, '%Y') : $year).'&month='.(isset($object->datep) ? dol_print_date($object->datep, '%m') : $month).'&day='.(isset($object->datep) ? dol_print_date($object->datep, '%d') : $day).$paramnoactionodate.'">';
//$viewmode .= '<span class="fa paddingleft imgforviewmode valignmiddle btnTitle-icon">';
$viewmode .= img_picto($langs->trans("ViewPerUser"), 'object_calendarperuser', 'class="pictoactionview block"');
//$viewmode .= '</span>';
$viewmode .= '<span class="valignmiddle text-plus-circle btnTitle-label hideonsmartphone">'.$langs->trans("ViewPerUser").'</span></a>';
 */
// Add more views from hooks
$parameters = array();
$object = null;
$reshook = $hookmanager->executeHooks('addCalendarView', $parameters, $object, $action);
if (empty($reshook)) {
    $viewmode .= $hookmanager->resPrint;
} elseif ($reshook > 1) {
    $viewmode = $hookmanager->resPrint;
}

$viewmode .= '<span class="marginrightonly"></span>';    // To add a space before the navigation tools


$newcardbutton = '';
$newparam = '';
if ($user->rights->agenda->myactions->create || $user->rights->agenda->allactions->create) {
    $tmpforcreatebutton = dol_getdate(dol_now(), true);

    $newparam .= '&month=' . ((int) $month) . '&year=' . ((int) $tmpforcreatebutton['year']) . '&mode=' . urlencode($mode);

    //$param='month='.$monthshown.'&year='.$year;
    $hourminsec = dol_print_date(dol_mktime(10, 0, 0, 1, 1, 1970, 'gmt'), '%H', 'gmt') . '0000';    // Set $hourminsec to '100000' to auto set hour to 10:00 at creation

    $newcardbutton .= dolGetButtonTitle($langs->trans("AddAction"), '', 'fa fa-plus-circle', DOL_URL_ROOT . '/custom/booking/booking_card.php?action=create&datep=' . sprintf("%04d%02d%02d", $tmpforcreatebutton['year'], $tmpforcreatebutton['mon'], $tmpforcreatebutton['mday']) . $hourminsec . '&backtopage=' . urlencode($_SERVER["PHP_SELF"] . ($newparam ? '?' . $newparam : '')));
}

// Define the legend/list of calendard to show
$s = '';
$link = '';

$showextcals = $listofextcals;

if (!empty($conf->use_javascript_ajax)) {    // If javascript on
    $s .= "\n" . '<!-- Div to calendars selectors -->' . "\n";
    $s .= '<script type="text/javascript">' . "\n";
    $s .= 'jQuery(document).ready(function () {' . "\n";
    $s .= 'jQuery(".check_birthday").click(function() { console.log("Toggle birthdays"); jQuery(".family_birthday").toggle(); });' . "\n";
    $s .= 'jQuery(".check_holiday").click(function() { console.log("Toggle holidays"); jQuery(".family_holiday").toggle(); });' . "\n";
    if ($mode == "show_week" || $mode == "show_month" || empty($mode)) {
        // Code to enable drag and drop
        $s .= 'jQuery( "div.sortable" ).sortable({connectWith: ".sortable", placeholder: "ui-state-highlight", items: "div.movable", receive: function( event, ui ) {' . "\n";
        // Code to submit form
        $s .= 'console.log("submit form to record new event");' . "\n";
        //$s.='console.log(event.target);';
        $s .= 'var newval = jQuery(event.target).closest("div.dayevent").attr("id");' . "\n";
        $s .= 'console.log("found parent div.dayevent with id = "+newval);' . "\n";
        $s .= 'var frm=jQuery("#searchFormList");' . "\n";
        $s .= 'var newurl = ui.item.find("a.cal_event").attr("href");' . "\n";
        $s .= 'console.log("Found url on href of a.cal_event"+newurl+", we submit form with actionmove=mupdate");' . "\n";
        $s .= 'frm.attr("action", newurl).children("#newdate").val(newval);frm.submit();}' . "\n";
        $s .= '});' . "\n";
    }
    $s .= '});' . "\n";
    $s .= '</script>' . "\n";

    // Local calendar
    $s .= '<div class="nowrap inline-block minheight30"><input type="checkbox" id="check_mytasks" name="check_mytasks" value="1" checked disabled> ' . $langs->trans("LocalAgenda") . ' &nbsp; </div>';

    // Holiday calendar
    //$s .= '<div class="nowrap inline-block minheight30"><input type="checkbox" id="check_holiday" name="check_holiday" value="1" class="check_holiday"'.($check_holiday ? ' checked' : '').'><label for="check_holiday"> <span class="check_holiday_text">'.$langs->trans("Holidays").'</span></label> &nbsp; </div>';

    // External calendars
    if (is_array($showextcals) && count($showextcals) > 0) {
        $s .= '<script type="text/javascript">' . "\n";
        $s .= 'jQuery(document).ready(function () {
				jQuery("div input[name^=\"check_ext\"]").each(function(index, elem) {
					var name = jQuery(elem).attr("name");
					if (jQuery(elem).is(":checked")) {
					    jQuery(".family_ext" + name.replace("check_ext", "")).show();
					} else {
					    jQuery(".family_ext" + name.replace("check_ext", "")).hide();
					}
				});

				jQuery("div input[name^=\"check_ext\"]").click(function() {
					var name = $(this).attr("name");
					jQuery(".family_ext" + name.replace("check_ext", "")).toggle();
				});
			});' . "\n";
        $s .= '</script>' . "\n";

        foreach ($showextcals as $val) {
            $htmlname = md5($val['name']);

            if (!empty($val['default']) || GETPOST('check_ext' . $htmlname, 'int')) {
                $default = "checked";
            } else {
                $default = '';
            }

            $s .= '<div class="nowrap inline-block minheight30"><input type="checkbox" id="check_ext' . $htmlname . '" name="check_ext' . $htmlname . '" value="1" ' . $default . '> <label for="check_ext' . $htmlname . '">' . dol_escape_htmltag($val['name']) . '</label> &nbsp; </div>';
        }
    }

    // Birthdays
    //$s .= '<div class="nowrap inline-block minheight30"><input type="checkbox" id="check_birthday" name="check_birthday" class="check_birthday"><label for="check_birthday"> <span class="check_birthday_text">'.$langs->trans("AgendaShowBirthdayEvents").'</span></label> &nbsp; </div>';

    // Calendars from hooks
    $parameters = array();
    $reshook = $hookmanager->executeHooks('addCalendarChoice', $parameters, $object, $action);
    if (empty($reshook)) {
        $s .= $hookmanager->resPrint;
    } elseif ($reshook > 1) {
        $s = $hookmanager->resPrint;
    }

    $s .= "\n" . '<!-- End div to calendars selectors -->' . "\n";
} else { // If javascript off
    $newparam = $param; // newparam is for birthday links
    $newparam = preg_replace('/showbirthday=[0-1]/i', 'showbirthday=' . (empty($showbirthday) ? 1 : 0), $newparam);
    if (!preg_match('/showbirthday=/i', $newparam)) {
        $newparam .= '&showbirthday=1';
    }
    $link = '<a href="' . $_SERVER['PHP_SELF'] . '?' . dol_escape_htmltag($newparam);
    $link .= '">';
    if (empty($showbirthday)) {
        $link .= $langs->trans("AgendaShowBirthdayEvents");
    } else {
        $link .= $langs->trans("AgendaHideBirthdayEvents");
    }
    $link .= '</a>';
}


// Load events from database into $eventarray
$eventarray = array();


// DEFAULT CALENDAR + AUTOEVENT CALENDAR + CONFERENCEBOOTH CALENDAR
$sql = 'SELECT ';
if ($usergroup > 0) {
    $sql .= " DISTINCT";
}
$sql .= ' a.id, a.label,';
$sql .= ' a.datep,';
$sql .= ' a.datep2,';
$sql .= ' a.percent,';
$sql .= ' a.fk_user_author,a.fk_user_action,';
$sql .= ' a.transparency, a.priority, a.fulldayevent, a.location,';
$sql .= ' a.fk_soc, a.fk_contact, a.fk_project,';
$sql .= ' a.fk_element, a.elementtype,';
$sql .= ' ca.code as type_code, ca.libelle as type_label, ca.color as type_color, ca.type as type_type, ca.picto as type_picto';
$sql .= ' FROM ' . MAIN_DB_PREFIX . 'c_actioncomm as ca, ' . MAIN_DB_PREFIX . "actioncomm as a";
if (empty($user->rights->societe->client->voir) && !$socid) {
    $sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "societe_commerciaux as sc ON a.fk_soc = sc.fk_soc";
}
// We must filter on resource table
if ($resourceid > 0) {
    $sql .= ", " . MAIN_DB_PREFIX . "element_resources as r";
}
// We must filter on assignement table
if ($filtert > 0 || $usergroup > 0) {
    $sql .= ", " . MAIN_DB_PREFIX . "actioncomm_resources as ar";
}
if ($usergroup > 0) {
    $sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "usergroup_user as ugu ON ugu.fk_user = ar.fk_element";
}
$sql .= ' WHERE a.fk_action = ca.id';
$sql .= ' AND a.entity IN (' . getEntity('agenda') . ')';
// Condition on actioncode
if (!empty($actioncode)) {
    if (empty($conf->global->AGENDA_USE_EVENT_TYPE)) {
        if ($actioncode == 'AC_NON_AUTO') {
            $sql .= " AND ca.type != 'systemauto'";
        } elseif ($actioncode == 'AC_ALL_AUTO') {
            $sql .= " AND ca.type = 'systemauto'";
        } else {
            if ($actioncode == 'AC_OTH') {
                $sql .= " AND ca.type != 'systemauto'";
            }
            if ($actioncode == 'AC_OTH_AUTO') {
                $sql .= " AND ca.type = 'systemauto'";
            }
        }
    } else {
        if ($actioncode == 'AC_NON_AUTO') {
            $sql .= " AND ca.type != 'systemauto'";
        } elseif ($actioncode == 'AC_ALL_AUTO') {
            $sql .= " AND ca.type = 'systemauto'";
        } else {
            if (is_array($actioncode)) {
                $sql .= " AND ca.code IN (" . $db->sanitize("'" . implode("','", $actioncode) . "'", 1) . ")";
            } else {
                $sql .= " AND ca.code IN (" . $db->sanitize("'" . implode("','", explode(',', $actioncode)) . "'", 1) . ")";
            }
        }
    }
}
if ($resourceid > 0) {
    $sql .= " AND r.element_type = 'action' AND r.element_id = a.id AND r.resource_id = " . ((int) $resourceid);
}
if ($pid) {
    $sql .= " AND a.fk_project=" . ((int) $pid);
}
if (empty($user->rights->societe->client->voir) && !$socid) {
    $sql .= " AND (a.fk_soc IS NULL OR sc.fk_user = " . ((int) $user->id) . ")";
}
if ($socid > 0) {
    $sql .= " AND a.fk_soc = " . ((int) $socid);
}
// We must filter on assignement table
if ($filtert > 0 || $usergroup > 0) {
    $sql .= " AND ar.fk_actioncomm = a.id AND ar.element_type='user'";
}
//var_dump($day.' '.$month.' '.$year);
if ($mode == 'show_day') {
    $sql .= " AND (";
    $sql .= " (a.datep BETWEEN '" . $db->idate(dol_mktime(0, 0, 0, $month, $day, $year, 'tzuserrel')) . "'";
    $sql .= " AND '" . $db->idate(dol_mktime(23, 59, 59, $month, $day, $year, 'tzuserrel')) . "')";
    $sql .= " OR ";
    $sql .= " (a.datep2 BETWEEN '" . $db->idate(dol_mktime(0, 0, 0, $month, $day, $year, 'tzuserrel')) . "'";
    $sql .= " AND '" . $db->idate(dol_mktime(23, 59, 59, $month, $day, $year, 'tzuserrel')) . "')";
    $sql .= " OR ";
    $sql .= " (a.datep < '" . $db->idate(dol_mktime(0, 0, 0, $month, $day, $year, 'tzuserrel')) . "'";
    $sql .= " AND a.datep2 > '" . $db->idate(dol_mktime(23, 59, 59, $month, $day, $year, 'tzuserrel')) . "')";
    $sql .= ')';
} else {
    // To limit array
    $sql .= " AND (";
    $sql .= " (a.datep BETWEEN '" . $db->idate(dol_mktime(0, 0, 0, $month, 1, $year) - (60 * 60 * 24 * 7)) . "'"; // Start 7 days before
    $sql .= " AND '" . $db->idate(dol_mktime(23, 59, 59, $month, 28, $year) + (60 * 60 * 24 * 10)) . "')"; // End 7 days after + 3 to go from 28 to 31
    $sql .= " OR ";
    $sql .= " (a.datep2 BETWEEN '" . $db->idate(dol_mktime(0, 0, 0, $month, 1, $year) - (60 * 60 * 24 * 7)) . "'";
    $sql .= " AND '" . $db->idate(dol_mktime(23, 59, 59, $month, 28, $year) + (60 * 60 * 24 * 10)) . "')";
    $sql .= " OR ";
    $sql .= " (a.datep < '" . $db->idate(dol_mktime(0, 0, 0, $month, 1, $year) - (60 * 60 * 24 * 7)) . "'";
    $sql .= " AND a.datep2 > '" . $db->idate(dol_mktime(23, 59, 59, $month, 28, $year) + (60 * 60 * 24 * 10)) . "')";
    $sql .= ')';
}
if ($type) {
    $sql .= " AND ca.id = " . ((int) $type);
}
$sql .= " AND a.code = 'AC_EVENT'";
if ($status == '0') {
    // To do (not started)
    $sql .= " AND a.percent = 0";
}
if ($status == 'na') {
    // Not applicable
    $sql .= " AND a.percent = -1";
}
if ($status == '50') {
    // Running already started
    $sql .= " AND (a.percent > 0 AND a.percent < 100)";
}
if ($status == 'done' || $status == '100') {
    $sql .= " AND (a.percent = 100)";
}
if ($status == 'todo') {
    $sql .= " AND (a.percent >= 0 AND a.percent < 100)";
}
// We must filter on assignement table
if ($filtert > 0 || $usergroup > 0) {
    $sql .= " AND (";
    if ($filtert > 0) {
        $sql .= "ar.fk_element = " . ((int) $filtert);
    }
    if ($usergroup > 0) {
        $sql .= ($filtert > 0 ? " OR " : "") . " ugu.fk_usergroup = " . ((int) $usergroup);
    }
    $sql .= ")";
}
// Sort on date
$sql .= ' ORDER BY datep';
//print $sql;


dol_syslog("custom/booking/booking_agenda.php", LOG_DEBUG);
$resql = $db->query($sql);
if ($resql) {
    $num = $db->num_rows($resql);

    $MAXONSAMEPAGE = 10000; // Useless to have more. Protection to avoid memory overload when high number of event (for example after a mass import)
    $i = 0;
    while ($i < $num && $i < $MAXONSAMEPAGE) {
        $obj = $db->fetch_object($resql);

        // Discard auto action if option is on
        if (!empty($conf->global->AGENDA_ALWAYS_HIDE_AUTO) && $obj->type_code == 'AC_OTH_AUTO') {
            $i++;
            continue;
        }

        // Create a new object action
        $event = new ActionComm($db);

        $event->id = $obj->id;
        $event->ref = $event->id;

        $event->fulldayevent = $obj->fulldayevent;

        // event->datep and event->datef must be GMT date.
        if ($event->fulldayevent) {
            $tzforfullday = getDolGlobalString('MAIN_STORE_FULL_EVENT_IN_GMT');
            $event->datep = $db->jdate($obj->datep, $tzforfullday ? 'tzuser' : 'tzserver');    // If saved in $tzforfullday = gmt, we must invert date to be in user tz
            $event->datef = $db->jdate($obj->datep2, $tzforfullday ? 'tzuser' : 'tzserver');
        } else {
            // Example: $obj->datep = '1970-01-01 01:00:00', jdate will return 0 if TZ of PHP server is Europe/Berlin (+1)
            $event->datep = $db->jdate($obj->datep, 'tzserver');
            $event->datef = $db->jdate($obj->datep2, 'tzserver');
        }
        //$event->datep_formated_gmt = dol_print_date($event->datep, 'dayhour', 'gmt');
        //var_dump($obj->id.' '.$obj->datep.' '.dol_print_date($obj->datep, 'dayhour', 'gmt'));
        //var_dump($obj->id.' '.$event->datep.' '.dol_print_date($event->datep, 'dayhour', 'gmt'));

        $event->type_code = $obj->type_code;
        $event->type_label = $obj->type_label;
        $event->type_color = $obj->type_color;
        $event->type = $obj->type_type;
        $event->type_picto = $obj->type_picto;

        $event->libelle = $obj->label; // deprecated
        $event->label = $obj->label;
        $event->percentage = $obj->percent;

        $event->authorid = $obj->fk_user_author; // user id of creator
        $event->userownerid = $obj->fk_user_action; // user id of owner
        $event->fetch_userassigned(); // This load $event->userassigned

        $event->priority = $obj->priority;
        $event->location = $obj->location;
        $event->transparency = $obj->transparency;
        $event->fk_element = $obj->fk_element;
        $event->elementtype = $obj->elementtype;

        $event->fk_project = $obj->fk_project;

        $event->socid = $obj->fk_soc;
        $event->contact_id = $obj->fk_contact;

        // Defined date_start_in_calendar and date_end_in_calendar property
        // They are date start and end of action but modified to not be outside calendar view.
        $event->date_start_in_calendar = $event->datep;
        if ($event->datef != '' && $event->datef >= $event->datep) {
            $event->date_end_in_calendar = $event->datef;
        } else {
            $event->date_end_in_calendar = $event->datep;
        }

        // Check values
        if ($event->date_end_in_calendar < $firstdaytoshow || $event->date_start_in_calendar >= $lastdaytoshow) {
            // This record is out of visible range
        } else {
            if ($event->date_start_in_calendar < $firstdaytoshow) {
                $event->date_start_in_calendar = $firstdaytoshow;
            }
            if ($event->date_end_in_calendar >= $lastdaytoshow) {
                $event->date_end_in_calendar = ($lastdaytoshow - 1);
            }

            // Add an entry in actionarray for each day
            $daycursor = $event->date_start_in_calendar;
            $annee = dol_print_date($daycursor, '%Y', 'tzuserrel');
            $mois = dol_print_date($daycursor, '%m', 'tzuserrel');
            $jour = dol_print_date($daycursor, '%d', 'tzuserrel');

            $daycursorend = $event->date_end_in_calendar;
            $anneeend = dol_print_date($daycursorend, '%Y', 'tzuserrel');
            $moisend = dol_print_date($daycursorend, '%m', 'tzuserrel');
            $jourend = dol_print_date($daycursorend, '%d', 'tzuserrel');

            //var_dump(dol_print_date($event->date_start_in_calendar, 'dayhour', 'gmt'));	// Hour at greenwich
            //var_dump($annee.'-'.$mois.'-'.$jour);
            //print 'annee='.$annee.' mois='.$mois.' jour='.$jour.'<br>';

            // Loop on each day covered by action to prepare an index to show on calendar
            $loop = true;
            $j = 0;
            $daykey = dol_mktime(0, 0, 0, $mois, $jour, $annee, 'gmt');    // $mois, $jour, $annee has been set for user tz
            $daykeyend = dol_mktime(0, 0, 0, $moisend, $jourend, $anneeend, 'gmt');    // $moisend, $jourend, $anneeend has been set for user tz
            /*
                      print 'GMT '.$event->date_start_in_calendar.' '.dol_print_date($event->date_start_in_calendar, 'dayhour', 'gmt').'<br>';
                      print 'TZSERVER '.$event->date_start_in_calendar.' '.dol_print_date($event->date_start_in_calendar, 'dayhour', 'tzserver').'<br>';
                      print 'TZUSERREL '.$event->date_start_in_calendar.' '.dol_print_date($event->date_start_in_calendar, 'dayhour', 'tzuserrel').'<br>';
                      print 'GMT '.$event->date_end_in_calendar.' '.dol_print_date($event->date_end_in_calendar, 'dayhour', 'gmt').'<br>';
                      print 'TZSERVER '.$event->date_end_in_calendar.' '.dol_print_date($event->date_end_in_calendar, 'dayhour', 'tzserver').'<br>';
                      print 'TZUSER '.$event->date_end_in_calendar.' '.dol_print_date($event->date_end_in_calendar, 'dayhour', 'tzuserrel').'<br>';
                      */
            do {
                //if ($event->id==408)
                //print 'daykey='.$daykey.' daykeyend='.$daykeyend.' '.dol_print_date($daykey, 'dayhour', 'gmt').' - '.dol_print_date($event->datep, 'dayhour', 'gmt').' '.dol_print_date($event->datef, 'dayhour', 'gmt').'<br>';
                //print 'daykey='.$daykey.' daykeyend='.$daykeyend.' '.dol_print_date($daykey, 'dayhour', 'tzuserrel').' - '.dol_print_date($event->datep, 'dayhour', 'tzuserrel').' '.dol_print_date($event->datef, 'dayhour', 'tzuserrel').'<br>';

                $eventarray[$daykey][] = $event;
                $j++;

                $daykey += 60 * 60 * 24;
                //if ($daykey > $event->date_end_in_calendar) {
                if ($daykey > $daykeyend) {
                    $loop = false;
                }
            } while ($loop);
            //var_dump($eventarray);
            //print 'Event '.$i.' id='.$event->id.' (start='.dol_print_date($event->datep).'-end='.dol_print_date($event->datef);
            //print ' startincalendar='.dol_print_date($event->date_start_in_calendar).'-endincalendar='.dol_print_date($event->date_end_in_calendar).') was added in '.$j.' different index key of array<br>';
        }
        $i++;
    }
} else {
    dol_print_error($db);
}

// LEAVE CALENDAR
$sql = "SELECT u.rowid as uid, u.lastname, u.firstname, u.statut, x.rowid, x.date_debut as date_start, x.date_fin as date_end, x.halfday, x.statut as status";
$sql .= " FROM " . MAIN_DB_PREFIX . "holiday as x, " . MAIN_DB_PREFIX . "user as u";
$sql .= " WHERE u.rowid = x.fk_user";
$sql .= " AND u.statut = '1'"; // Show only active users  (0 = inactive user, 1 = active user)
$sql .= " AND (x.statut = '2' OR x.statut = '3')"; // Show only public leaves (2 = leave wait for approval, 3 = leave approved)

if ($mode == 'show_day') {
    // Request only leaves for the current selected day
    $sql .= " AND '" . $db->escape($year) . "-" . $db->escape($month) . "-" . $db->escape($day) . "' BETWEEN x.date_debut AND x.date_fin";    // date_debut and date_fin are date without time
} elseif ($mode == 'show_week') {
    // TODO: Add filter to reduce database request
} elseif ($mode == 'show_month') {
    // TODO: Add filter to reduce database request
}

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

    while ($i < $num) {
        $obj = $db->fetch_object($resql);

        $event = new ActionComm($db);

        // Need the id of the leave object for link to it
        $event->id = $obj->rowid;
        $event->ref = $event->id;

        $event->type_code = 'HOLIDAY';
        $event->type_label = '';
        $event->type_color = '';
        $event->type = 'holiday';
        $event->type_picto = 'holiday';

        $event->datep = $db->jdate($obj->date_start) + (empty($halfday) || $halfday == 1 ? 0 : 12 * 60 * 60 - 1);
        $event->datef = $db->jdate($obj->date_end) + (empty($halfday) || $halfday == -1 ? 24 : 12) * 60 * 60 - 1;
        $event->date_start_in_calendar = $event->datep;
        $event->date_end_in_calendar = $event->datef;

        if ($obj->status == 3) {
            // Show no symbol for leave with state "leave approved"
            $event->percentage = -1;
        } elseif ($obj->status == 2) {
            // Show TO-DO symbol for leave with state "leave wait for approval"
            $event->percentage = 0;
        }

        if ($obj->halfday == 1) {
            $event->label = $obj->lastname . ' (' . $langs->trans("Morning") . ')';
        } elseif ($obj->halfday == -1) {
            $event->label = $obj->lastname . ' (' . $langs->trans("Afternoon") . ')';
        } else {
            $event->label = $obj->lastname;
        }

        $daycursor = $event->date_start_in_calendar;
        $annee = dol_print_date($daycursor, '%Y', 'tzuserrel');
        $mois = dol_print_date($daycursor, '%m', 'tzuserrel');
        $jour = dol_print_date($daycursor, '%d', 'tzuserrel');

        $daykey = dol_mktime(0, 0, 0, $mois, $jour, $annee, 'gmt');
        do {
            $eventarray[$daykey][] = $event;

            $daykey += 60 * 60 * 24;
        } while ($daykey <= $event->date_end_in_calendar);

        $i++;
    }
}

// EXTERNAL CALENDAR
// Complete $eventarray with external import Ical



// Complete $eventarray with events coming from external module
$parameters = array();
$object = null;
$reshook = $hookmanager->executeHooks('getCalendarEvents', $parameters, $object, $action);
if (!empty($hookmanager->resArray['eventarray'])) {
    foreach ($hookmanager->resArray['eventarray'] as $keyDate => $events) {
        if (!isset($eventarray[$keyDate])) {
            $eventarray[$keyDate] = array();
        }
        $eventarray[$keyDate] = array_merge($eventarray[$keyDate], $events);
    }
}

// Sort events
foreach ($eventarray as $keyDate => &$dateeventarray) {
    usort($dateeventarray, 'sort_events_by_date');
}


$maxnbofchar = 0;
$cachethirdparties = array();
$cachecontacts = array();
$cacheusers = array();

// Define theme_datacolor array
$color_file = DOL_DOCUMENT_ROOT . "/theme/" . $conf->theme . "/theme_vars.inc.php";
if (is_readable($color_file)) {
    include $color_file;
}
if (!is_array($theme_datacolor)) {
    $theme_datacolor = array(array(120, 130, 150), array(200, 160, 180), array(190, 190, 220));
}

$massactionbutton = '';

print_barre_liste($langs->trans("Agenda"), $page, $_SERVER["PHP_SELF"], $param, $sortfield, $sortorder, $massactionbutton, $num, -1, 'object_action', 0, $nav . '<span class="marginleftonly"></span>' . $newcardbutton, '', $limit, 1, 0, 1, $viewmode);

// Show div with list of calendars
print $s;

// View by day
$newparam = $param; // newparam is for birthday links
$newparam = preg_replace('/mode=show_month&?/i', '', $newparam);
$newparam = preg_replace('/mode=show_week&?/i', '', $newparam);
$newparam = preg_replace('/viewday=[0-9]+&?/i', '', $newparam);
$newparam .= '&viewday=1';
// Code to show just one day
$style = 'cal_current_month cal_current_month_oneday';
$today = 0;
$todayarray = dol_getdate($now, 'fast');
if ($todayarray['mday'] == $day && $todayarray['mon'] == $month && $todayarray['year'] == $year) {
    $today = 1;
}
//if ($today) $style='cal_today';

$timestamp = dol_mktime(12, 0, 0, $month, $day, $year);
$arraytimestamp = dol_getdate($timestamp);

/* print '<div class="liste_titre liste_titre_bydiv centpercent"><div class="divsearchfield">';
       print_actions_filter($form, $canedit, $status, $year, $month, $day, $showbirthday, 0, $filtert, 0, $pid, $socid, $action, -1, $actioncode, $usergroup, '', $resourceid);
       print '</div></div>'; */

print '<div class="div-table-responsive-no-min sectioncalendarbyday maxscreenheightless300">';
echo '<table class="tagtable centpercent noborder nocellnopadd cal_pannel cal_month noborderbottom" style="margin-bottom: 5px !important;">';

echo ' <tr class="tagtr liste_titre">';
echo '  <td class="tagtd center bold uppercase">' . $langs->trans("Day" . $arraytimestamp['wday']) . "</td>\n";
echo " </td>\n";

echo '</table>';
print '</div>';

$eventdayDates = $bookingAgendaHelper->getEventDayDates($year, $month, $day);

print '<div id="dateview">Updated content: ' . date("Y-m-d H:i:s") . '</div>';
print $eventdayDates['eventdayprint'];

print '<input type="hidden" id="jsyear" name="jsyear" value="' . $year . '">
<input type="hidden" id="jsmonth" name="jsmonth" value="' . $month . '">
<input type="hidden" id="jsday" name="jsday" value="' . $day . '">
<input type="hidden" id="selectedEvent" name="selectedEvent" value="">';
print '<div id="dayviewdiv" class="div-table-responsive-no-min">'; // You can use div-table-responsive-no-min if you dont need reserved height for your table
$bookingAgendaHelper->showTable($eventdayDates, $selectedEvent);
print '</div>';
print '<div id="eventdetailviewdiv"></div>';

print "\n" . '</form>';
?>
<script>
    $(document).ready(function() {
        console.log("ready!");
        const selectedEvent = document.getElementById('selectedEvent');
        const value = selectedEvent.value;
        console.log(value);
    });

    function ShoMeTheEventDeatils(id) {
        const eventdetailviewdiv = document.getElementById('eventdetailviewdiv');
        $('#selectedEvent').attr('value', id);

        const xhr = new XMLHttpRequest();
        xhr.open('GET', 'booking_agenda_event_details_view.php?event=' + id, true);

        xhr.onload = function() {
            if (xhr.status === 200) {
                eventdetailviewdiv.innerHTML = xhr.responseText;
            } else {
                console.error('Error fetching content:', xhr.status, xhr.statusText);
            }
        };
        xhr.send();
    }

    function formatDate(date) {
        const year = date.getFullYear();
        const month = String(date.getMonth() + 1).padStart(2, '0'); // Hónap 0-alapú, ezért +1
        const day = String(date.getDate()).padStart(2, '0');
        const hours = String(date.getHours()).padStart(2, '0');
        const minutes = String(date.getMinutes()).padStart(2, '0');
        const seconds = String(date.getSeconds()).padStart(2, '0');

        return `${year}-${month}-${day} ${hours}:${minutes}:${seconds}`;
    }

    function updateDivContent() {
        const selectedEvent = document.getElementById('selectedEvent');
        const value = selectedEvent.value;
        const dateview = document.getElementById('dateview');
        const dayviewdiv = document.getElementById('dayviewdiv');
        var year = document.getElementById('jsyear');
        var month = document.getElementById('jsmonth');
        var day = document.getElementById('jsday');
        const now = new Date();
        document.getElementById('dateview').innerText = 'Updated content: ' + formatDate(now);
        const xhr = new XMLHttpRequest();
        xhr.open('GET', 'booking_agenda_table_view.php?year=' + year.value + '&month=' + month.value + '&day=' + day.value, true);

        xhr.onload = function() {
            if (xhr.status === 200) {
                dayviewdiv.innerHTML = xhr.responseText;
            } else {
                console.error('Error fetching content:', xhr.status, xhr.statusText);
            }
        };
        xhr.send();
        if (value != '') {
            console.log(value);
            ShoMeTheEventDeatils(value);
        }
    }
    setInterval(updateDivContent, 5000);
</script>
<style>
    .trheight {
        height: 50px;
    }

    .elvalaszto {
        background-color: grey;
    }

    .foglaltsag {
        color: red;
    }

    .location {
        color: black;
    }

    .firstcolumn {
        background-color: lightgrey;
        text-align: center;
        font-weight: bold;
    }
</style>
<?
// End of page
llxFooter();
$db->close();


/**
 * Show event of a particular day
 *
 * @param	DoliDB	$db              Database handler
 * @param   int		$day             Day
 * @param   int		$month           Month
 * @param   int		$year            Year
 * @param   int		$monthshown      Current month shown in calendar view
 * @param   string	$style           Style to use for this day
 * @param   array	$eventarray      Array of events
 * @param   int		$maxprint        Nb of actions to show each day on month view (0 means no limit)
 * @param   int		$maxnbofchar     Nb of characters to show for event line
 * @param   string	$newparam        Parameters on current URL
 * @param   int		$showinfo        Add extended information (used by day and week view)
 * @param   int		$minheight       Minimum height for each event. 60px by default.
 * @param	string	$nonew			 0=Add "new entry button", 1=No "new entry button", -1=Only "new entry button"
 * @return	void
 */
function show_day_events($db, $day, $month, $year, $monthshown, $style, &$eventarray, $maxprint = 0, $maxnbofchar = 16, $newparam = '', $showinfo = 0, $minheight = 60, $nonew = 0)
{
    global $user, $conf, $langs;
    global $action, $mode, $filter, $filtert, $status, $actioncode, $usergroup; // Filters used into search form
    global $theme_datacolor;
    global $cachethirdparties, $cachecontacts, $cacheusers, $colorindexused;

    if ($conf->use_javascript_ajax) {    // Enable the "Show more button..."
        $conf->global->MAIN_JS_SWITCH_AGENDA = 1;
    }

    $dateint = sprintf("%04d", $year) . sprintf("%02d", $month) . sprintf("%02d", $day);

    //print 'show_day_events day='.$day.' month='.$month.' year='.$year.' dateint='.$dateint;

    print "\n";

    $curtime = dol_mktime(0, 0, 0, $month, $day, $year);
    $urltoshow = DOL_URL_ROOT . '/custom/booking/booking_agenda.php?mode=show_day&day=' . str_pad($day, 2, "0", STR_PAD_LEFT) . '&month=' . str_pad($month, 2, "0", STR_PAD_LEFT) . '&year=' . $year . $newparam;
    $urltocreate = '';
    if ($user->rights->agenda->myactions->create || $user->rights->agenda->allactions->create) {
        $newparam .= '&month=' . str_pad($month, 2, "0", STR_PAD_LEFT) . '&year=' . $year;
        $hourminsec = '100000';
        $urltocreate = DOL_URL_ROOT . '/custom/booking/booking_card.php?action=create&datep=' . sprintf("%04d%02d%02d", $year, $month, $day) . $hourminsec . '&backtopage=' . urlencode($_SERVER["PHP_SELF"] . ($newparam ? '?' . $newparam : ''));
    }

    // Line with title of day
    print '<div id="dayevent_' . $dateint . '" class="dayevent tagtable centpercent nobordernopadding">' . "\n";

    if ($nonew <= 0) {
        print '<div class="tagtr cursorpointer" onclick="window.location=\'' . $urltocreate . '\';"><div class="nowrap tagtd"><div class="left inline-block">';
        print '<a class="dayevent-aday" style="color: #666" href="' . $urltoshow . '">';
        if ($showinfo) {
            print dol_print_date($curtime, 'daytextshort');
        } else {
            print dol_print_date($curtime, '%d');
        }
        print '</a>';
        print '</div><div class="nowrap floatright inline-block marginrightonly">';
        if ($user->rights->agenda->myactions->create || $user->rights->agenda->allactions->create) {
            print '<a class="cursoradd" href="' . $urltocreate . '">'; // Explicit link, usefull for nojs interfaces
            print img_picto($langs->trans("NewAction"), 'edit_add.png');
            print '</a>';
        }
        print '</div></div></div>' . "\n";
    }

    if ($nonew < 0) {
        print '</div>';
        return;
    }

    // Line with td contains all div of each events
    print '<div class="tagtr">';
    print '<div class="tagtd centpercent agendacell sortable">';

    //$curtime = dol_mktime (0, 0, 0, $month, $day, $year);
    $i = 0;
    $ireallyshown = 0;
    $itoshow = 0;
    $numother = 0;
    $numbirthday = 0;
    $numical = 0;
    $numicals = array();
    $ymd = sprintf("%04d", $year) . sprintf("%02d", $month) . sprintf("%02d", $day);

    $colorindexused[$user->id] = 0; // Color index for current user (user->id) is always 0
    $nextindextouse = is_array($colorindexused) ? count($colorindexused) : 0; // At first run this is 0, so fist user has 0, next 1, ...
    //var_dump($colorindexused);

    include_once DOL_DOCUMENT_ROOT . '/holiday/class/holiday.class.php';
    $tmpholiday = new Holiday($db);

    foreach ($eventarray as $daykey => $notused) {        // daykey is the 'YYYYMMDD' to show according to user
        $annee = dol_print_date($daykey, '%Y', 'gmt');    // We use gmt because we want the value represented by string 'YYYYMMDD'
        $mois = dol_print_date($daykey, '%m', 'gmt');    // We use gmt because we want the value represented by string 'YYYYMMDD'
        $jour = dol_print_date($daykey, '%d', 'gmt');    // We use gmt because we want the value represented by string 'YYYYMMDD'

        //print 'event daykey='.$daykey.' dol_print_date(daykey)='.dol_print_date($daykey, 'dayhour', 'gmt').' jour='.$jour.' mois='.$mois.' annee='.$annee."<br>\n";

        if ($day == $jour && $month == $mois && $year == $annee) {
            foreach ($eventarray[$daykey] as $index => $event) {
                if ($i < $maxprint || $maxprint == 0 || !empty($conf->global->MAIN_JS_SWITCH_AGENDA)) {
                    $keysofuserassigned = array_keys($event->userassigned);
                    $ponct = ($event->date_start_in_calendar == $event->date_end_in_calendar);

                    // Define $color (Hex string like '0088FF') and $cssclass of event
                    $color = -1;
                    $cssclass = '';
                    $colorindex = -1;
                    if (in_array($user->id, $keysofuserassigned)) {
                        $cssclass = 'family_mytasks';

                        if (empty($cacheusers[$event->userownerid])) {
                            $newuser = new User($db);
                            $newuser->fetch($event->userownerid);
                            $cacheusers[$event->userownerid] = $newuser;
                        }
                        //var_dump($cacheusers[$event->userownerid]->color);

                        // We decide to choose color of owner of event (event->userownerid is user id of owner, event->userassigned contains all users assigned to event)
                        if (!empty($cacheusers[$event->userownerid]->color)) {
                            $color = $cacheusers[$event->userownerid]->color;
                        }
                    } elseif ($event->type_code == 'ICALEVENT') {      // Event come from external ical file
                        $numical++;
                        if (!empty($event->icalname)) {
                            if (!isset($numicals[dol_string_nospecial($event->icalname)])) {
                                $numicals[dol_string_nospecial($event->icalname)] = 0;
                            }
                            $numicals[dol_string_nospecial($event->icalname)]++;
                        }

                        $color = ($event->icalcolor ? $event->icalcolor : -1);
                        $cssclass = (!empty($event->icalname) ? 'family_ext' . md5($event->icalname) : 'family_other');
                    } elseif ($event->type_code == 'BIRTHDAY') {
                        $numbirthday++;
                        $colorindex = 2;
                        $cssclass = 'family_birthday ';
                        $color = sprintf("%02x%02x%02x", $theme_datacolor[$colorindex][0], $theme_datacolor[$colorindex][1], $theme_datacolor[$colorindex][2]);
                    } else {
                        $numother++;
                        $color = ($event->icalcolor ? $event->icalcolor : -1);
                        $cssclass = (!empty($event->icalname) ? 'family_ext' . md5($event->icalname) : 'family_other');

                        if (empty($cacheusers[$event->userownerid])) {
                            $newuser = new User($db);
                            $newuser->fetch($event->userownerid);
                            $cacheusers[$event->userownerid] = $newuser;
                        }
                        //var_dump($cacheusers[$event->userownerid]->color);

                        // We decide to choose color of owner of event (event->userownerid is user id of owner, event->userassigned contains all users assigned to event)
                        if (!empty($cacheusers[$event->userownerid]->color)) {
                            $color = $cacheusers[$event->userownerid]->color;
                        }
                    }

                    if ($color < 0) {    // Color was not set on user card. Set color according to color index.
                        // Define color index if not yet defined
                        $idusertouse = ($event->userownerid ? $event->userownerid : 0);
                        if (isset($colorindexused[$idusertouse])) {
                            $colorindex = $colorindexused[$idusertouse]; // Color already assigned to this user
                        } else {
                            $colorindex = $nextindextouse;
                            $colorindexused[$idusertouse] = $colorindex;
                            if (!empty($theme_datacolor[$nextindextouse + 1])) {
                                $nextindextouse++; // Prepare to use next color
                            }
                        }
                        //print '|'.($color).'='.($idusertouse?$idusertouse:0).'='.$colorindex.'<br>';
                        // Define color
                        $color = sprintf("%02x%02x%02x", $theme_datacolor[$colorindex][0], $theme_datacolor[$colorindex][1], $theme_datacolor[$colorindex][2]);
                    }
                    $cssclass = $cssclass . ' eventday_' . $ymd;

                    // Defined style to disable drag and drop feature
                    if ($event->type_code == 'AC_OTH_AUTO') {
                        $cssclass .= " unmovable";
                    } elseif ($event->type_code == 'HOLIDAY') {
                        $cssclass .= " unmovable";
                    } elseif ($event->type_code == 'BIRTHDAY') {
                        $cssclass .= " unmovable";
                    } elseif ($event->type_code == 'ICALEVENT') {
                        $cssclass .= " unmovable";
                    } elseif ($event->date_start_in_calendar && $event->date_end_in_calendar && date('Ymd', $event->date_start_in_calendar) != date('Ymd', $event->date_end_in_calendar)) {
                        // If the event is on several days
                        $tmpyearend = dol_print_date($event->date_start_in_calendar, '%Y', 'tzuserrel');
                        $tmpmonthend = dol_print_date($event->date_start_in_calendar, '%m', 'tzuserrel');
                        $tmpdayend = dol_print_date($event->date_start_in_calendar, '%d', 'tzuserrel');
                        //var_dump($tmpyearend.' '.$tmpmonthend.' '.$tmpdayend);
                        if ($tmpyearend != $annee || $tmpmonthend != $mois || $tmpdayend != $jour) {
                            $cssclass .= " unmovable unmovable-mustusefirstdaytodrag";
                        } else {
                            $cssclass .= ' movable cursormove';
                        }
                    } else {
                        if (
                            $user->rights->agenda->allactions->create ||
                            (($event->authorid == $user->id || $event->userownerid == $user->id) && $user->rights->agenda->myactions->create)
                        ) {
                            $cssclass .= " movable cursormove";
                        } else {
                            $cssclass .= " unmovable";
                        }
                    }

                    $h = '';
                    $nowrapontd = 1;
                    if ($mode == 'show_day') {
                        $h = 'height: 100%; ';
                        $nowrapontd = 0;
                    }
                    if ($mode == 'show_week') {
                        $h = 'height: 100%; ';
                        $nowrapontd = 0;
                    }

                    // Show event box
                    print "\n";
                    print '<!-- start event ' . $i . ' -->' . "\n";

                    $morecss = '';
                    if ($maxprint && $ireallyshown >= $maxprint) {
                        $morecss = 'showifmore';
                    }
                    if ($event->type == 'birthdate' && !GETPOST('check_birthday')) {
                        $morecss = 'hidden';
                    }
                    if ($event->type == 'holiday' && !GETPOST('check_holiday')) {
                        $morecss = 'hidden';
                    }
                    if ($morecss != 'hidden') {
                        $itoshow++;
                    }
                    if ($morecss != 'showifmore' && $morecss != 'hidden') {
                        $ireallyshown++;
                    }
                    //var_dump($event->type.' - '.$morecss.' - '.$cssclass.' - '.$i.' - '.$ireallyshown.' - '.$itoshow);

                    print '<div id="event_' . $ymd . '_' . $i . '" class="event family_' . $event->type . ' ' . $cssclass . ($morecss ? ' ' . $morecss : '') . '"';
                    //print ' style="height: 100px;';
                    //print ' position: absolute; top: 40px; width: 50%;';
                    //print '"';
                    print '>';

                    //var_dump($event->userassigned);
                    //var_dump($event->transparency);
                    print '<table class="centpercent cal_event';
                    print(empty($event->transparency) ? ' cal_event_notbusy' : ' cal_event_busy');
                    //if (empty($event->transparency) && empty($conf->global->AGENDA_NO_TRANSPARENT_ON_NOT_BUSY)) print ' opacitymedium';	// Not busy
                    print '" style="' . $h;
                    $colortouse = $color;
                    // If colortouse is similar than background, we force to change it.
                    if (empty($event->transparency) && empty($conf->global->AGENDA_NO_TRANSPARENT_ON_NOT_BUSY)) {
                        print 'background: #f0f0f0;';
                        print 'border-left: 5px solid #' . $colortouse . ';';
                    } else {
                        print 'background: #f0f0f0;';
                        print 'border-left: 5px solid #' . dol_color_minus($colortouse, -3) . ';';
                        //print 'background: -webkit-gradient(linear, left top, left bottom, from(#'.dol_color_minus($colortouse, -3).'), to(#'.dol_color_minus($colortouse, -1).'));';
                    }
                    //print 'background: #'.$colortouse.';';
                    //print 'background: -webkit-gradient(linear, left top, left bottom, from(#'.dol_color_minus($color, -3).'), to(#'.dol_color_minus($color, -1).'));';
                    //if (!empty($event->transparency)) print 'background: #'.$color.'; background: -webkit-gradient(linear, left top, left bottom, from(#'.$color.'), to(#'.dol_color_minus($color,1).'));';
                    //else print 'background-color: transparent !important; background: none; border: 1px solid #bbb;';
                    //print ' -moz-border-radius:4px;"';
                    //print 'border: 1px solid #ccc" width="100%"';
                    print '">';
                    print '<tr>';
                    print '<td class="tdoverflow nobottom centpercent ' . ($nowrapontd ? 'nowrap ' : '') . 'cal_event' . ($event->type_code == 'BIRTHDAY' ? ' cal_event_birthday' : '') . '">';

                    $daterange = '';

                    if ($event->type_code == 'BIRTHDAY') {             // It's birthday calendar
                        print $event->getNomUrl(1, $maxnbofchar, 'cal_event', 'birthday', 'contact');
                    } elseif ($event->type_code == 'HOLIDAY') {        // It's holiday calendar
                        $tmpholiday->fetch($event->id);

                        print $tmpholiday->getNomUrl(1);

                        $tmpid = $tmpholiday->fk_user;
                        if (empty($cacheusers[$tmpid])) {
                            $newuser = new User($db);
                            $newuser->fetch($tmpid);
                            $cacheusers[$tmpid] = $newuser;
                        }

                        $listofusertoshow = '';
                        $listofusertoshow .= '<br>' . $cacheusers[$tmpid]->getNomUrl(-1, '', 0, 0, 0, 0, '', 'paddingright valigntextbottom');
                        print $listofusertoshow;
                    } else {                                        // Other calendar
                        // Picto
                        if (empty($event->fulldayevent)) {
                            //print $event->getNomUrl(2).' ';
                        }

                        // Date
                        if (empty($event->fulldayevent)) {
                            // Show hours (start ... end)
                            $tmpyearstart = dol_print_date($event->date_start_in_calendar, '%Y', 'tzuserrel');
                            $tmpmonthstart = dol_print_date($event->date_start_in_calendar, '%m', 'tzuserrel');
                            $tmpdaystart = dol_print_date($event->date_start_in_calendar, '%d', 'tzuserrel');
                            $tmpyearend = dol_print_date($event->date_end_in_calendar, '%Y', 'tzuserrel');
                            $tmpmonthend = dol_print_date($event->date_end_in_calendar, '%m', 'tzuserrel');
                            $tmpdayend = dol_print_date($event->date_end_in_calendar, '%d', 'tzuserrel');

                            // Hour start
                            if ($tmpyearstart == $annee && $tmpmonthstart == $mois && $tmpdaystart == $jour) {
                                $daterange .= dol_print_date($event->date_start_in_calendar, 'hour', 'tzuserrel');
                                if ($event->date_end_in_calendar && $event->date_start_in_calendar != $event->date_end_in_calendar) {
                                    if ($tmpyearstart == $tmpyearend && $tmpmonthstart == $tmpmonthend && $tmpdaystart == $tmpdayend) {
                                        $daterange .= '-';
                                    }
                                    //else
                                    //print '...';
                                }
                            }
                            if ($event->date_end_in_calendar && $event->date_start_in_calendar != $event->date_end_in_calendar) {
                                if ($tmpyearstart != $tmpyearend || $tmpmonthstart != $tmpmonthend || $tmpdaystart != $tmpdayend) {
                                    $daterange .= '...';
                                }
                            }
                            // Hour end
                            if ($event->date_end_in_calendar && $event->date_start_in_calendar != $event->date_end_in_calendar) {
                                if ($tmpyearend == $annee && $tmpmonthend == $mois && $tmpdayend == $jour) {
                                    $daterange .= dol_print_date($event->date_end_in_calendar, 'hour', 'tzuserrel');
                                }
                            }
                        } else {
                            if ($showinfo) {
                                print $langs->trans("EventOnFullDay") . "<br>\n";
                            }
                        }

                        // Show title
                        $titletoshow = $daterange;
                        //$titletoshow .= ($titletoshow ? ' ' : '').dol_escape_htmltag($event->label ? $event->label : $event->libelle);

                        if ($event->type_code != 'ICALEVENT') {
                            $savlabel = $event->label ? $event->label : $event->libelle;
                            $event->label = $titletoshow;
                            $event->libelle = $titletoshow;        // deprecatd
                            // Note: List of users are inside $event->userassigned. Link may be clickable depending on permissions of user.
                            //$titletoshow = (($event->type_picto || $event->type_code) ? $event->getTypePicto() : '');
                            $titletoshow .= $event->getNomUrl(0, $maxnbofchar, 'cal_event cal_event_title', '', 0, 0);
                            $event->label = $savlabel;
                            $event->libelle = $savlabel;
                        }

                        // Loop on each assigned user
                        $listofusertoshow = '';
                        $posuserassigned = 0;
                        foreach ($event->userassigned as $tmpid => $tmpdata) {
                            if (!$posuserassigned && $titletoshow) {
                                $listofusertoshow .= '<br>';
                            }
                            $posuserassigned++;
                            if (empty($cacheusers[$tmpid])) {
                                $newuser = new User($db);
                                $newuser->fetch($tmpid);
                                $cacheusers[$tmpid] = $newuser;
                            }

                            $listofusertoshow .= $cacheusers[$tmpid]->getNomUrl(-3, '', 0, 0, 0, 0, '', 'paddingright valigntextbottom');
                        }

                        print $titletoshow;
                        print $listofusertoshow;

                        if ($event->type_code == 'ICALEVENT') {
                            print '<br>(' . dol_trunc($event->icalname, $maxnbofchar) . ')';
                        }

                        $thirdparty_id = ($event->socid > 0 ? $event->socid : ((is_object($event->societe) && $event->societe->id > 0) ? $event->societe->id : 0));
                        $contact_id = ($event->contact_id > 0 ? $event->contact_id : ((is_object($event->contact) && $event->contact->id > 0) ? $event->contact->id : 0));

                        // If action related to company / contact
                        $linerelatedto = '';
                        if ($thirdparty_id > 0) {
                            if (!isset($cachethirdparties[$thirdparty_id]) || !is_object($cachethirdparties[$thirdparty_id])) {
                                $thirdparty = new Societe($db);
                                $thirdparty->fetch($thirdparty_id);
                                $cachethirdparties[$thirdparty_id] = $thirdparty;
                            } else {
                                $thirdparty = $cachethirdparties[$thirdparty_id];
                            }
                            if (!empty($thirdparty->id)) {
                                $linerelatedto .= $thirdparty->getNomUrl(1, '', 0);
                            }
                        }
                        if (!empty($contact_id) && $contact_id > 0) {
                            if (!is_object($cachecontacts[$contact_id])) {
                                $contact = new Contact($db);
                                $contact->fetch($contact_id);
                                $cachecontacts[$contact_id] = $contact;
                            } else {
                                $contact = $cachecontacts[$contact_id];
                            }
                            if ($linerelatedto) {
                                $linerelatedto .= '&nbsp;';
                            }
                            if (!empty($contact->id)) {
                                $linerelatedto .= $contact->getNomUrl(1, '', 0);
                            }
                        }
                        if (!empty($event->fk_element) && $event->fk_element > 0 && !empty($event->elementtype) && !empty($conf->global->AGENDA_SHOW_LINKED_OBJECT)) {
                            include_once DOL_DOCUMENT_ROOT . '/core/lib/functions2.lib.php';
                            if ($linerelatedto) {
                                $linerelatedto .= '<br>';
                            }
                            $linerelatedto .= dolGetElementUrl($event->fk_element, $event->elementtype, 1);
                        }
                        if ($linerelatedto) {
                            print '<br>' . $linerelatedto;
                        }
                    }

                    // Show location
                    if ($showinfo) {
                        if ($event->location) {
                            print '<br>';
                            print $langs->trans("Location") . ': ' . $event->location;
                        }
                    }

                    print '</td>';
                    // Status - Percent
                    $withstatus = 0;
                    if ($event->type_code != 'BIRTHDAY' && $event->type_code != 'ICALEVENT') {
                        $withstatus = 1;
                        if ($event->percentage >= 0) {
                            $withstatus = 2;
                        }
                    }
                    print '<td class="nobottom right nowrap cal_event_right' . ($withstatus >= 2 ? ' cal_event_right_status' : '') . '">';
                    if ($withstatus) {
                        print $event->getLibStatut(3, 1);
                    } else {
                        print '&nbsp;';
                    }
                    print '</td></tr></table>';
                    print '</div><!-- end event ' . $i . ' -->' . "\n";

                    $i++;
                } else {
                    print '<a href="' . DOL_URL_ROOT . '/custom/booking/booking_agenda.php?mode=' . $mode . '&maxprint=0&month=' . ((int) $monthshown) . '&year=' . ((int) $year);
                    print ($status ? '&status=' . $status : '') . ($filter ? '&filter=' . urlencode($filter) : '');
                    print($filtert ? '&search_filtert=' . urlencode($filtert) : '');
                    print($usergroup ? '&search_usergroup=' . urlencode($usergroup) : '');
                    print($actioncode != '' ? '&search_actioncode=' . urlencode($actioncode) : '');
                    print '">' . img_picto("all", "1downarrow_selected.png") . ' ...';
                    print ' +' . (count($eventarray[$daykey]) - $maxprint);
                    print '</a>';
                    break;
                    //$ok=false;        // To avoid to show twice the link
                }
            }

            break;
        }
    }
    if (!$i) {    // No events
        print '&nbsp;';
    }

    if (!empty($conf->global->MAIN_JS_SWITCH_AGENDA) && $itoshow > $ireallyshown && $maxprint) {
        print '<div class="center cursorpointer" id="more_' . $ymd . '">' . img_picto("All", "angle-double-down", 'class="warning"') . ' +' . ($itoshow - $ireallyshown) . '</div>';
        //print ' +'.(count($eventarray[$daykey])-$maxprint);

        print '<script type="text/javascript">' . "\n";
        print 'jQuery(document).ready(function () {' . "\n";
        print ' var open=0;' . "\n";
        print ' jQuery("#more_' . $ymd . '").click(function() { console.log("Click on showmore for ' . $ymd . '"); reinit_day_' . $ymd . '(); event.stopImmediatePropagation(); });' . "\n";
        print ' function reinit_day_' . $ymd . '() {' . "\n";
        print '  jQuery(".eventday_' . $ymd . '.showifmore").toggle();' . "\n";
        print '  open = open + 1; if (open > 1) { open = 0; }' . "\n";
        print '  if (open) { ';
        print '   jQuery("#more_' . $ymd . '").html(\'' . img_picto("All", "angle-double-up", 'class="warning"') . '\');' . "\n";
        print '  } else { ';
        print '   jQuery("#more_' . $ymd . '").html(\'' . img_picto("All", "angle-double-down", 'class="warning"') . ' +' . ($itoshow - $ireallyshown) . '\');' . "\n";
        print '  }' . "\n";
        print ' }' . "\n";
        print '});' . "\n";
        print '</script>' . "\n";
    }

    print '</div></div>'; // td tr

    print '</div>'; // table
    print "\n";
}

/**
 * Change color with a delta
 *
 * @param	string	$color		Color
 * @param 	int		$minus		Delta (1 = 16 unit). Positive value = darker color, Negative value = brighter color.
 * @param   int     $minusunit  Minus unit
 * @return	string				New color
 */
function dol_color_minus($color, $minus, $minusunit = 16)
{
    $newcolor = $color;
    if ($minusunit == 16) {
        $newcolor[0] = dechex(max(min(hexdec($newcolor[0]) - $minus, 15), 0));
        $newcolor[2] = dechex(max(min(hexdec($newcolor[2]) - $minus, 15), 0));
        $newcolor[4] = dechex(max(min(hexdec($newcolor[4]) - $minus, 15), 0));
    } else {
        // Not yet implemented
    }
    return $newcolor;
}

/**
 * Sort events by date
 *
 * @param   object  $a      Event A
 * @param   object  $b      Event B
 * @return  int             < 0 if event A should be before event B, > 0 otherwise, 0 if they have the exact same time slot
 */
function sort_events_by_date($a, $b)
{
    // Sort holidays at first
    if ($a->type_code === 'HOLIDAY') {
        return -1;
    }
    if ($b->type_code === 'HOLIDAY') {
        return 1;
    }

    // datep => Event start time
    // datef => Event end time

    // Events have different start time
    if ($a->datep !== $b->datep) {
        return $a->datep - $b->datep;
    }

    // Events have same start time and no end time
    if ((!is_numeric($b->datef)) || (!is_numeric($a->datef))) {
        return sort_events_by_percentage($a, $b);
    }

    // Events have the same start time and same end time
    if ($b->datef === $a->datef) {
        return sort_events_by_percentage($a, $b);
    }

    // Events have the same start time, but have different end time -> longest event first
    return $b->datef - $a->datef;
}

/**
 * Sort events by percentage
 *
 * @param   object  $a      Event A
 * @param   object  $b      Event B
 * @return  int             < 0 if event A should be before event B, > 0 otherwise, 0 if they have the exact same percentage
 */
function sort_events_by_percentage($a, $b)
{
    // Sort events with no percentage before each other
    // (usefull to sort holidays, sick days or similar on the top)

    if ($a->percentage < 0) {
        return -1;
    }

    if ($b->percentage < 0) {
        return 1;
    }

    return $b->percentage - $a->percentage;
}