<?php
/* Copyright (C) 2001-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2003      Eric Seigne          <erics@rycks.com>
 * Copyright (C) 2004-2010 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2005-2010 Regis Houssin        <regis@dolibarr.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 2 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, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/**
 *	\file       htdocs/comm/action/index.php
 *	\ingroup    agenda
 *	\brief      Home page of calendar events
 *	\version    $Id$
 */

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."/lib/date.lib.php");
require_once(DOL_DOCUMENT_ROOT."/lib/agenda.lib.php");
if ($conf->projet->enabled) require_once(DOL_DOCUMENT_ROOT."/lib/project.lib.php");

$filter=GETPOST("filter");
$filtera = GETPOST("userasked","int")?GETPOST("userasked","int"):GETPOST("filtera","int");
$filtert = GETPOST("usertodo","int")?GETPOST("usertodo","int"):GETPOST("filtert","int");
$filterd = GETPOST("userdone","int")?GETPOST("userdone","int"):GETPOST("filterd","int");
$showbirthday = GETPOST("showbirthday","int")?GETPOST("showbirthday","int"):0;

$sortfield = GETPOST("sortfield");
$sortorder = GETPOST("sortorder");
$page = GETPOST("page","int");
if ($page == -1) { $page = 0 ; }
$limit = $conf->liste_limit;
$offset = $limit * $page ;
if (! $sortorder) $sortorder="ASC";
if (! $sortfield) $sortfield="a.datec";

// Security check
$socid = GETPOST("socid","int",1);
if ($user->societe_id) $socid=$user->societe_id;
$result = restrictedArea($user, 'agenda', 0, '', 'myactions');

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

$action=GETPOST('action','alpha');
//$year=GETPOST("year");
$year=GETPOST("year","int")?GETPOST("year","int"):date("Y");
$month=GETPOST("month","int")?GETPOST("month","int"):date("m");
$day=GETPOST("day","int")?GETPOST("day","int"):0;
$pid=GETPOST("projectid","int")?GETPOST("projectid","int"):0;
$status=GETPOST("status");
$maxprint=GETPOST("maxprint");

if (GETPOST('viewcal'))  { $action='show_month'; $day=''; }         // View by month
if (GETPOST('viewweek')) { $action='show_week'; $week='TODO'; }     // View by week
if (GETPOST('viewday'))  { $action='show_day'; $day=date("d"); }    // View by day

$langs->load("other");
$langs->load("commercial");

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


/*
 * Actions
 */
if (GETPOST("viewlist"))
{
	$param='';
	foreach($_POST as $key => $val)
	{
		if ($key=='token') continue;
		$param.='&'.$key.'='.urlencode($val);
	}
	//print $param;
	header("Location: ".DOL_URL_ROOT.'/comm/action/listactions.php?'.$param);
	exit;
}

if ($action=='delete_action')
{
	$event = new ActionComm($db);
	$event->fetch($actionid);
	$result=$event->delete();
}


/*
 * View
 */

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

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

$now=dol_now('tzref');

if (empty($action) || $action=='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));  // 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 1 to show on month view (if tmpday=0 we start on monday)
    $tmpday = -date("w",dol_mktime(0,0,0,$month,1,$year))+2;
    $tmpday+=((isset($conf->global->MAIN_START_WEEK)?$conf->global->MAIN_START_WEEK:1)-1);
    if ($tmpday >= 1) $tmpday -= 7;
    // Define firstdaytoshow and lastdaytoshow
    $firstdaytoshow=dol_mktime(0,0,0,$prev_month,$max_day_in_prev_month+$tmpday,$prev_year);
    $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);
}
if ($action=='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
    $firstdaytoshow=dol_mktime(0,0,0,$prev_month,$prev_day,$prev_year);
    $lastdaytoshow=dol_mktime(0,0,0,$next_month,$next_day,$next_year);
}
//print 'xx'.$prev_year.'-'.$prev_month.'-'.$prev_day;
//print 'xx'.$next_year.'-'.$next_month.'-'.$next_day;
//print dol_print_date($firstdaytoshow,'day');
//print dol_print_date($lastdaytoshow,'day');

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

