<?php
/* Copyright (C) 2000-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2003      Jean-Louis Bergamo   <jlb@j1b.org>
 * Copyright (C) 2004-2005 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2004      Sebastien Di Cintio  <sdicintio@ressource-toi.org>
 * Copyright (C) 2004      Benoit Mortier       <benoit.mortier@opensides.be>
 * Copyright (C) 2004      Christophe Combelles <ccomb@free.fr>
 * Copyright (C) 2005-2007 Regis Houssin        <regis.houssin@cap-networks.com>
 *
 * 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.
 * or see http://www.gnu.org/
 *
 * $Id$
 * $Source$
 */

/**
   \file       htdocs/lib/functions.inc.php
   \brief      Ensemble de fonctions de base de dolibarr sous forme d'include
   \author     Rodolphe Quiedeville
   \author	    Jean-Louis Bergamo
   \author	    Laurent Destailleur
   \author     Sebastien Di Cintio
   \author     Benoit Mortier
   \version    $Revision$
   
   Ensemble de fonctions de base de dolibarr sous forme d'include
*/


/**
   \brief      Renvoi une version en chaine depuis une version en tableau
   \param	    versionarray        Tableau de version (vermajeur,vermineur,autre)
   \return     string              Chaine version
*/
function versiontostring($versionarray)
{
  $string='?';
  if (isset($versionarray[0])) $string=$versionarray[0];
  if (isset($versionarray[1])) $string.='.'.$versionarray[1];
  if (isset($versionarray[2])) $string.='.'.$versionarray[2];
  return $string;
}

/**
   \brief      Compare 2 versions
   \param      versionarray1       Tableau de version (vermajeur,vermineur,autre)
   \param      versionarray2       Tableau de version (vermajeur,vermineur,autre)
   \return     int                 <0 si versionarray1<versionarray2, 0 si =, >0 si versionarray1>versionarray2
*/
function versioncompare($versionarray1,$versionarray2)
{
    $ret=0;
    $i=0;
    while ($i < max(sizeof($versionarray1),sizeof($versionarray1)))
    {
        $operande1=isset($versionarray1[$i])?$versionarray1[$i]:0;
        $operande2=isset($versionarray2[$i])?$versionarray2[$i]:0;
        if ($operande1 < $operande2) { $ret = -1; break; }
        if ($operande1 > $operande2) { $ret =  1; break; }
        $i++;
    }
    return $ret;
}


/**
   \brief      Renvoie version PHP
   \return     array               Tableau de version (vermajeur,vermineur,autre)
*/
function versionphp()
{
  return split('\.',PHP_VERSION);
}


/**
   \brief      Renvoi vrai si l'email est syntaxiquement valide
   \param	    address     adresse email (Ex: "toto@titi.com", "John Do <johndo@titi.com>")
   \return     boolean     true si email valide, false sinon
*/
function ValidEmail($address)
{
  if (ereg( ".*<(.+)>", $address, $regs)) {
    $address = $regs[1];
  }
  if (ereg( "^[^@  ]+@([a-zA-Z0-9\-]+\.)+([a-zA-Z0-9\-]{2}|net|com|gov|mil|org|edu|info|name|int)\$",$address))
    {
      return true;
    }
  else
    {
      return false;
    }
}

/**
   \brief      Renvoi vrai si l'email a un nom de domaine qui résoud via dns
   \param	    mail        adresse email (Ex: "toto@titi.com", "John Do <johndo@titi.com>")
   \return     boolean     true si email valide, false sinon
*/
function check_mail ($mail)
{
  list($user, $domain) = split("@", $mail, 2);
  if (checkdnsrr($domain, "MX"))
    {
      return true;
    }
  else
    {
      return false;
    }
}

/**
        \brief          Nettoie chaine de caractère des accents
        \param          str             Chaine a nettoyer
        \return         string          Chaine nettoyé
*/
function unaccent($str)
{
  $acc = array("à","ä","é","è","ë","ï","î","ö","ô","ù","ü","'");
  $uac = array("a","a","e","e","e","i","i","o","o","u","u","");

  return str_replace($acc, $uac, $str);
}

/**
        \brief          Nettoie chaine de caractère de caractères spéciaux
        \param          str             Chaine a nettoyer
        \return         string          Chaine nettoyé
*/
function sanitize_string($str)
{
    $forbidden_chars_to_underscore=array(" ","'","/","\\",":","*","?","\"","<",">","|","[","]",",",";","=");
    //$forbidden_chars_to_remove=array("(",")");
    $forbidden_chars_to_remove=array();
    return str_replace($forbidden_chars_to_underscore,"_",str_replace($forbidden_chars_to_remove,"",$str));
}


/**
   \brief      Envoi des messages dolibarr dans un fichier ou dans syslog
   Pour fichier:   fichier défini par SYSLOG_FILE
   Pour syslog:    facility défini par SYSLOG_FACILITY
   \param      message		    Message a tracer
   \param      level           Niveau de l'erreur
   \remarks	Cette fonction n'a un effet que si le module syslog est activé.
   Warning, les fonctions syslog sont buggués sous Windows et génèrent des
   fautes de protection mémoire. Pour résoudre, utiliser le loggage fichier,
   au lieu du loggage syslog (configuration du module).
   Si SYSLOG_FILE_NO_ERROR défini, on ne gère pas erreur ecriture log
   \remarks	On windows LOG_ERROR=4, LOG_WARNING=5, LOG_NOTICE=LOG_DEBUG=6
*/
function dolibarr_syslog($message, $level=LOG_INFO)
{
	global $conf,$user,$langs;

	if ($conf->syslog->enabled)
	{
		if ($level > SYSLOG_LEVEL) return;
		
		// Ajout user a la log
		$login='???';
		if (is_object($user) && $user->id) $login=$user->login;
		$message=sprintf("%-8s",$login)." ".$message;
		
		if (defined("SYSLOG_FILE") && SYSLOG_FILE)
		{
			if (defined("SYSLOG_FILE_NO_ERROR")) $file=@fopen(SYSLOG_FILE,"a+");
			else $file=fopen(SYSLOG_FILE,"a+");
			if ($file)
			{
				fwrite($file,strftime("%Y-%m-%d %H:%M:%S",time())." ".$level." ".$message."\n");
				fclose($file);
			}
			elseif (! defined("SYSLOG_FILE_NO_ERROR"))
			{
				$langs->load("main");
				print $langs->trans("ErrorFailedToOpenFile",SYSLOG_FILE);
			}
		}
		else
		{
			//define_syslog_variables(); déjà définit dans master.inc.php
			if (defined("MAIN_SYSLOG_FACILITY") && MAIN_SYSLOG_FACILITY)
			{
				$facility = MAIN_SYSLOG_FACILITY;
			}
			elseif (defined("SYSLOG_FACILITY") && SYSLOG_FACILITY && defined(SYSLOG_FACILITY))
			{
				// Exemple: SYSLOG_FACILITY vaut LOG_USER qui vaut 8. On a besoin de 8 dans $facility.
				$facility = constant(SYSLOG_FACILITY);
			}
			else
			{
				$facility = LOG_USER;
			}
			
			openlog("dolibarr", LOG_PID | LOG_PERROR, $facility);
			
			if (! $level)
			{
				syslog(LOG_ERR, $message);
			}
			else
			{
				syslog($level, $message);
			}
			
			closelog();
		}
	}
}

/**
   \brief      Affiche le header d'une fiche
   \param	    links		Tableau de titre d'onglets
   \param	    active      0=onglet non actif, 1=onglet actif
   \param      title       Titre tabelau ("" par defaut)
   \param      notab		0=Add tab header, 1=no tab header
*/
function dolibarr_fiche_head($links, $active='0', $title='', $notab=0)
{
    print "\n".'<div class="tabs">'."\n";

    // Affichage titre
    if ($title)
    {
        $limittitle=30;
        print '<a class="tabTitle">';
        print
			((!defined('MAIN_USE_SHORT_TITLE')) || (defined('MAIN_USE_SHORT_TITLE') &&  MAIN_USE_SHORT_TITLE))
			? dolibarr_trunc($title,$limittitle)
			: $title;
        print '</a>';
    }

    // Affichage onglets
    for ($i = 0 ; $i < sizeof($links) ; $i++)
    {
        if ($links[$i][2] == 'image')
        {
            print '<a class="tabimage" href="'.$links[$i][0].'">'.$links[$i][1].'</a>'."\n";
        }
        else
        {
        	//print "x $i $active ".$links[$i][2]." z";
            if ((is_numeric($active) && $i == $active)
             || (! is_numeric($active) && $active == $links[$i][2]))
            {
                print '<a id="active" class="tab" href="'.$links[$i][0].'">'.$links[$i][1].'</a>'."\n";
            }
            else
            {
                print '<a class="tab" href="'.$links[$i][0].'">'.$links[$i][1].'</a>'."\n";
            }
        }
    }

    print "</div>\n";

    if (! $notab) print '<div class="tabBar">'."\n\n";
}

/**
		\brief      Récupère une constante depuis la base de données.
		\see        dolibarr_del_const, dolibarr_set_const
		\param	    db          Handler d'accès base
		\param	    name		Nom de la constante
		\return     string      Valeur de la constante
*/
function dolibarr_get_const($db, $name)
{
    $value='';

    $sql ="SELECT value";
    $sql.=" FROM llx_const";
    $sql.=" WHERE name = '$name';";
    $resql=$db->query($sql);
    if ($resql)
    {
        $obj=$db->fetch_object($resql);
        $value=$obj->value;
    }
    return $value;
}


/**
   \brief      Insertion d'une constante dans la base de données.
   \see        dolibarr_del_const, dolibarr_get_const
   \param	    db          Handler d'accès base
   \param	    name		Nom de la constante
   \param	    value		Valeur de la constante
   \param	    type		Type de constante (chaine par défaut)
   \param	    visible	    La constante est elle visible (0 par défaut)
   \param	    note		Explication de la constante
   \return     int         <0 si ko, >0 si ok
*/
function dolibarr_set_const($db, $name, $value, $type='chaine', $visible=0, $note='')
{
    global $conf;

    $db->begin();

    if (! $name)
    {
    	dolibarr_print_error("Error: Call to function dolibarr_set_const with wrong parameters");
    	exit;
    }

    //dolibarr_syslog("dolibarr_set_const name=$name, value=$value");
    $sql = "DELETE FROM llx_const WHERE name = '$name';";
    $resql=$db->query($sql);

    $sql = "INSERT INTO llx_const(name,value,type,visible,note)";
    $sql.= " VALUES ('$name','".addslashes($value)."','$type',$visible,'".addslashes($note)."');";
    $resql=$db->query($sql);

    if ($resql)
    {
        $db->commit();
        $conf->global->$name=$value;
        return 1;
    }
    else
    {
        $db->rollback();
        return -1;
    }
}