$param='';
if ($status)  $param="&status=".$status;
if ($filter)  $param.="&filter=".$filter;
if ($filtera) $param.="&filtera=".$filtera;
if ($filtert) $param.="&filtert=".$filtert;
if ($filterd) $param.="&filterd=".$filterd;
if ($socid)   $param.="&socid=".$socid;
if ($showbirthday) $param.="&showbirthday=1";
if ($pid)     $param.="&projectid=".$pid;
if (GETPOST("type"))   $param.="&type=".GETPOST("type");
if ($action == 'show_day') $param.='&action='.$action;
if ($maxprint) $param.="&maxprint=on";

// Show navigation bar
if (empty($action) || $action=='show_month')
{
    $nav ="<a href=\"?year=".$prev_year."&amp;month=".$prev_month."&amp;region=".$region.$param."\">".img_previous($langs->trans("Previous"))."</a>\n";
    $nav.=" <span id=\"month_name\">".dol_print_date(dol_mktime(0,0,0,$month,1,$year),"%b %Y");
    $nav.=" </span>\n";
    $nav.="<a href=\"?year=".$next_year."&amp;month=".$next_month."&amp;region=".$region.$param."\">".img_next($langs->trans("Next"))."</a>\n";
}
if ($action=='show_day')
{
    $nav ="<a href=\"?year=".$prev_year."&amp;month=".$prev_month."&amp;day=".$prev_day."&amp;region=".$region.$param."\">".img_previous($langs->trans("Previous"))."</a>\n";
    $nav.=" <span id=\"month_name\">".dol_print_date(dol_mktime(0,0,0,$month,$day,$year),"daytextshort");
    $nav.=" </span>\n";
    $nav.="<a href=\"?year=".$next_year."&amp;month=".$next_month."&amp;day=".$next_day."&amp;region=".$region.$param."\">".img_next($langs->trans("Next"))."</a>\n";
}

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

print_fiche_titre($title,$nav);

print_actions_filter($form,$canedit,$status,$year,$month,$day,$showborthday,$filtera,$filtert,$filterd,$pid,$socid);


// Get event in an array
$eventarray=array();