/**
   \brief      Effacement d'une constante dans la base de données
   \see        dolibarr_get_const, dolibarr_sel_const
   \param	    db          Handler d'accès base
   \param	    name		Nom ou rowid de la constante
   \return     int         <0 si ko, >0 si ok
*/
function dolibarr_del_const($db, $name)
{
  $sql = "DELETE FROM llx_const WHERE name='$name' or rowid='$name'";
  $resql=$db->query($sql);
  
  if ($resql)
    {
      return 1;
    }
  else
    {
      return -1;
    }
}


/**
   \brief      Sauvegarde parametrage personnel
   \param	    db          Handler d'accès base
   \param	    user        Objet utilisateur
   \param	    url         Si defini, on sauve parametre du tableau tab dont clé = (url avec sortfield, sortorder, begin et page)
   Si non defini on sauve tous parametres du tableau tab
   \param	    tab         Tableau (clé=>valeur) des paramètres à sauvegarder
   \return     int         <0 si ko, >0 si ok
*/
function dolibarr_set_user_page_param($db, &$user, $url='', $tab)
{
    // Verification parametres
    if (sizeof($tab) < 1) return -1;
    
    $db->begin();

    // On efface anciens paramètres pour toutes les clé dans $tab
    $sql = "DELETE FROM ".MAIN_DB_PREFIX."user_param";
    $sql.= " WHERE fk_user = ".$user->id;
    if ($url) $sql.=" AND page='".$url."'";
    else $sql.=" AND page=''";	// Page ne peut etre null
    $sql.= " AND param in (";
    $i=0;
    foreach ($tab as $key => $value)
    {
		if ($i > 0) $sql.=',';
		$sql.="'".$key."'";
		$i++;
	}
	$sql.= ")";
    dolibarr_syslog("functions.inc.php::dolibarr_set_user_page_param $sql");

    $resql=$db->query($sql);
    if (! $resql)
    {
        dolibarr_print_error($db);
        $db->rollback();
    	exit;
    }

    foreach ($tab as $key => $value)
    {
        // On positionne nouveaux paramètres
        if ($value && (! $url || in_array($key,array('sortfield','sortorder','begin','page'))))
        {
            $sql = "INSERT INTO ".MAIN_DB_PREFIX."user_param(fk_user,page,param,value)";
            $sql.= " VALUES (".$user->id.",";
            if ($url) $sql.= " '".urlencode($url)."',";
            else $sql.= " '',";
            $sql.= " '".$key."','".addslashes($value)."');";
            dolibarr_syslog("functions.inc.php::dolibarr_set_user_page_param $sql");

            $result=$db->query($sql);
            if (! $result)
            {
		        dolibarr_print_error($db);
            	$db->rollback();
            	exit;
            }

            $user->page_param[$key] = $value;
        }
    }

    $db->commit();
    return 1;
}


/**
		\brief  Formattage des nombres
		\param	ca			valeur a formater
		\return	int			valeur formatée
*/
function dolibarr_print_ca($ca)
{
    global $langs,$conf;

    if ($ca > 1000)
    {
      $cat = round(($ca / 1000),2);
      $cat = "$cat K".$langs->trans("Currency".$conf->monnaie);
    }
    else
    {
      $cat = round($ca,2);
      $cat = "$cat ".$langs->trans("Currency".$conf->monnaie);
    }

    if ($ca > 1000000)
    {
      $cat = round(($ca / 1000000),2);
      $cat = "$cat M".$langs->trans("Currency".$conf->monnaie);
    }

    return $cat;
}


/**
		\brief      Effectue un décalage de date par rapport à une durée
		\param	    time                Date timestamp ou au format YYYY-MM-DD
		\param	    duration_value      Valeur de la durée à ajouter
		\param	    duration_unit       Unité de la durée à ajouter (d, m, y)
		\return     int                 Nouveau timestamp
*/
function dolibarr_time_plus_duree($time,$duration_value,$duration_unit)
{
	if ($duration_value == 0) return $time;
	if ($duration_value > 0) $deltastring="+".abs($duration_value);
	if ($duration_value < 0) $deltastring="-".abs($duration_value);
    if ($duration_unit == 'd') { $deltastring.=" day"; }
    if ($duration_unit == 'm') { $deltastring.=" month"; }
    if ($duration_unit == 'y') { $deltastring.=" year"; }
    return strtotime($deltastring,$time);
}


/**
		\brief      Formattage de la date en fonction de la langue $conf->langage
		\param	    time        Date 'timestamp' ou format 'YYYY-MM-DD' ou 'YYYY-MM-DD HH:MM:SS'
		\param	    format      Format d'affichage de la date
									"%d %b %Y",
									"%d/%m/%Y %H:%M",
									"%d/%m/%Y %H:%M:%S",
									"day", "daytext", "dayhour", "dayhourtext"
		\return     string      Date formatée ou '' si time null
*/
function dolibarr_print_date($time,$format='')
{
    global $conf;

    // Si format non défini, on prend $conf->format_date_text_short
    if (! $format) $format=$conf->format_date_text_short;

    if ($format == 'day')         $format=$conf->format_date_short;
    if ($format == 'daytext')     $format=$conf->format_date_text_short;
    if ($format == 'dayhour')     $format=$conf->format_date_hour_short;
    if ($format == 'dayhourtext') $format=$conf->format_date_hour_text_short;

    // Si date non définie, on renvoie ''
    if (! $time) return '';

    // Analyse de la date
    if (eregi('^([0-9]+)\-([0-9]+)\-([0-9]+)\s?([0-9]+)?:?([0-9]+)?',$time,$reg))
    {
        // Date est au format 'YYYY-MM-DD' ou 'YYYY-MM-DD HH:MM:SS'
        $syear = $reg[1];
        $smonth = $reg[2];
        $sday = $reg[3];
        $shour = $reg[4];
        $smin = $reg[5];
        if ($syear < 1970 && isset($_SERVER["WINDIR"]))
        {
            return strftime($format,dolibarr_mktime($shour,$smin,0,$smonth,$sday,$syear));
        }
        else
        {
            return strftime($format,mktime($shour,$smin,0,$smonth,$sday,$syear));
        }
    }
    else
    {
        // Date est un timestamps
        return strftime($format,$time);
    }
}


/**
		\brief  	Retourne une date fabriquée depuis une chaine
		\param		string			Date formatée en chaine (YYYYMMDD ou YYYYMMDDHHMMSS)
		\return		date			Date
*/
function dolibarr_stringtotime($string)
{
	$string=eregi_replace('[^0-9]','',$string);
	$tmp=$string.'000000';					// Si date YYYYMMDD
	$date=mktime(substr($tmp,8,2),substr($tmp,10,2),substr($tmp,12,2),substr($tmp,4,2),substr($tmp,6,2),substr($tmp,0,4));
	return $date;
}


/**
		\brief  	Retourne une date fabriquée depuis infos.
					Remplace la fonction mktime non implémentée sous Windows si année < 1970
		\param		x				X
		\param		y				Y
		\param		z				Z
		\param		month			Mois
		\param		day				Jour
		\param		year			Année
		\return		date			Date
*/
function dolibarr_mktime($x,$y,$z,$month,$day,$year)
{
	$montharray=array(1=>'january',2=>'february',3=>'march',4=>'april',5=>'may',6=>'june',
					  7=>'july',8=>'august',9=>'september',10=>'october',11=>'november',12=>'december');
					  
	if ($year <= 1970 && $_SERVER["WINDIR"])
	{
		// Sous Windows, mktime ne fonctionne pas quand année < 1970.
		// On utilise strtotime pour obtenir la traduction.
		$string=$day." ".$montharray[0+$month]." ".$year;
		$date=strtotime($string);
		//print "x".($month)."y".(0+$month)." ".$string." ".$date."e";
		//print "eee".$db->idate($date);
		return $date;
	}
 	else
 	{
		return mktime($x,$y,$z,$month,$day,$year);
 	}
}


/**
		\brief  Affiche les informations d'un objet
		\param	object			objet a afficher
*/
function dolibarr_print_object_info($object)
{
    global $langs;
	$langs->load("other");

    if (isset($object->user_creation) && $object->user_creation->fullname)
        print $langs->trans("CreatedBy")." : " . $object->user_creation->fullname . '<br>';

    if (isset($object->date_creation))
        print $langs->trans("DateCreation")." : " . dolibarr_print_date($object->date_creation,"%A %d %B %Y %H:%M:%S") . '<br>';

    if (isset($object->user_modification) && $object->user_modification->fullname)
        print $langs->trans("ModifiedBy")." : " . $object->user_modification->fullname . '<br>';

    if (isset($object->date_modification))
        print $langs->trans("DateLastModification")." : " . dolibarr_print_date($object->date_modification,"%A %d %B %Y %H:%M:%S") . '<br>';

    if (isset($object->user_validation) && $object->user_validation->fullname)
        print $langs->trans("ValidatedBy")." : " . $object->user_validation->fullname . '<br>';

    if (isset($object->date_validation))
        print $langs->trans("DateValidation")." : " . dolibarr_print_date($object->date_validation,"%A %d %B %Y %H:%M:%S") . '<br>';

    if (isset($object->user_cloture) && $object->user_cloture->fullname )
        print $langs->trans("ClosedBy")." : " . $object->user_cloture->fullname . '<br>';

    if (isset($object->date_cloture))
        print $langs->trans("DateClosing")." : " . dolibarr_print_date($object->date_cloture,"%A %d %B %Y %H:%M:%S") . '<br>';

    if (isset($object->user_rappro) && $object->user_rappro->fullname )
        print $langs->trans("ConciliatedBy")." : " . $object->user_rappro->fullname . '<br>';

    if (isset($object->date_rappro))
        print $langs->trans("DateConciliating")." : " . dolibarr_print_date($object->date_rappro,"%A %d %B %Y %H:%M:%S") . '<br>';
}

/**
        \brief      Formatage des numéros de telephone en fonction du format d'un pays
        \param	    phone			Numéro de telephone à formater
        \param	    country			Pays selon lequel formatter
        \return     string			Numéro de téléphone formaté
*/
function dolibarr_print_phone($phone,$country="FR")
{
    $phone=trim($phone);
    if (strstr($phone, ' ')) { return $phone; }
    if (strtoupper($country) == "FR") {
        // France
        if (strlen($phone) == 10) {
            return substr($phone,0,2)."&nbsp;".substr($phone,2,2)."&nbsp;".substr($phone,4,2)."&nbsp;".substr($phone,6,2)."&nbsp;".substr($phone,8,2);
        }
        elseif (strlen($phone) == 7)
        {

            return substr($phone,0,3)."&nbsp;".substr($phone,3,2)."&nbsp;".substr($phone,5,2);
        }
        elseif (strlen($phone) == 9)
        {
            return substr($phone,0,2)."&nbsp;".substr($phone,2,3)."&nbsp;".substr($phone,5,2)."&nbsp;".substr($phone,7,2);
        }
        elseif (strlen($phone) == 11)
        {
            return substr($phone,0,3)."&nbsp;".substr($phone,3,2)."&nbsp;".substr($phone,5,2)."&nbsp;".substr($phone,7,2)."&nbsp;".substr($phone,9,2);
        }
        elseif (strlen($phone) == 12)
        {
            return substr($phone,0,4)."&nbsp;".substr($phone,4,2)."&nbsp;".substr($phone,6,2)."&nbsp;".substr($phone,8,2)."&nbsp;".substr($phone,10,2);
        }
    }
    return $phone;
}

/**
        \brief      Tronque une chaine à une taille donnée en ajoutant les points de suspension si cela dépasse
        \param      string		Chaine à tronquer
        \param      size		Longueur max de la chaine. Si 0, pas de limite.
        \return     string		Chaine tronquée
*/
function dolibarr_trunc($string,$size=40)
{
	if ($size==0) return $string;
	if ((!defined('USE_SHORT_TITLE')) || defined('USE_SHORT_TITLE') &&  USE_SHORT_TITLE)
	{
		if (strlen($string) > $size)
			return substr($string,0,$size).'...';
		else
			return $string;
	}
	else
		return $string;
}

/**
        \brief      Complète une chaine à une taille donnée par des espaces
        \param      string		Chaine à compléter
        \param      size		Longueur de la chaine.
        \param      side		0=Complétion à droite, 1=Complétion à gauche
        \param		char		Chaine de complétion
        \return     string		Chaine complétée
*/
function dolibarr_pad($string,$size,$side,$char=' ')
{
	$taille=sizeof($string);
	$i=0;
	while($i < ($size - $taille))
	{
		if ($side > 0) $string.=$char;
		else $string=$char.$string;
		$i++;
	}
	return $string;
}