$sql = 'SELECT a.id,a.label,';
$sql.= ' a.datep,';
$sql.= ' a.datep2,';
$sql.= ' a.datea,';
$sql.= ' a.datea2,';
$sql.= ' a.percent,';
$sql.= ' a.fk_user_author,a.fk_user_action,a.fk_user_done,';
$sql.= ' a.priority, a.fulldayevent, a.location,';
$sql.= ' a.fk_soc, a.fk_contact,';
$sql.= ' ca.code';
$sql.= ' FROM '.MAIN_DB_PREFIX.'actioncomm as a';
$sql.= ', '.MAIN_DB_PREFIX.'c_actioncomm as ca';
$sql.= ', '.MAIN_DB_PREFIX.'user as u';
$sql.= ' WHERE a.fk_action = ca.id';
$sql.= ' AND a.fk_user_author = u.rowid';
$sql.= ' AND u.entity in (0,'.$conf->entity.')';	// To limit to entity
if ($user->societe_id) $sql.= ' AND a.fk_soc = '.$user->societe_id; // To limit to external user company
if ($pid) $sql.=" AND a.fk_project=".addslashes($pid);
if ($action == 'show_day')
{
	$sql.= " AND (";
	$sql.= " (datep BETWEEN '".$db->idate(dol_mktime(0,0,0,$month,$day,$year))."'";
	$sql.= " AND '".$db->idate(dol_mktime(23,59,59,$month,$day,$year))."')";
	$sql.= " OR ";
	$sql.= " (datep2 BETWEEN '".$db->idate(dol_mktime(0,0,0,$month,$day,$year))."'";
	$sql.= " AND '".$db->idate(dol_mktime(23,59,59,$month,$day,$year))."')";
	$sql.= " OR ";
	$sql.= " (datep < '".$db->idate(dol_mktime(0,0,0,$month,$day,$year))."'";
	$sql.= " AND datep2 > '".$db->idate(dol_mktime(23,59,59,$month,$day,$year))."')";
	$sql.= ')';
}
else
{
	// To limit array
	$sql.= " AND (";
	$sql.= " (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.= " (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.= " (datep < '".$db->idate(dol_mktime(0,0,0,$month,1,$year)-(60*60*24*7))."'";
	$sql.= " AND datep2 > '".$db->idate(dol_mktime(23,59,59,$month,28,$year)+(60*60*24*10))."')";
	$sql.= ')';
}
if ($filtera > 0 || $filtert > 0 || $filterd > 0)
{
	$sql.= " AND (";
	if ($filtera > 0) $sql.= " a.fk_user_author = ".$filtera;
	if ($filtert > 0) $sql.= ($filtera>0?" OR ":"")." a.fk_user_action = ".$filtert;
	if ($filterd > 0) $sql.= ($filtera>0||$filtert>0?" OR ":"")." a.fk_user_done = ".$filterd;
	$sql.= ")";
}
if ($status == 'done') { $sql.= " AND a.percent = 100"; }
if ($status == 'todo') { $sql.= " AND a.percent < 100"; }
// Sort on date
$sql.= ' ORDER BY datep';
//print $sql;

dol_syslog("comm/action/index.php sql=".$sql, LOG_DEBUG);
$resql=$db->query($sql);
if ($resql)
{
	$num = $db->num_rows($resql);
	$i=0;
	while ($i < $num)
	{
		$obj = $db->fetch_object($resql);

		// Create a new object action
		$event=new ActionComm($db);
		$event->id=$obj->id;
		$event->datep=$db->jdate($obj->datep);
		$event->datef=$db->jdate($obj->datep2);
		$event->type_code=$obj->code;
		$event->libelle=$obj->label;
		$event->percentage=$obj->percent;
		$event->author->id=$obj->fk_user_author;
		$event->usertodo->id=$obj->fk_user_action;
		$event->userdone->id=$obj->fk_user_done;

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

        $event->societe->id=$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.
		if ($event->percentage <= 0)
		{
			$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;
		}
		else
		{
			$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;
		}
		// Define ponctual property
		if ($event->date_start_in_calendar == $event->date_end_in_calendar)
		{
			$event->ponctuel=1;
		}

		// 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;

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

			// 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);
			do
			{
				//if ($event->id==408) print 'daykey='.$daykey.' '.$event->datep.' '.$event->datef.'<br>';

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

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

			//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);
}

if ($showbirthday)
{
	// Add events in array
	$sql = 'SELECT sp.rowid, sp.name, sp.firstname, sp.birthday';
	$sql.= ' FROM '.MAIN_DB_PREFIX.'socpeople as sp';
	$sql.= ' WHERE (priv=0 OR (priv=1 AND fk_user_creat='.$user->id.'))';
	$sql.= ' AND sp.entity = '.$conf->entity;
	if ($action == 'show_day')
	{
		$sql.= ' AND MONTH(birthday) = '.$month;
		$sql.= ' AND DAY(birthday) = '.$day;
	}
	else
	{
		$sql.= ' AND MONTH(birthday) = '.$month;
	}
	$sql.= ' ORDER BY birthday';

	dol_syslog("comm/action/index.php sql=".$sql, LOG_DEBUG);
	$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);
			$event->id=$obj->rowid;	// We put contact id in action id for birthdays events
			$datebirth=dol_stringtotime($obj->birthday);
			//print 'ee'.$obj->birthday.'-'.$datebirth;
			$datearray=dol_getdate($datebirth,true);
			$event->datep=dol_mktime(0,0,0,$datearray['mon'],$datearray['mday'],$year);
			$event->datef=$event->datep;
			$event->type_code='BIRTHDAY';
			$event->libelle=$langs->trans("Birthday").' '.$obj->firstname.' '.$obj->name;
			$event->percentage=100;

			$event->date_start_in_calendar=$event->datep;
			$event->date_end_in_calendar=$event->datef;
			$event->ponctuel=0;

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

			$loop=true;
			$daykey=dol_mktime(0,0,0,$mois,$jour,$annee);
			do
			{
				$eventarray[$daykey][]=$event;
				$daykey+=60*60*24;
				if ($daykey > $event->date_end_in_calendar) $loop=false;
			}
			while ($loop);
			$i++;
		}
	}
	else
	{
		dol_print_error($db);
	}
}