/**
        \brief      Affiche picto propre à une notion/module (fonction générique)
        \param      alt         Texte sur le alt de l'image
        \param      object      Objet pour lequel il faut afficher le logo (exemple: user, group, action, bill, contract, propal, product, ...)
        \return     string      Retourne tag img
*/
function img_object($alt, $object)
{
  global $conf,$langs;
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/object_'.$object.'.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche picto (fonction générique)
        \param      alt         Texte sur le alt de l'image
        \param      picto       Nom de l'image a afficher
        \return     string      Retourne tag img
*/
function img_picto($alt, $picto, $options='')
{
  global $conf,$langs;
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/'.$picto.'.png" border="0" alt="'.$alt.'" title="'.$alt.'"'.($options?' '.$options:'').'>';
}

/**
        \brief      Affiche logo action
        \param      alt         Texte sur le alt de l'image
        \param      numaction   Determine image action
        \return     string      Retourne tag img
*/
function img_action($alt = "default", $numaction)
{
  global $conf,$langs;
  if ($alt=="default") {
    if ($numaction == -1) $alt=$langs->trans("ChangeDoNotContact");
    if ($numaction == 0)  $alt=$langs->trans("ChangeNeverContacted");
    if ($numaction == 1)  $alt=$langs->trans("ChangeToContact");
    if ($numaction == 2)  $alt=$langs->trans("ChangeContactInProcess");
    if ($numaction == 3)  $alt=$langs->trans("ChangeContactDone");
  }
  return '<img align="absmiddle" src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/stcomm'.$numaction.'.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo statut
        \param      num         Numéro statut
        \param      alt         Texte a afficher sur alt
        \return     string      Retourne tag img
		\todo		A virer et remplacer par entitestatic->LibStatut
*/
function img_statut($num,$alt = "default")
{
    global $conf,$langs;
    if ($alt=="default") {
        if ($num == 0) $alt=$langs->trans("Draft");
        if ($num == 1) $alt=$langs->trans("Late");
        if ($num == 4) $alt=$langs->trans("Running");
        if ($num == 5) $alt=$langs->trans("Closed");
    }
    return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/statut'.$num.'.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo fichier
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_file($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Show");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/file.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo dossier
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_folder($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Dossier");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/folder.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo nouveau fichier
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_file_new($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Show");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/filenew.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo pdf
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_pdf($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Show");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/pdf.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo +
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_edit_add($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Add");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/edit_add.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}
/**
        \brief      Affiche logo -
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_edit_remove($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Remove");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/edit_remove.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo editer/modifier fiche
        \param      alt         Texte sur le alt de l'image
        \param      float       Si il faut y mettre le style "float: right"
        \return     string      Retourne tag img
*/
function img_edit($alt = "default",$float=0)
{
    global $conf,$langs;
    if ($alt=="default") $alt=$langs->trans("Modify");
    $img='<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/edit.png" border="0" alt="'.$alt.'" title="'.$alt.'"';
    if ($float) $img.=' style="float: right"';
    $img.='>';
    return $img;
}

/**
        \brief      Affiche logo effacer
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_delete($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Delete");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/delete.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo désactiver
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_disable($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Disable");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/disable.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}


/**
        \brief      Affiche logo help avec curseur "?"
        \return     string      Retourne tag img
*/
function img_help($usehelpcursor=1,$usealttitle=1)
{
	global $conf,$langs;
	$s ='<img ';
	if ($usehelpcursor) $s.='style="cursor: help;" ';
	$s.='src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/info.png" border="0"';
	if ($usealttitle) $s.=' alt="'.$langs->trans("Info").'" title="'.$langs->trans("Info").'"';
	$s.='>';
	return $s;
}

/**
        \brief      Affiche picto calendrier "?"
        \return     string      Retourne tag img
*/
function img_cal()
{
  global $conf,$langs;
  return '<img style="vertical-align:middle" src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/calendar.png" border="0" alt="" title="">';
}

/**
        \brief      Affiche logo info
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_info($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Informations");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/info.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo warning
        \param      alt         Texte sur le alt de l'image
        \param      float       Si il faut afficher le style "float: right"
        \return     string      Retourne tag img
*/
function img_warning($alt = "default",$float=0)
{
    global $conf,$langs;
    if ($alt=="default") $alt=$langs->trans("Warning");
    $img='<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/warning.png" border="0" alt="'.$alt.'" title="'.$alt.'"';
    if ($float) $img.=' style="float: right"';
    $img.='>';

    return $img;
}

/**
        \brief      Affiche logo warning
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_error($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Error");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/error.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo alerte
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_alerte($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Alert");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/alerte.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo téléphone in
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_phone_in($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Modify");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/call.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo téléphone out
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_phone_out($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Modify");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/call.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo suivant
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_next($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") {
    $alt=$langs->trans("Next");
  }
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/next.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo précédent
        \param      alt     Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_previous($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Previous");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/previous.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo bas
        \param      alt         Texte sur le alt de l'image
        \param      selected    Affiche version "selected" du logo
        \return     string      Retourne tag img
*/
function img_down($alt = "default", $selected=1)
{
    global $conf,$langs;
    if ($alt=="default") $alt=$langs->trans("Down");
    if ($selected) return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1downarrow.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
    else return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1downarrow_notselected.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo haut
        \param      alt         Texte sur le alt de l'image
        \param      selected    Affiche version "selected" du logo
        \return     string      Retourne tag img
*/
function img_up($alt = "default", $selected=1)
{
    global $conf,$langs;
    if ($alt=="default") $alt=$langs->trans("Up");
    if ($selected) return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1uparrow.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
    else return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1uparrow_notselected.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo gauche
        \param      alt         Texte sur le alt de l'image
        \param      selected    Affiche version "selected" du logo
        \return     string      Retourne tag img
*/
function img_left($alt = "default", $selected=1)
{
    global $conf,$langs;
    if ($alt=="default") $alt=$langs->trans("Left");
    if ($selected) return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1leftarrow.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
    else return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1leftarrow_notselected.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo droite
        \param      alt         Texte sur le alt de l'image
        \param      selected    Affiche version "selected" du logo
        \return     string      Retourne tag img
*/
function img_right($alt = "default", $selected=1)
{
    global $conf,$langs;
    if ($alt=="default") $alt=$langs->trans("Right");
    if ($selected) return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1rightarrow.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
    else return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/1rightarrow_notselected.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche logo tick
        \param      alt         Texte sur le alt de l'image
        \return     string      Retourne tag img
*/
function img_tick($alt = "default")
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Active");
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/tick.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
}

/**
        \brief      Affiche le logo tick si allow
        \param      allow       Authorise ou non
        \return     string      Retourne tag img
*/
function img_allow($allow)
{
  global $conf,$langs;
  if ($alt=="default") $alt=$langs->trans("Active");

  if ($allow == 1)
    {
      return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/tick.png" border="0" alt="'.$alt.'" title="'.$alt.'">';
    }
  else
    {
      return "-";
    }
}

/**
        \brief      Affiche image gif (fonction générique)
        \param      alt         Texte sur le alt de l'image
        \param      picto       Nom de l'image a afficher
        \return     string      Retourne tag img
*/
function img_gif($alt, $picto, $options='')
{
  global $conf,$langs;
  return '<img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/'.$picto.'.gif" border="0" alt="'.$alt.'" title="'.$alt.'"'.($options?' '.$options:'').'>';
}


/**
        \brief      Affiche info admin
        \param      text		Texte info
*/
function info_admin($texte)
{
	global $conf,$langs;
	$s='<div class="info">';
	$s.=img_picto($langs->trans("InfoAdmin"),'star');
	$s.=' ';
	$s.=$texte;
	$s.='</div>';
	return $s;
}


/**
		\brief      Affiche formulaire de login PEAR
		\remarks    Il faut changer le code html dans cette fonction pour changer le design
*/
function dol_loginfunction($notused,$pearstatus)
{
    global $langs,$conf;
    $langs->load("main");
    $langs->load("other");

    $conf->css  = "theme/".$conf->theme."/".$conf->theme.".css";
    // Si feuille de style en php existe
    if (file_exists(DOL_DOCUMENT_ROOT.'/'.$conf->css.".php")) $conf->css.=".php";

    // Ce DTD est KO car inhibe document.body.scrollTop
    //print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">';
    // Ce DTD est OK
    print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">';

    print "\n";
	print "<html>\n";
	print "<head>\n";
    print '<meta name="robots" content="noindex,nofollow">'."\n";      // Evite indexation par robots
	print "<title>Dolibarr Authentification</title>\n";

    print '<link rel="stylesheet" type="text/css" href="'.DOL_URL_ROOT.'/'.$conf->css.'">'."\n";


    print '<style type="text/css">'."\n";
    print '<!--'."\n";
    print '#login {';
    print '  margin-top: 70px;';
    print '  margin-bottom: 30px;';
    print '  text-align: center;';
    print '  font: 12px arial,helvetica;';
    print '}'."\n";
    print '#login table {';
    print '  border: 1px solid #C0C0C0;';
    if (file_exists(DOL_DOCUMENT_ROOT.'/theme/'.$conf->theme.'/img/login_background.png'))
    {
      print 'background: #F0F0F0 url('.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/login_background.png) repeat-x;';
    }
    else
    {
      print 'background: #F0F0F0 url('.DOL_URL_ROOT.'/theme/login_background.png) repeat-x;';
    }
    print 'font-size: 12px;';
    print '}'."\n";
    print '-->'."\n";
    print '</style>'."\n";
    print '<script language="javascript" type="text/javascript">'."\n";
    print "function donnefocus() {\n";
    print "document.getElementsByTagName('INPUT')[0].focus();";
    print "}\n";
    print '</script>'."\n";
    print '</head>'."\n";

    print '<body class="body" onload="donnefocus();">';

    print '<form id="login" name="login" method="post" action="';
    print $_SERVER['PHP_SELF'];
    print $_SERVER["QUERY_STRING"]?'?'.$_SERVER["QUERY_STRING"]:'';
    print '">';

    print '<table cellpadding="0" cellspacing="0" border="0" align="center" width="350">';


    if (file_exists(DOL_DOCUMENT_ROOT.'/logo.png'))
    {
      print '<tr><td colspan="3" style="text-align:center;">';
      print '<img src="/logo.png"></td></tr>';
    }
    else
    {
      print '<tr class="vmenu"><td align="center">Dolibarr '.DOL_VERSION.'</td></tr>';
    }

    print'</table>

<br>

<table cellpadding="2" align="center" width="350">

<tr><td colspan="3">&nbsp;</td></tr>

<tr><td align="left"> &nbsp; <b>'.$langs->trans("Login").'</b>  &nbsp;</td>
<td><input name="username" class="flat" size="15" maxlength="25" value="" tabindex="1" /></td>
';

    // Affiche logo du theme si existe, sinon logo commun
    if (file_exists(DOL_DOCUMENT_ROOT.'/theme/'.$conf->theme.'/img/login_logo.png'))
    {
        print '<td rowspan="2"><img src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/login_logo.png"></td>';
    }
    else
    {
        print '<td rowspan="2"><img src="'.DOL_URL_ROOT.'/theme/login_logo.png"></td>';
    }

    print '
</tr>

<tr><td align="left"> &nbsp; <b>'.$langs->trans("Password").'</b> &nbsp; </td>
<td><input name="password" class="flat" type="password" size="15" maxlength="30" tabindex="2" />
</td></tr>

<tr><td colspan="3" style="text-align:center;"><br>
<input type="submit" class="button" value="&nbsp; '.$langs->trans("Connection").' &nbsp;" tabindex="4" />
</td></tr>
';
    print '
</table>
<input type="hidden" name="loginfunction" value="loginfunction" />
';

    print '</form>';

	// Message
    if ($_SESSION["loginmesg"] || ! empty($pearstatus))
    {
    	print '<center><table width="60%"><tr><td align="center" class="small"><div class="error">';
		if ($pearstatus == AUTH_EXPIRED) print "<i>Your session expired. Please login again!</i>\n";
		elseif ($pearstatus == AUTH_IDLED) print "<i>You have been idle for too long. Please login again!</i>\n";
		elseif ($pearstatus == AUTH_WRONG_LOGIN) print $langs->trans("ErrorBadLoginPassword");
		elseif ($_SESSION["loginmesg"])
		{
			print $_SESSION["loginmesg"];
			$_SESSION["loginmesg"]="";
		}
		print '</div></td></tr></table></center>';
	}
	if (defined("MAIN_HOME") && strlen(trim(MAIN_HOME)))
	{
	    print '<table cellpadding="0" cellspacing="0" border="0" align="center" width="750"><tr><td>';
	    print nl2br(MAIN_HOME);
	    print '</td></tr></table><br>';
	}
    print "\n</body>\n</html>";
}


/**
		\brief      Affiche message erreur de type acces interdit et arrete le programme
		\param		message			Force error message
		\param		printheader		Affiche avant le header
		\remarks    L'appel a cette fonction termine le code.
*/
function accessforbidden($message='',$printheader=1)
{
  global $user, $langs;
  $langs->load("other");

  if ($printheader) llxHeader();
  print '<div class="error">';
  if (! $message) print $langs->trans("ErrorForbidden");
  else print $message;
  print '</div>';
  print '<br>';
  if ($user->login)
  {
    print $langs->trans("CurrentLogin").': <font class="error">'.$user->login.'</font><br>';
    print $langs->trans("ErrorForbidden2",$langs->trans("Home"),$langs->trans("Users"));
  }
  elseif (! empty($_SERVER["REMOTE_USER"]))
  {
    print $langs->trans("CurrentLogin").': <font class="error">'.$_SERVER["REMOTE_USER"]."</font><br>";
    print $langs->trans("ErrorForbidden2",$langs->trans("Home"),$langs->trans("Users"));
  }
  else
  {
    print $langs->trans("ErrorForbidden3");
  }
  llxFooter();
  exit(0);
}


/**
		\brief      Affiche message erreur system avec toutes les informations pour faciliter le diagnostic et la remontée des bugs.
                    On doit appeler cette fonction quand une erreur technique bloquante est rencontrée.
                    Toutefois, il faut essayer de ne l'appeler qu'au sein de pages php, les classes devant
                    renvoyer leur erreur par l'intermédiaire de leur propriété "error".
        \param      db      Handler de base utilisé
        \param      error	Chaine erreur ou tableau de chaines erreur complémentaires à afficher
*/
function dolibarr_print_error($db='',$error='')
{
    global $langs,$argv;
    $syslog = '';

    // Si erreur intervenue avant chargement langue
    if (! $langs)
    {
        require_once(DOL_DOCUMENT_ROOT ."/translate.class.php");
        $langs = new Translate(DOL_DOCUMENT_ROOT ."/langs", "en_US");
    }
    $langs->load("main");

    if ($_SERVER['DOCUMENT_ROOT'])    // Mode web
    {
        print $langs->trans("DolibarrHasDetectedError").".<br>\n";
        print $langs->trans("InformationToHelpDiagnose").":<br><br>\n";

        print "<b>".$langs->trans("Server").":</b> ".$_SERVER["SERVER_SOFTWARE"]."<br>\n";;
        print "<b>".$langs->trans("Dolibarr").":</b> ".DOL_VERSION."<br>\n";;
        print "<b>".$langs->trans("RequestedUrl").":</b> ".$_SERVER["REQUEST_URI"]."<br>\n";;
        print "<b>QUERY_STRING:</b> ".$_SERVER["QUERY_STRING"]."<br>\n";;
        print "<b>".$langs->trans("Referer").":</b> ".$_SERVER["HTTP_REFERER"]."<br>\n";;
        $syslog.="url=".$_SERVER["REQUEST_URI"];
        $syslog.=", query_string=".$_SERVER["QUERY_STRING"];
    }
    else                              // Mode CLI
    {

        print $langs->transnoentities("ErrorInternalErrorDetected").": ".$argv[0]."\n";
        $syslog.="pid=".getmypid();
    }

    if (is_object($db))
    {
        if ($_SERVER['DOCUMENT_ROOT'])  // Mode web
        {
            print "<br>\n";
            print "<b>".$langs->trans("DatabaseTypeManager").":</b> ".$db->type."<br>\n";
            print "<b>".$langs->trans("RequestLastAccessInError").":</b> ".($db->lastqueryerror()?$db->lastqueryerror():$langs->trans("ErrorNoRequestInError"))."<br>\n";
            print "<b>".$langs->trans("ReturnCodeLastAccess").":</b> ".$db->errno()."<br>\n";
            print "<b>".$langs->trans("InformationLastAccess").":</b> ".$db->error()."<br>\n";
        }
        else                            // Mode CLI
        {
            print $langs->transnoentities("DatabaseTypeManager").":\n".$db->type."\n";
            print $langs->transnoentities("RequestLastAccessInError").":\n".($db->lastqueryerror()?$db->lastqueryerror():$langs->trans("ErrorNoRequestInError"))."\n";
            print $langs->transnoentities("ReturnCodeLastAccess").":\n".$db->errno()."\n";
            print $langs->transnoentities("InformationLastAccess").":\n".$db->error()."\n";

        }
        $syslog.=", sql=".$db->lastquery();
        $syslog.=", db_error=".$db->error();
    }

    if ($error)
    {
		if (is_array($error)) $errors=$error;
		else $errors=array($error);
		
		foreach($errors as $msg)
		{
	        if ($_SERVER['DOCUMENT_ROOT'])  // Mode web
	        {
	            print "<b>".$langs->trans("Message").":</b> ".$msg."<br>\n" ;
	        }
	        else                            // Mode CLI
	        {
	            print $langs->transnoentities("Message").":\n".$msg."\n" ;
	        }
	        $syslog.=", msg=".$msg;
		}
	}

    dolibarr_syslog("Error $syslog");
}


/**
		\brief  Deplacer les fichiers telechargés, apres quelques controles divers
		\param	src_file	fichier source
		\param	dest_file	fichier de destination
		\return int         true=Deplacement OK, false=Pas de deplacement ou KO
*/
function doliMoveFileUpload($src_file, $dest_file)
{
	$file_name = $dest_file;

	// Security:
	// On renomme les fichiers avec extention executable car si on a mis le rep
	// documents dans un rep de la racine web (pas bien), cela permet d'executer
	// du code a la demande.
	if (eregi('\.php|\.pl|\.cgi$',$file_name))
	{
		$file_name.= '.txt';
	}

	// Security:
	// On interdit les remontées de repertoire ainsi que les pipe dans 
	// les noms de fichiers.
	if (eregi('\.\.',$src_file) || eregi('[<>|]',$src_file))
	{
		dolibarr_syslog("Refused to deliver file ".$src_file);
		return false;
	}

	// Security:
	// On interdit les remontées de repertoire ainsi que les pipe dans 
	// les noms de fichiers.
	if (eregi('\.\.',$dest_file) || eregi('[<>|]',$dest_file))
	{
		dolibarr_syslog("Refused to deliver file ".$dest_file);
		return false;
	}

	return move_uploaded_file($src_file, $file_name);
}


/**
		\brief  Transcodage de francs en euros
		\param	zonein		zone de depart
		\param	devise		type de devise
		\return	r           resultat transcodé
*/
function transcoS2L($zonein,$devise)
{
  // Open source offert par <A HREF="mailto:alainfloch@free.fr?subject=chif2let">alainfloch@free.fr</A> 28/10/2001, sans garantie.
  // début de la fonction de transcodification de somme en toutes lettres

  /*  $zonein = "123,56";
   *  $devise = "E"; // préciser F si francs , sinon ce sera de l'euro
   *  $r = transcoS2L($zonein,$devise); // appeler la fonction
   *  echo "résultat   vaut $r<br>";
   *  $zonelettresM =  strtoupper($r); // si vous voulez la même zone mais tout en majuscules
   *  echo "résultat en Majuscules  vaut $zonelettresM<br>";
   *  $zonein = "1,01";
   *  $r = transcoS2L($zonein,$devise);
   *  echo "résultat   vaut $r<br>";
   */


  if ($devise == "F")
    {
      $unite_singulier = " franc ";
      $unite_pluriel = " francs ";
      $cent_singulier = " centime";
    }
  else
    {
      $unite_singulier = " euro ";
      $unite_pluriel = " euros ";
      $cent_singulier = " centime";
    }

  $arr1_99 = array("zéro","un","deux","trois",
		   "quatre","cinq","six","sept",
		   "huit","neuf","dix","onze","douze",
		   "treize","quatorze","quinze","seize",
		   "dix-sept","dix-huit","dix-neuf","vingt ");

  $arr1_99[30] = "trente ";
  $arr1_99[40] = "quarante ";
  $arr1_99[50] = "cinquante ";
  $arr1_99[60] = "soixante ";
  $arr1_99[70] = "soixante-dix ";
  $arr1_99[71] = "soixante et onze";
  $arr1_99[80] = "quatre-vingts ";
  $i = 22;
  while ($i < 63) {// initialise la  table
    $arr1_99[$i - 1] = $arr1_99[$i - 2]." et un";
    $j = 0;
    while ($j < 8) {
      $k = $i + $j;
      $arr1_99[$k] = $arr1_99[$i - 2].$arr1_99[$j + 2];
      $j++;
    }
    $i = $i + 10;
  } // fin initialise la table

  $i = 12;
  while ($i < 20) {// initialise la  table (suite)
    $j = 60 + $i;
    $arr1_99[$j] = "soixante-".$arr1_99[$i];
    $i++;
  } // fin initialise la  table (suite)

  $i = 1;
  while ($i < 20) {// initialise la  table (fin)
    $j = 80 + $i;
    $arr1_99[$j] = "quatre-vingt-".$arr1_99[$i];
    $i++;
  } // fin initialise la  table (fin)
  // echo "Pour une valeur en entrée = $zonein<br>"; //pour ceux qui ne croient que ce qu'ils voient !
  // quelques petits controles s'imposent !!
  $valid = "[a-zA-Z\&\é\"\'\(\-\è\_\ç\à\)\=\;\:\!\*\$\^\<\>]";
  if (ereg($valid,$zonein))
    {
      $r = "<b>la chaîne ".$zonein." n'est pas valide</b>";
      return($r);
    }
  $zone = explode(" ",$zonein); // supprimer les blancs séparateurs
  $zonein = implode("",$zone); // reconcatène la zone input
  $zone = explode(".",$zonein); // supprimer les points séparateurs
  $zonein = implode("",$zone); // reconcatène la zone input, ça c'est fort ! merci PHP
  $virg = strpos($zonein,",",1); // à la poursuite de la virgule
  $i = strlen($zonein); // et de la longueur de la zone input
  if ($virg == 0) { // ya pas de virgule
    if ($i > 7)
      {
	$r = "<b>la chaîne ".$zonein." est trop longue (maxi = 9 millions)</b>";
	return($r);
      }
    $deb = 7 - $i;
    $zoneanaly = substr($zonechiffres,0,$deb).$zonein.",00";
  }
  else
    { //ya une virgule
      $ti = explode(",",$zonein); // mettre de côté ce qu'il y a devant la virgule
      $i = strlen($ti[0]); // en controler la longueur
      $zonechiffres = "0000000,00";
      if ($i > 7)
	{
	  $r = "<b>la chaîne ".$zonein." est trop longue (maxi = 9 millions,00)</b>";
	  return($r);
	}
      $deb = 7 - $i;
      $zoneanaly = substr($zonechiffres,0,$deb).$zonein;
    }
  $M= substr($zoneanaly,0,1);
  if ($M != 0)
    { // qui veut gagner des millions
      $r =   $arr1_99[$M]." million";
      if ($M ==1) $r =  $r." ";
      else $r = $r."s ";
      if (substr($zoneanaly,1,6)==0)
	{
	  if ($devise == 'F') $r = $r." de ";
	  else $r = $r."d'";
	}
    }
  $CM= substr($zoneanaly,1,1);
  if ($CM == 1)
    { // qui veut gagner des centaines de mille
      $r = $r." cent ";
    }
 else
   { // ya des centaines de mille
	if ($CM > 1)
	  {
	    $r = $r. $arr1_99[$CM]." cent ";
		}
   } // fin du else ya des centaines de mille
  $MM= substr($zoneanaly,2,2);
  if (substr($zoneanaly,2,1)==0){ $MM = substr($zoneanaly,3,1);} // enlever le zéro des milliers cause indexation
  if ($MM ==0 && $CM > 0)
    {
      $r = $r."mille ";
    }
  if ($MM != 0)
    {
      if ($MM == 80)
	{
	  $r = $r."quatre-vingt mille ";
	}
      else
	{
	  if ($MM > 1 )
	    {
	      $r = $r.$arr1_99[$MM]." mille ";
	    }
	  else
	    {
	      if ($CM == 0)	$r = $r." mille ";
	      else
		{
		  $r = $r.$arr1_99[$MM]." mille ";
		}
	    }
	}
    }
  $C2= substr($zoneanaly,5,2);
  if (substr($zoneanaly,5,1)==0){ $C2 = substr($zoneanaly,6,1);} // enlever le zéro des centaines cause indexation
  $C1= substr($zoneanaly,4,1);
  if ($C2 ==0 && $C1 > 1)
    {
      $r = $r.$arr1_99[$C1]." cents ";
    }
  else
    {
      if ($C1 == 1) $r = $r." cent ";
      else
	{
	  if ($C1 > 1) $r = $r.$arr1_99[$C1]." cent ";
	}
    }
  if ($C2 != 0)
    {
      $r = $r.$arr1_99[$C2];
    }
  if ($virg !=0)
    {
      if ($ti[0] > 1) $r = $r. $unite_pluriel; else $r = "un ".$unite_singulier;
    }
  else
    {
      if ($zonein > 1) $r = $r.$unite_pluriel; else $r = "un ".$unite_singulier;
    }
  $UN= substr($zoneanaly,8,2);
  if ($UN != "00")
    {
      $cts = $UN;
      if (substr($UN,0,1)==0){ $cts = substr($UN,1,1);} // enlever le zéro des centimes cause indexation
      $r = $r." et ". $arr1_99[$cts].$cent_singulier;
      if ($UN > 1) $r =$r."s"; // accorde au pluriel
    }
  $r1 = ltrim($r); // enleve quelques blancs possibles en début de zone
  $r = ucfirst($r1); // met le 1er caractère en Majuscule, c'est + zoli
  return($r); // retourne le résultat
} // fin fonction transcoS2L


/**
		\brief      Affichage de la ligne de titre d'un tabelau
		\param	    name        libelle champ
		\param	    file        url pour clic sur tri
		\param	    field       champ de tri
		\param	    begin       ("" par defaut)
		\param	    options     ("" par defaut)
		\param      td          options de l'attribut td ("" par defaut)
		\param      sortfield   nom du champ sur lequel est effectué le tri du tableau
		\param      sortorder   ordre du tri
*/
function print_liste_field_titre($name, $file, $field, $begin="", $options="", $td="", $sortfield="", $sortorder="")
{
    global $conf;
    // Le champ de tri est mis en évidence.
    // Exemple si (sortfield,field)=("nom","xxx.nom") ou (sortfield,field)=("nom","nom")
    if ($sortfield == $field || $sortfield == ereg_replace("^[^\.]+\.","",$field))
    {
        print '<td class="liste_titre_sel" '. $td.'>';
    }
    else
    {
        print '<td class="liste_titre" '. $td.'>';
    }
    print $name."&nbsp;";
    if (! $sortorder)
    {
        print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=asc&amp;begin='.$begin.$options.'">'.img_down("A-Z",1).'</a>';
        print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=desc&amp;begin='.$begin.$options.'">'.img_up("Z-A",1).'</a>';
    }
    else
    {
        if ($field != $sortfield) {
            print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=asc&amp;begin='.$begin.$options.'">'.img_down("A-Z",1).'</a>';
            print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=desc&amp;begin='.$begin.$options.'">'.img_up("Z-A",1).'</a>';
        }
        else {
            if ($sortorder == 'DESC' ) {
                print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=asc&amp;begin='.$begin.$options.'">'.img_down("A-Z",1).'</a>';
                print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=desc&amp;begin='.$begin.$options.'">'.img_up("Z-A",0).'</a>';
            }
            if ($sortorder == 'ASC' ) {
                print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=asc&amp;begin='.$begin.$options.'">'.img_down("A-Z",0).'</a>';
                print '<a href="'.$file.'?sortfield='.$field.'&amp;sortorder=desc&amp;begin='.$begin.$options.'">'.img_up("Z-A",1).'</a>';
            }
        }
    }
    print "</td>";
}

/**
		\brief  Affichage d'un titre
		\param	titre			Le titre a afficher
*/
function print_titre($titre)
{
    print '<div class="titre">'.$titre.'</div>';
}

/**
		\brief  Affichage d'un titre d'une fiche, aligné a gauche
		\param	titre			Le titre a afficher
		\param	mesg			Message suplémentaire à afficher à droite
		\param	picto			Picto pour ligne de titre
*/
function print_fiche_titre($titre, $mesg='', $picto='')
{
    print "\n";
    print '<table width="100%" border="0" class="notopnoleftnoright"><tr>';
	if ($picto) print '<td width="24" align="left" valign="middle">'.img_picto('',$picto).'</td>';
    print '<td class="notopnoleftnoright" valign="middle">';
    print '<div class="titre">'.$titre.'</div>';
    print '</td>';
    if (strlen($mesg))
    {
        print '<td align="right" valign="middle"><b>'.$mesg.'</b></td>';
    }
    print '</tr></table>'."\n";
}

/**
		\brief  Effacement d'un fichier
		\param	file			Fichier a effacer ou masque de fichier a effacer
		\param	int				true ou false
*/
function dol_delete_file($file)
{
	$ok=true;
	foreach (glob($file) as $filename)
	{
		$ok=unlink($filename);
		if ($ok) dolibarr_syslog("Removed file $filename");
		else dolibarr_syslog("Failed to remove file $filename");
	}
	return $ok;
}

/**
		\brief  	Effacement d'un répertoire
		\param		file			Répertoire a effacer
*/
function dol_delete_dir($dir)
{
	return rmdir($dir);
}

/**
		\brief  	Effacement d'un répertoire $dir et de son arborescence
		\param		file			Répertoire a effacer
		\return		int				Nombre de fichier+repértoires supprimés
*/
function dol_delete_dir_recursive($dir,$count=0)
{
	if ($handle = opendir("$dir"))
	{
		while (false !== ($item = readdir($handle)))
		{
			if ($item != "." && $item != "..")
			{
				if (is_dir("$dir/$item"))
				{
					$count=dol_delete_dir_recursive("$dir/$item",$count);
				}
				else
				{
					unlink("$dir/$item");
					$count++;
					//echo " removing $dir/$item<br>\n";
				}
			}
		}
		closedir($handle);
		rmdir($dir);
		$count++;
		//echo "removing $dir<br>\n";
	}

	//echo "return=".$count;
	return $count;
}


/**
		\brief  Fonction print_barre_liste
		\param	titre			titre de la page
		\param	page			numéro de la page
		\param	file			lien
		\param	options         parametres complementaires lien ('' par defaut)
		\param	sortfield       champ de tri ('' par defaut)
		\param	sortorder       ordre de tri ('' par defaut)
		\param	center          chaine du centre ('' par defaut)
		\param	num             nombre d'élément total
*/
function print_barre_liste($titre, $page, $file, $options='', $sortfield='', $sortorder='', $center='', $num=-1)
{
    global $conf;

    if ($num > $conf->liste_limit or $num == -1)
    {
        $nextpage = 1;
    }
    else
    {
        $nextpage = 0;
    }

    print '<table width="100%" border="0" class="notopnoleftnoright">';

    if ($page > 0 || $num > $conf->liste_limit)
    {
        print '<tr><td class="notopnoleftnoright"><div class="titre">'.$titre.' - page '.($page+1);
        print '</div></td>';
    }
    else
    {
        print '<tr><td class="notopnoleftnoright"><div class="titre">'.$titre.'</div></td>';
    }

    if ($center)
    {
        print '<td align="left">'.$center.'</td>';
    }

    print '<td align="right">';

    if ($sortfield) $options .= "&amp;sortfield=$sortfield";
    if ($sortorder) $options .= "&amp;sortorder=$sortorder";

    // Affichage des fleches de navigation
    print_fleche_navigation($page,$file,$options,$nextpage);

    print '</td></tr></table>';
}

/**
   \brief  Fonction servant a afficher les fleches de navigation dans les pages de listes
   \param	page			numéro de la page
   \param	file			lien
   \param	options         autres parametres d'url a propager dans les liens ("" par defaut)
   \param	nextpage	    faut-il une page suivante
*/
function print_fleche_navigation($page,$file,$options='',$nextpage)
{
  global $conf, $langs;
  if ($page > 0)
    {
      print '<a href="'.$file.'?page='.($page-1).$options.'">'.img_previous($langs->trans("Previous")).'</a>';
    }

  if ($nextpage > 0)
    {
      print '<a href="'.$file.'?page='.($page+1).$options.'">'.img_next($langs->trans("Next")).'</a>';
    }
}


/**
*		\brief      Fonction qui retourne un montant monétaire formaté
*		\remarks    Fonction utilisée dans les pdf et les pages html
*		\param	    amount			Montant a formater
*		\param	    html			Formatage html ou pas (0 par defaut)
*		\param	    outlangs		Objet langs pour formatage
*		\param		trunc			1=Tronque affichage si trop de décimales
*		\return		string			Chaine avec montant formaté
*		\seealso	price2num		Fonction inverse de price
*/
function price($amount, $html=0, $outlangs='', $trunc=1)
{
	global $langs,$conf;

	// Separateurs par defaut
	$dec='.'; $thousand=' ';

	// Si $outlangs non force, on prend langue utilisateur
	if (! is_object($outlangs)) $outlangs=$langs;

	if ($outlangs->trans("SeparatorDecimal") != "SeparatorDecimal")  $dec=$outlangs->trans("SeparatorDecimal");
	if ($outlangs->trans("SeparatorThousand")!= "SeparatorThousand") $thousand=$outlangs->trans("SeparatorThousand");
	//print "dec=".$dec." thousand=".$thousand;

	//print "xx".$amount."-";	
	$amount = ereg_replace(',','.',$amount);
	//print $amount."-";
	$datas = split("\.",$amount);
	$decpart = $datas[1];
	//print $datas[1]."<br>";

	// On pose par defaut 2 decimales
	$nbdecimal = 2;
	$end='';
	// On augmente au besoin si il y a plus de 2 décimales
	if (strlen($decpart) > $nbdecimal) $nbdecimal=strlen($decpart);
	// Si on depasse max
	if ($trunc && $nbdecimal > $conf->global->MAIN_MAX_DECIMALS_SHOWN) 
	{
		$nbdecimal=$conf->global->MAIN_MAX_DECIMALS_SHOWN;
		$end='...';
	}
	
	// Formate nombre
	if ($html)
	{
		$output=ereg_replace(' ','&nbsp;',number_format($amount, $nbdecimal, $dec, $thousand));
	}
	else
	{
		$output=number_format($amount, $nbdecimal, $dec, $thousand);
	}
	$output.=$end;
	
	return $output;
}

/**
   \brief      Fonction qui retourne un numérique depuis un montant formaté
   \remarks    Fonction à appeler sur montants saisi avant un insert
   \param	    amount		montant a formater
   \seealso	price		Fonction inverse de price2num
*/
function price2num($amount)
{
  $amount=ereg_replace(',','.',$amount);
  $amount=ereg_replace(' ','',$amount);
  return $amount;
}


/**
   \brief      Fonction qui renvoie la tva d'une ligne (en fonction du vendeur, acheteur et taux du produit)
   \remarks    Si vendeur non assujeti à TVA, TVA par défaut=0. Fin de règle.
   Si le (pays vendeur = pays acheteur) alors TVA par défaut=TVA du produit vendu. Fin de règle.
   Si vendeur et acheteur dans Communauté européenne et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par défaut=0 (La TVA doit être payé par acheteur au centre d'impots de son pays et non au vendeur). Fin de règle.
   Si vendeur et acheteur dans Communauté européenne et acheteur = particulier ou entreprise sans num TVA intra alors TVA par défaut=TVA du produit vendu. Fin de règle.
   Si vendeur et acheteur dans Communauté européenne et acheteur = entreprise avec num TVA intra alors TVA par défaut=0. Fin de règle.
   Sinon TVA proposée par défaut=0. Fin de règle.
   \param      societe_vendeuse    Objet société vendeuse
   \param      societe_acheteuse   Objet société acheteuse
   \param      taux_produit        Taux par defaut du produit vendu
   \return     float               Taux de tva de la ligne
 */
function get_default_tva($societe_vendeuse, $societe_acheteuse, $taux_produit)
{
	dolibarr_syslog("get_default_tva vendeur_assujeti=$societe_vendeuse->tva_assuj pays_vendeur=$societe_vendeuse->pays_id, pays_acheteur=$societe_acheteuse->pays_id, taux_produit=$taux_produit");

	if (!is_object($societe_vendeuse)) return 0;

	// Si vendeur non assujeti à TVA (tva_assuj vaut 0/1 ou franchise/reel)
	if (is_numeric($societe_vendeuse->tva_assuj) && ! $societe_vendeuse->tva_assuj) return 0;
	if (! is_numeric($societe_vendeuse->tva_assuj) && $societe_vendeuse->tva_assuj=='franchise') return 0;

	// Si le (pays vendeur = pays acheteur) alors la TVA par défaut=TVA du produit vendu. Fin de règle.
	if (is_object($societe_acheteuse) && ($societe_vendeuse->pays_id == $societe_acheteuse->pays_id) && $societe_vendeuse->tva_assuj == 1)
	{
	    return $taux_produit;
	}

	// Si vendeur et acheteur dans Communauté européenne et bien vendu = moyen de transports neuf (auto, bateau, avion), TVA par défaut=0 (La TVA doit être payé par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de règle.
	// Non géré

 	// Si vendeur et acheteur dans Communauté européenne et acheteur = particulier ou entreprise sans num TVA intra alors TVA par défaut=TVA du produit vendu. Fin de règle.
	if (is_object($societe_acheteuse) && ($societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC()) && ! $societe_acheteuse->tva_intra)
	{
	    return $taux_produit;
	}

 	// Si vendeur et acheteur dans Communauté européenne et acheteur = entreprise avec num TVA intra alors TVA par défaut=0. Fin de règle.
	if (is_object($societe_acheteuse) && ($societe_vendeuse->isInEEC() && $societe_acheteuse->isInEEC()) && $societe_acheteuse->tva_intra)
	{
	    return 0;
	}

	// Sinon la TVA proposée par défaut=0. Fin de règle.
    return 0;
}


/**
		\brief  Renvoie oui ou non dans la langue choisie
		\param	yesno			variable pour test si oui ou non
		\param	case			Oui/Non ou oui/non
*/
function yn($yesno, $case=1) {
    global $langs;
    if ($yesno == 1 || strtolower($yesno) == 'yes' || strtolower($yesno) == 'true') 	// A mettre avant test sur no a cause du == 0
        return $case?$langs->trans("Yes"):$langs->trans("yes");
    if ($yesno == 0 || strtolower($yesno) == 'no' || strtolower($yesno) == 'false')
        return $case?$langs->trans("No"):$langs->trans("no");
    return "unknown";
}


/**
   \brief      Fonction pour initialiser un salt pour la fonction crypt
   \param		$type		2=>renvoi un salt pour cryptage DES
   12=>renvoi un salt pour cryptage MD5
   non defini=>renvoi un salt pour cryptage par defaut
   \return		string		Chaine salt
*/
function makesalt($type=CRYPT_SALT_LENGTH)
{
  dolibarr_syslog("functions.inc::makesalt type=".$type);
  switch($type)
    {
    case 12:	// 8 + 4
      $saltlen=8; $saltprefix='$1$'; $saltsuffix='$'; break;
    case 8:		// 8 + 4 (Pour compatibilite, ne devrait pas etre utilisé)
      $saltlen=8; $saltprefix='$1$'; $saltsuffix='$'; break;
    case 2:		// 2
    default: 	// by default, fall back on Standard DES (should work everywhere)
      $saltlen=2; $saltprefix=''; $saltsuffix=''; break;
    }
  $salt='';
  while(strlen($salt) < $saltlen) $salt.=chr(rand(64,126));
  
  $result=$saltprefix.$salt.$saltsuffix;
  dolibarr_syslog("functions.inc::makesalt return=".$result);
  return $result;
}
/**
   \brief  Fonction pour qui retourne le rowid d'un departement par son code
   \param  db          handler d'accès base
   \param	code		Code région
   \param	pays_id		Id du pays
*/
function departement_rowid($db,$code, $pays_id)
{
  $sql = "SELECT c.rowid FROM ".MAIN_DB_PREFIX."c_departements as c,".MAIN_DB_PREFIX."c_regions as r";
  $sql .= " WHERE c.code_departement=". $code;
  $sql .= " AND c.fk_region = r.code_region";
  $sql .= " AND r.fk_pays =".$pays_id;

  if ($db->query($sql))
    {
      $num = $db->num_rows();
      if ($num)
	{
	  $obj = $db->fetch_object();
	  return  $obj->rowid;
	}
      else
	{
	  return 0;
	}
      $db->free();
    }
  else
    {
      return 0;
    }
}

/**
   \brief      Renvoi un chemin de classement répertoire en fonction d'un id
   \remarks    Examples: 1->"0/0/1/", 15->"0/1/5/"
   \param      $num        Id à décomposer
   \param      $level		Niveau de decoupage (1, 2 ou 3 niveaux)
 */
function get_exdir($num,$level=3)
{
  $num = substr("000".$num, -$level);
  if ($level == 1) return substr($num,0,1).'/';
  if ($level == 2) return substr($num,1,1).'/'.substr($num,0,1).'/';
  if ($level == 3) return substr($num,2,1).'/'.substr($num,1,1).'/'.substr($num,0,1).'/';
  return '';
}

/**
   \brief      Création de répertoire recursive
   \param      $dir        Répertoire à créer
   \return     int         < 0 si erreur, >= 0 si succès
*/
function create_exdir($dir)
{
    dolibarr_syslog("functions.inc.php::create_exdir: dir=$dir");

  	if (@is_dir($dir)) return 0;

    $nberr=0;
    $nbcreated=0;

    $ccdir = '';
    $cdir = explode("/",$dir);
    for ($i = 0 ; $i < sizeof($cdir) ; $i++)
    {
        if ($i > 0) $ccdir .= '/'.$cdir[$i];
        else $ccdir = $cdir[$i];
        if (eregi("^.:$",$ccdir,$regs)) continue;	// Si chemin Windows incomplet, on poursuit par rep suivant

		// Attention, le is_dir() peut échouer bien que le rep existe.
		// (ex selon config de open_basedir)
        if ($ccdir)
        {
        	if (! @is_dir($ccdir))
        	{
		  dolibarr_syslog("functions.inc.php::create_exdir: Directory '".$ccdir."' does not exists or is outside open_basedir PHP setting.");

		  umask(0);
		  if (! @mkdir($ccdir, 0755))
		    {
		      // Si le is_dir a renvoyé une fausse info, alors on passe ici.
		      dolibarr_syslog("functions.inc.php::create_exdir: Fails to create directory '".$ccdir."' or directory already exists.");
		      $nberr++;
		    }
		  else
		    {
		      dolibarr_syslog("functions.inc.php::create_exdir: Directory '".$ccdir."' created");
		      $nberr=0;	// On remet à zéro car si on arrive ici, cela veut dire que les échecs précédents peuvent etre ignorés
		      $nbcreated++;
		    }
		}
		else
		  {
		    $nberr=0;	// On remet à zéro car si on arrive ici, cela veut dire que les échecs précédents peuvent etre ignorés
		  }
        }
    }
    return ($nberr ? -$nberr : $nbcreated);
}


/**
   \brief		Scan a directory and return a list of files/directories
   \param		$path        	Starting path from which to search
   \param		$types        	Can be "directories", "files", or "all"
   \param		$recursive		Determines whether subdirectories are searched
   \param		$filter        	Regex for filter
   \param		$exludefilter  	Regex for exclude filter
   \param		$sortcriteria	Sort criteria ("date","size")
   \param		$sortorder		Sort order (SORT_ASC, SORT_DESC)
   \return		array			Array of array('name'=>xxx,'date'=>yyy,'size'=>zzz)
 */
function dolibarr_dir_list($path, $types="all", $recursive=0, $filter="", $excludefilter="", $sortcriteria="", $sortorder=SORT_ASC)
{
  dolibarr_syslog("functions.inc.php::dolibarr_dir_list $path");
  
  if (! is_dir($path)) return array();
  
  if ($dir = opendir($path))
    {
      $file_list = array();
      while (false !== ($file = readdir($dir)))
	{
	  $qualified=1;
	  
	  // Check if file is qualified
	  if (eregi('^\.',$file)) $qualified=0;
	  if ($excludefilter && eregi($excludefilter,$file)) $qualified=0;
	  
	  if ($qualified)
	    {
	      // Check whether this is a file or directory and whether we're interested in that type
	      if ((is_dir($path."/".$file)) && (($types=="directories") || ($types=="all")))
		{
		  // Add entry into file_list array
		  if ($sortcriteria == 'date') $filedate=filemtime($path."/".$file);
		  if ($sortcriteria == 'size') $filesize=filesize($path."/".$file);
		  
		  if (! $filter || eregi($filter,$path.'/'.$file))
		    {
		      $file_list[] = array(
					   "name" => $file,
					   "fullname" => $path.'/'.$file,
					   "date" => $filedate,
					   "size" => $filesize
					   );
		    }
		  
		  // if we're in a directory and we want recursive behavior, call this function again
		  if ($recursive)
		    {
		      $file_list = array_merge($file_list, dolibarr_dir_list($path."/".$file."/", $types, $recursive, $filter, $excludefilter, $sortcriteria, $sortorder));
		    }
		}
	      else if (($types == "files") || ($types == "all"))
		{
		  // Add file into file_list array
		  if ($sortcriteria == 'date') $filedate=filemtime($path."/".$file);
		  if ($sortcriteria == 'size') $filesize=filesize($path."/".$file);
		  if (! $filter || eregi($filter,$path.'/'.$file))
		    {
		      $file_list[] = array(
					   "name" => $file,
					   "fullname" => $path.'/'.$file,
					   "date" => $filedate,
					   "size" => $filesize
					   );
		    }
		}
	    }
	}
      closedir($dir);
      
      // Obtain a list of columns
      $myarray=array();
      foreach ($file_list as $key => $row)
	{
	  $myarray[$key]  = $row[$sortcriteria];
	}
      // Sort the data
      array_multisort($myarray, $sortorder, $file_list);
      
      return $file_list;
    }
  else
    {
      return false;
    }
}
/**
   \brief   Retourne le numéro de la semaine par rapport a une date
   \param   time   	Date au format 'timestamp'
   \return  int		Numéro de semaine
*/
function numero_semaine($time)
{
    $stime = strftime( '%Y-%m-%d',$time);

    if (eregi('^([0-9]+)\-([0-9]+)\-([0-9]+)\s?([0-9]+)?:?([0-9]+)?',$stime,$reg))
    {
        // Date est au format 'YYYY-MM-DD' ou 'YYYY-MM-DD HH:MM:SS'
        $annee = $reg[1];
        $mois = $reg[2];
        $jour = $reg[3];
    }

    /*
     * Norme ISO-8601:
     * - La semaine 1 de toute année est celle qui contient le 4 janvier ou que la semaine 1 de toute année est celle qui contient le 1er jeudi de janvier.
     * - La majorité des années ont 52 semaines mais les années qui commence un jeudi et les années bissextiles commençant un mercredi en possède 53.
     * - Le 1er jour de la semaine est le Lundi
     */

    // Définition du Jeudi de la semaine
    if (date("w",mktime(12,0,0,$mois,$jour,$annee))==0) // Dimanche
        $jeudiSemaine = mktime(12,0,0,$mois,$jour,$annee)-3*24*60*60;
    else if (date("w",mktime(12,0,0,$mois,$jour,$annee))<4) // du Lundi au Mercredi
        $jeudiSemaine = mktime(12,0,0,$mois,$jour,$annee)+(4-date("w",mktime(12,0,0,$mois,$jour,$annee)))*24*60*60;
    else if (date("w",mktime(12,0,0,$mois,$jour,$annee))>4) // du Vendredi au Samedi
        $jeudiSemaine = mktime(12,0,0,$mois,$jour,$annee)-(date("w",mktime(12,0,0,$mois,$jour,$annee))-4)*24*60*60;
    else // Jeudi
        $jeudiSemaine = mktime(12,0,0,$mois,$jour,$annee);

    // Définition du premier Jeudi de l'année
    if (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))==0) // Dimanche
    {
        $premierJeudiAnnee = mktime(12,0,0,1,1,date("Y",$jeudiSemaine))+4*24*60*60;
    }
    else if (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))<4) // du Lundi au Mercredi
    {
        $premierJeudiAnnee = mktime(12,0,0,1,1,date("Y",$jeudiSemaine))+(4-date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine))))*24*60*60;
    }
    else if (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))>4) // du Vendredi au Samedi
    {
        $premierJeudiAnnee = mktime(12,0,0,1,1,date("Y",$jeudiSemaine))+(7-(date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))-4))*24*60*60;
    }
    else // Jeudi
    {
        $premierJeudiAnnee = mktime(12,0,0,1,1,date("Y",$jeudiSemaine));
    }

    // Définition du numéro de semaine: nb de jours entre "premier Jeudi de l'année" et "Jeudi de la semaine";
    $numeroSemaine =     (
                    (
                        date("z",mktime(12,0,0,date("m",$jeudiSemaine),date("d",$jeudiSemaine),date("Y",$jeudiSemaine)))
                        -
                        date("z",mktime(12,0,0,date("m",$premierJeudiAnnee),date("d",$premierJeudiAnnee),date("Y",$premierJeudiAnnee)))
                    ) / 7
                ) + 1;

    // Cas particulier de la semaine 53
    if ($numeroSemaine==53)
    {
        // Les années qui commence un Jeudi et les années bissextiles commençant un Mercredi en possède 53
        if (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))==4 || (date("w",mktime(12,0,0,1,1,date("Y",$jeudiSemaine)))==3 && date("z",mktime(12,0,0,12,31,date("Y",$jeudiSemaine)))==365))
        {
            $numeroSemaine = 53;
        }
        else
        {
            $numeroSemaine = 1;
        }
    }

    //echo $jour."-".$mois."-".$annee." (".date("d-m-Y",$premierJeudiAnnee)." - ".date("d-m-Y",$jeudiSemaine).") -> ".$numeroSemaine."<BR>";

    return sprintf("%02d",$numeroSemaine);
}
/**
   \brief   Retourne le picto champ obligatoire
   \return  string		Chaine avec picto obligatoire
*/
function picto_required()
{
	return '<b>*</b>';
}
/**
   \brief   Convertit une masse d'une unite vers une autre unite
   \param   weight    float	Masse a convertir
   \param   from_unit int     Unite originale en puissance de 10
   \param   to_unit   int     Nouvelle unite  en puissance de 10
   \return  float	        Masse convertie
*/
function weight_convert($weight,&$from_unit,$to_unit)
{
  /* Pour convertire 320 gr en Kg appeler
   *  $f = -3
   *  weigh_convert(320, $f, 0) retournera 0.32
   *
   */
  while ($from_unit  <> $to_unit)
    {
      if ($from_unit > $to_unit)
	{
	  $weight = $weight * 10;
	  $from_unit = $from_unit - 1;
	  $weight = weight_convert($weight,$from_unit, $to_unit);
	}
      if ($from_unit < $to_unit)
	{
	  $weight = $weight / 10;
	  $from_unit = $from_unit + 1;
	  $weight = weight_convert($weight,$from_unit, $to_unit);
	}
    }

  return $weight;
}
/**
   \brief   Renvoi le texte d'une unite
   \param   int      Unit
   \return  string	      Unite
   \todo    gerer les autres unités de mesure comme la livre, le gallon, le litre, ...
*/
function weight_units_string($unit)
{
  /* Note Rodo aux dev :)
   * Ne pas insérer dans la base de données ces valeurs
   * cela surchagerait inutilement d'une requete supplémentaire
   * pour quelque chose qui est somme toute peu variable
   */
  $weight_string[3] = 'Tonnes';
  $weight_string[0] = 'kg';
  $weight_string[-3] = 'g';
  $weight_string[-6] = 'mg';

  return $weight_string[$unit];
}