$maxlength=16;
$cachethirdparties=array();
$cachecontact=array();

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

// Add link to show birthdays
$link='<a href="'.$_SERVER['PHP_SELF'];
$newparam=$param;
$newparam=preg_replace('/showbirthday=[0-1]/i','showbirthday='.(empty($showbirthday)?1:0),$newparam);
if (! preg_match('/showbirthday=/i',$newparam)) $newparam.='&showbirthday=1';
$link.='?'.$newparam;
$link.='">';
if (empty($showbirthday)) $link.=$langs->trans("AgendaShowBirthdayEvents");
else $link.=$langs->trans("AgendaHideBirthdayEvents");
$link.='</a>';
print_fiche_titre('',$link);

if (empty($action) || $action == 'show_month')		// View by month
{
	echo '<table width="100%" class="nocellnopadd">';
	echo ' <tr class="liste_titre">';
	$i=0;
	while ($i < 7)
	{
		echo '  <td align="center">'.$langs->trans("Day".(($i+(isset($conf->global->MAIN_START_WEEK)?$conf->global->MAIN_START_WEEK:1)) % 7))."</td>\n";
		$i++;
	}
	echo " </tr>\n";

	// In loops, tmpday contains day nb in current month (can be zero or negative for days of previous month)
	//var_dump($eventarray);
	//print $tmpday;
	for($iter_week = 0; $iter_week < 6 ; $iter_week++)
	{
		echo " <tr>\n";
		for($iter_day = 0; $iter_day < 7; $iter_day++)
		{
			/* Show days before the beginning of the current month (previous month)  */
			if($tmpday <= 0)
			{
				$style='cal_other_month';
				echo '  <td class="'.$style.'" width="14%" valign="top"  nowrap="nowrap">';
				show_day_events ($db, $max_day_in_prev_month + $tmpday, $prev_month, $prev_year, $month, $style, $eventarray, $conf->global->AGENDA_MAX_EVENTS_DAY_VIEW, $maxlength, $param);
				echo "  </td>\n";
			}
			/* Show days of the current month */
			elseif(($tmpday <= $max_day_in_month))
			{
				$curtime = dol_mktime (0, 0, 0, $month, $tmpday, $year);

				if ($curtime < $now)
				$style='cal_current_month';
				else if($curtime == $now)
				$style='cal_today';
				else
				$style='cal_current_month';

				echo '  <td class="'.$style.'" width="14%" valign="top"  nowrap="nowrap">';
				show_day_events($db, $tmpday, $month, $year, $month, $style, $eventarray, $conf->global->AGENDA_MAX_EVENTS_DAY_VIEW, $maxlength, $param);
				echo "  </td>\n";
			}
			/* Show days after the current month (next month) */
			else
			{
				$style='cal_other_month';
				echo '  <td class="'.$style.'" width="14%" valign="top"  nowrap="nowrap">';
				show_day_events($db, $tmpday - $max_day_in_month, $next_month, $next_year, $month, $style, $eventarray, $conf->global->AGENDA_MAX_EVENTS_DAY_VIEW, $maxlength, $param);
				echo "</td>\n";
			}
			$tmpday++;
		}
		echo " </tr>\n";
	}
	echo "</table>\n";
}
else	// View by day
{
	// Code to show just one day
	$style='cal_current_month';
	$timestamp=dol_mktime(12,0,0,$month,$day,$year);
	$arraytimestamp=adodb_getdate(dol_mktime(12,0,0,$month,$day,$year));
	echo '<table width="100%" class="nocellnopadd">';
	echo ' <tr class="liste_titre">';
	echo '  <td align="center">'.$langs->trans("Day".$arraytimestamp['wday'])."</td>\n";
	echo " </tr>\n";
	echo " <tr>\n";
	echo '  <td class="'.$style.'" width="14%" valign="top"  nowrap="nowrap">';
	show_day_events ($db, $day, $month, $year, $month, $style, $eventarray, 0, 80, $param, 1, 300);
	echo "</td>\n";
	echo " </tr>\n";
	echo '</table>';
}


$db->close();


llxFooter('$Date$ - $Revision$');


/**
 * Show event of a particular day
 *
 * @param 	$db				 Database handler
 * @param 	$day			 Day
 * @param 	$month			 Month
 * @param 	$year			 Year
 * @param 	$monthshown      Current month shown in calendar view
 * @param 	$style	         Style to use for this day
 * @param 	$eventarray      Array of events
 * @param 	$maxPrint		 Nb of actions to show each day on month view (0 means non limit)
 * @param 	$maxnbofchar	 Nb of characters to show for event line
 * @param   $newparam        Parameters on current URL
 * @param   $showinfo        Add extended information (used by day view)
 * @param   $minheight       Minimum height for each event. 60px by default.
 */
function show_day_events($db, $day, $month, $year, $monthshown, $style, &$eventarray, $maxPrint=0, $maxnbofchar=14, $newparam='', $showinfo=0, $minheight=60)
{
	global $user, $conf, $langs;
	global $filter, $filtera, $filtert, $filterd, $status;
	global $theme_datacolor;
	global $cachethirdparty, $cachecontact;

	if ($_GET["maxprint"] == 'on') $maxPrint=0;   // Force to remove limits

	$curtime = dol_mktime (0, 0, 0, $month, $day, $year);

	print '<table class="nobordernopadding" width="100%">';
	print '<tr style="background: #EEEEEE"><td align="left" nowrap="nowrap">';
	print '<a href="'.DOL_URL_ROOT.'/comm/action/index.php?';
	print 'action=show_day&day='.str_pad($day, 2, "0", STR_PAD_LEFT);
	print $newparam;
	//.'&month='.$month.'&year='.$year;
	print '">';
	if ($showinfo) print dol_print_date($curtime,'daytext');
	else print dol_print_date($curtime,'%d');
	print '</a>';
	print '</td><td align="right" nowrap="nowrap">';
	if ($user->rights->agenda->myactions->create || $user->rights->agenda->allactions->create)
	{
	    //$param='month='.$monthshown.'&year='.$year;
		print '<a href="'.DOL_URL_ROOT.'/comm/action/fiche.php?action=create&datep='.sprintf("%04d%02d%02d",$year,$month,$day).'&backtopage='.urlencode($_SERVER["PHP_SELF"].($newparam?'?'.$newparam:'')).'">';
		print img_picto($langs->trans("NewAction"),'edit_add.png');
		print '</a>';
	}
	print '</td></tr>';
	print '<tr height="'.$minheight.'"><td valign="top" colspan="2" nowrap="nowrap">';

	//$curtime = dol_mktime (0, 0, 0, $month, $day, $year);
	$i=0;

	foreach ($eventarray as $daykey => $notused)
	{
		$annee = date('Y',$daykey);
		$mois = date('m',$daykey);
		$jour = date('d',$daykey);
		if ($day==$jour && $month==$mois && $year==$annee)
		{
			foreach ($eventarray[$daykey] as $index => $event)
			{
				if ($i < $maxPrint || $maxPrint == 0)
				{
					$ponct=($event->date_start_in_calendar == $event->date_end_in_calendar);
					// Show rect of event
					$colorindex=0;
					if ($event->author->id == $user->id || $event->usertodo->id == $user->id || $event->userdone->id == $user->id) $colorindex=1;
					if ($event->type_code == 'BIRTHDAY') $colorindex=2;
					$color=sprintf("%02x%02x%02x",$theme_datacolor[$colorindex][0],$theme_datacolor[$colorindex][1],$theme_datacolor[$colorindex][2]);
					//print "x".$color;
					print '<table class="cal_event" style="background: #'.$color.'; -moz-border-radius:4px; " width="100%"><tr>';
					print '<td nowrap="nowrap">';
					if ($event->type_code != 'BIRTHDAY')
					{
                        if ($showinfo)
                        {
                            print $event->getNomUrl(2).' ';
                        }

					    if (empty($event->fulldayevent))
					    {
    					    // Show hours (start ... end)
    						$tmpyearstart  = date('Y',$event->date_start_in_calendar);
    						$tmpmonthstart = date('m',$event->date_start_in_calendar);
    						$tmpdaystart   = date('d',$event->date_start_in_calendar);
    						$tmpyearend    = date('Y',$event->date_end_in_calendar);
    						$tmpmonthend   = date('m',$event->date_end_in_calendar);
    						$tmpdayend     = date('d',$event->date_end_in_calendar);
    						// Hour start
    						if ($tmpyearstart == $annee && $tmpmonthstart == $mois && $tmpdaystart == $jour)
    						{
    							print dol_print_date($event->date_start_in_calendar,'%H:%M');
    							if ($event->date_end_in_calendar && $event->date_start_in_calendar != $event->date_end_in_calendar)
    							{
    								if ($tmpyearstart == $tmpyearend && $tmpmonthstart == $tmpmonthend && $tmpdaystart == $tmpdayend)
    								print '-';
    								//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)
    							{
    								print '...';
    							}
    						}
    						// 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)
    							print dol_print_date($event->date_end_in_calendar,'%H:%M');
    						}
    						print '<br>'."\n";
					    }
					    else
					    {
					       if ($showinfo)
					       {
                                print $langs->trans("EventOnFullDay").'<br>'."\n";
					       }
					    }

						// If action related to company / contact
						$linerelatedto='';$length=16;
						if (! empty($event->societe->id) && ! empty($event->contact->id)) $length=8;
                        if (! empty($event->societe->id))
                        {
                            if (empty($cachethirdparties[$event->societe->id]))
                            {
                                $thirdparty=new Societe($db);
                                $thirdparty->fetch($event->societe->id);
                                $cachethirdparties[$event->societe->id]=$thirdparty;
                            }
                            $linerelatedto.=$thirdparty->getNomUrl(1,'',$length);
                        }
                        if (! empty($event->contact->id))
                        {
                            if (empty($cachetcontact[$event->societe->id]))
                            {
                                $contact=new Contact($db);
                                $contact->fetch($event->contact->id);
                                $cachethirdparties[$event->contact->id]=$thirdparty;
                            }
                            if ($linerelatedto) $linerelatedto.=' / ';
                            $linerelatedto.=$contact->getNomUrl(1,'',$length);
                        }
                        if ($linerelatedto) print $linerelatedto.'<br>';

						// Show label
						print $event->getNomUrl(0,$maxnbofchar,'cal_event');
					}
					else	// It's a birthday
					{
						print $event->getNomUrl(1,$maxnbofchar,'cal_event','birthday','contact');
					}
					// Show location
					if ($showinfo)
					{
					    if ($event->location)
					    {
					        print '<br>';
                            print $langs->trans("Location").': '.$event->location;
					    }
					}
					print '</td>';
                    // Status - Percent
					print '<td align="right" nowrap="nowrap">';
					if ($event->type_code != 'BIRTHDAY') print $event->getLibStatut(3);
					else print '&nbsp;';
					print '</td></tr></table>';
					$i++;
				}
				else
				{
					print '<a href="'.DOL_URL_ROOT.'/comm/action/index.php?maxprint=on&month='.$monthshown.'&year='.$year;
					print ($status?'&status='.$status:'').($filter?'&filter='.$filter:'');
                    print ($filtera?'&filtera='.$filtera:'').($filtert?'&filtert='.$filtert:'').($filterd?'&filterd='.$filterd:'');
					print '">'.img_picto("all","1downarrow_selected.png").' ...';
					print ' +'.(sizeof($eventarray[$daykey])-$maxPrint);
					print '</a>';
					break;
					//$ok=false;		// To avoid to show twice the link
				}
			}
			break;
		}
	}
	if (! $i) print '&nbsp;';
	print '</td></tr>';
	print '</table>';
}

?>