/**
   \brief   Decode le code html
   \param   string      StringHtml
   \return  string	    DecodeString
*/
function dol_entity_decode($StringHtml)
{
	$DecodeString = html_entity_decode($StringHtml);
	return $DecodeString;
}

/**
   \brief   Supprime le code html
   \param   string      StringHtml
   \return  string	    CleanString
*/
function clean_html($StringHtml)
{
  $pattern = "<[^>]+>";
  $temp = dol_entity_decode($StringHtml);
  $temp = ereg_replace($pattern,"",$temp);
  // Supprime aussi les retours
  $temp=str_replace("\n"," ",$temp);
  // et les espaces doubles
  while(STRPOS($temp,"  "))
  {
  	$temp = STR_REPLACE("  "," ",$temp);
  }
  $CleanString = $temp;
  return $CleanString;
}

/**
   \brief   Convertir du binaire en héxadécimal
   \param   string      bin
   \return  string	    x
*/
function binhex($bin, $pad=false, $upper=false){
  $last = strlen($bin)-1;
  for($i=0; $i<=$last; $i++){ $x += $bin[$last-$i] * pow(2,$i); }
  $x = dechex($x);
  if($pad){ while(strlen($x) < intval(strlen($bin))/4){ $x = "0$x"; } }
  if($upper){ $x = strtoupper($x); }
  return $x;
}

/**
   \brief   Convertir de l'héxadécimal en binaire
   \param   string      hexa
   \return  string	    bin
*/
function hexbin($hexa){
   $bin='';
   for($i=0;$i<strlen($hexa);$i++)
   {
   	$bin.=str_pad(decbin(hexdec($hexa{$i})),4,'0',STR_PAD_LEFT);
   }
   return $bin;
}

// Cette fonction est appelée pour coder ou non une chaine en html
// selon qu'on compte l'afficher dans le PDF avec:
// writeHTMLCell -> a besoin d'etre encodé en HTML
// MultiCell -> ne doit pas etre encodé en HTML
function _dol_htmlentities($stringtoencode,$isstringalreadyhtml)
{
	global $conf;

	if ($isstringalreadyhtml) return $stringtoencode;
	if ($conf->fckeditor->enabled) return htmlentities($stringtoencode);
	return $stringtoencode;
}

/**
   \brief   Encode\decode le mot de passe de la base de données dans le fichier de conf
   \param   level    niveau d'encodage : 0 non encodé, 1 encodé
*/
function encodedecode_dbpassconf($level=0)
{
	$config = '';

	if ($fp = fopen(DOL_DOCUMENT_ROOT.'/conf/conf.php','r'))
	{
		while(!feof($fp))
		{
			$buffer = fgets($fp,4096);
			
			if (strstr($buffer,"\$dolibarr_main_db_encrypted_pass") && $level == 0)
			{
				$passwd = strstr($buffer,"$dolibarr_main_db_encrypted_pass=");
				$passwd = substr(substr($passwd,2),0,-3);
				$passwd = dolibarr_decode($passwd);
				$config .= "\$dolibarr_main_db_pass=\"$passwd\";\n";
			}
			else if (strstr($buffer,"\$dolibarr_main_db_pass") && $level == 1)
			{
				$passwd = strstr($buffer,"$dolibarr_main_db_pass=");
				$passwd = substr(substr($passwd,2),0,-3);
				$passwd = dolibarr_encode($passwd);
				$config .= "\$dolibarr_main_db_encrypted_pass=\"$passwd\";\n";
			}
			else
			{
				$config .= $buffer;
			}
		}
		fclose($fp);
		
		if ($fp = @fopen(DOL_DOCUMENT_ROOT.'/conf/conf.php','w'))
		{
			fputs($fp, $config, strlen($config));
			fclose($fp);
			return 1;
		}
		else
		{
			return -1;
		}
	}
	else
	{
		return -2;
	}
}

/**
   \brief   Encode une chaine de caractère
   \param   chain    chaine de caractères à encoder
   \return  string_coded  chaine de caractères encodée
*/
function dolibarr_encode($chain)
{
        for($i=0;$i<strlen($chain);$i++)
        {
        	$output_tab[$i] = chr(ord(substr($chain,$i,1))+17);
        }
        
        $string_coded = base64_encode(implode ("",$output_tab));
        return $string_coded;
}

/**
   \brief   Decode une chaine de caractère
   \param   chain    chaine de caractères à decoder
   \return  string_coded  chaine de caractères decodée
*/
function dolibarr_decode($chain)
{
        $chain = base64_decode($chain);
        
        for($i=0;$i<strlen($chain);$i++)
        {
        	$output_tab[$i] = chr(ord(substr($chain,$i,1))-17);
        }
        
        $string_decoded = implode ("",$output_tab);
        return $string_decoded;
}

?>