PageRenderTime 78ms CodeModel.GetById 21ms RepoModel.GetById 1ms app.codeStats 0ms

/htdocs/core/lib/functions.lib.php

https://github.com/ChevalierBayard/dolibarr
PHP | 4404 lines | 2848 code | 388 blank | 1168 comment | 669 complexity | f73a6d613c2c1e88da8b11d652cceeae MD5 | raw file
Possible License(s): GPL-3.0 
    

  1. <?php
    2. 

  2. /* Copyright (C) 2000-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
    3. 

  3.  * Copyright (C) 2003      Jean-Louis Bergamo   <jlb@j1b.org>
    4. 

  4.  * Copyright (C) 2004-2013 Laurent Destailleur  <eldy@users.sourceforge.net>
    5. 

  5.  * Copyright (C) 2004      Sebastien Di Cintio  <sdicintio@ressource-toi.org>
    6. 

  6.  * Copyright (C) 2004      Benoit Mortier       <benoit.mortier@opensides.be>
    7. 

  7.  * Copyright (C) 2004      Christophe Combelles <ccomb@free.fr>
    8. 

  8.  * Copyright (C) 2005-2012 Regis Houssin        <regis.houssin@capnetworks.com>
    9. 

  9.  * Copyright (C) 2008      Raphael Bertrand (Resultic)       <raphael.bertrand@resultic.fr>
    10. 

  10.  * Copyright (C) 2010-2011 Juanjo Menent        <jmenent@2byte.es>
    11. 

  11.  *
    12. 

  12.  * This program is free software; you can redistribute it and/or modify
    13. 

  13.  * it under the terms of the GNU General Public License as published by
    14. 

  14.  * the Free Software Foundation; either version 3 of the License, or
    15. 

  15.  * (at your option) any later version.
    16. 

  16.  *
    17. 

  17.  * This program is distributed in the hope that it will be useful,
    18. 

  18.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
    19. 

  19.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    20. 

  20.  * GNU General Public License for more details.
    21. 

  21.  *
    22. 

  22.  * You should have received a copy of the GNU General Public License
    23. 

  23.  * along with this program. If not, see <http://www.gnu.org/licenses/>.
    24. 

  24.  * or see http://www.gnu.org/
    25. 

  25.  */
    26. 

  26. 

  27. /**
    28. 

  28.  *	\file			htdocs/core/lib/functions.lib.php
    29. 

  29.  *	\brief			A set of functions for Dolibarr
    30. 

  30.  *					This file contains all frequently used functions.
    31. 

  31.  */
    32. 

  32. 

  33. 

  34. if (! function_exists('json_encode'))
    35. 

  35. {
    36. 

  36. 	include_once DOL_DOCUMENT_ROOT .'/core/lib/json.lib.php';
    37. 

  37. }
    38. 

  38. 

  39. /**
    40. 

  40.  * Function to return value of a static property when class
    41. 

  41.  * name is dynamically defined (not hard coded).
    42. 

  42.  * This is because $myclass::$myvar works from PHP 5.3.0+ only
    43. 

  43.  *
    44. 

  44.  * @param	string 	$class		Class name
    45. 

  45.  * @param 	string 	$member		Name of property
    46. 

  46.  * @return 	string				Return value of static property.
    47. 

  47.  */
    48. 

  48. function getStaticMember($class, $member)
    49. 

  49. {
    50. 

  50. 	if (is_object($class)) $class = get_class($class);
    51. 

  51. 	$classObj = new ReflectionClass($class);
    52. 

  52. 	$result = null;
    53. 

  53. 

  54. 	$found=0;
    55. 

  55. 	foreach($classObj->getStaticProperties() as $prop => $value)
    56. 

  56. 	{
    57. 

  57. 		if ($prop == $member)
    58. 

  58. 		{
    59. 

  59. 			$result = $value;
    60. 

  60. 			$found++;
    61. 

  61. 			break;
    62. 

  62. 		}
    63. 

  63. 	}
    64. 

  64. 

  65. 	if (! $found) dol_print_error('','Try to get a static member "'.$member.'" in class "'.$class.'" that does not exists or is not static.');
    66. 

  66. 	return $result;
    67. 

  67. }
    68. 

  68. 

  69. 

  70. /**
    71. 

  71.  * Return a DoliDB instance (database handler).
    72. 

  72.  *
    73. 

  73.  * @param   string	$type		Type of database (mysql, pgsql...)
    74. 

  74.  * @param	string	$host		Address of database server
    75. 

  75.  * @param	string	$user		Nom de l'utilisateur autorise
    76. 

  76.  * @param	string	$pass		Mot de passe
    77. 

  77.  * @param	string	$name		Nom de la database
    78. 

  78.  * @param	int		$port		Port of database server
    79. 

  79.  * @return	DoliDB				A DoliDB instance
    80. 

  80.  */
    81. 

  81. function getDoliDBInstance($type, $host, $user, $pass, $name, $port)
    82. 

  82. {
    83. 

  83. 	require_once DOL_DOCUMENT_ROOT ."/core/db/".$type.'.class.php';
    84. 

  84. 

  85. 	$class='DoliDB'.ucfirst($type);
    86. 

  86. 	$dolidb=new $class($type, $host, $user, $pass, $name, $port);
    87. 

  87. 	return $dolidb;
    88. 

  88. }
    89. 

  89. 

  90. /**
    91. 

  91.  * 	Get entity to use
    92. 

  92.  *
    93. 

  93.  * 	@param	string	$element	Current element
    94. 

  94.  * 	@param	int		$shared		1=Return shared entities
    95. 

  95.  * 	@return	mixed				Entity id(s) to use
    96. 

  96.  */
    97. 

  97. function getEntity($element=false, $shared=false)
    98. 

  98. {
    99. 

  99. 	global $conf, $mc;
    100. 

  100. 

  101. 	if (is_object($mc))
    102. 

  102. 	{
    103. 

  103. 		return $mc->getEntity($element, $shared);
    104. 

  104. 	}
    105. 

  105. 	else
    106. 

  106. 	{
    107. 

  107. 		$out='';
    108. 

  108. 

  109. 		$addzero = array('user', 'usergroup');
    110. 

  110. 		if (in_array($element, $addzero)) $out.= '0,';
    111. 

  111. 

  112. 		$out.= $conf->entity;
    113. 

  113. 

  114. 		return $out;
    115. 

  115. 	}
    116. 

  116. }
    117. 

  117. 

  118. /**
    119. 

  119.  * Return information about user browser
    120. 

  120.  *
    121. 

  121.  * @return	array		Array of information ('browsername'=>,'browseros'=>,'phone'=>,'browserfirefox'=>)
    122. 

  122.  */
    123. 

  123. function getBrowserInfo()
    124. 

  124. {
    125. 

  125. 	$name='unknown'; $version=''; $os='unknown'; $phone='';
    126. 

  126. 

  127. 	// If phone/smartphone, we set phone os name.
    128. 

  128. 	if (preg_match('/android/i',$_SERVER["HTTP_USER_AGENT"]))			{ $os=$phone='android'; }
    129. 

  129. 	elseif (preg_match('/blackberry/i',$_SERVER["HTTP_USER_AGENT"]))	{ $os=$phone='blackberry'; }
    130. 

  130. 	elseif (preg_match('/iphone/i',$_SERVER["HTTP_USER_AGENT"]))		{ $os='ios'; $phone='iphone'; }
    131. 

  131. 	elseif (preg_match('/ipod/i',$_SERVER["HTTP_USER_AGENT"]))			{ $os='ios'; $phone='iphone'; }
    132. 

  132. 	elseif (preg_match('/palm/i',$_SERVER["HTTP_USER_AGENT"]))			{ $os=$phone='palm'; }
    133. 

  133. 	elseif (preg_match('/symbian/i',$_SERVER["HTTP_USER_AGENT"]))		{ $os='symbian'; $phone='unknown'; }
    134. 

  134. 	elseif (preg_match('/webos/i',$_SERVER["HTTP_USER_AGENT"]))			{ $os='webos'; $phone='unknown'; }
    135. 

  135. 	elseif (preg_match('/maemo/i',$_SERVER["HTTP_USER_AGENT"]))			{ $os='maemo'; $phone='unknown'; }
    136. 

  136. 	// MS products at end
    137. 

  137. 	elseif (preg_match('/iemobile/i',$_SERVER["HTTP_USER_AGENT"]))		{ $os='windows'; $phone='unkown'; }
    138. 

  138. 	elseif (preg_match('/windows ce/i',$_SERVER["HTTP_USER_AGENT"]))	{ $os='windows'; $phone='unkown'; }
    139. 

  139. 	// Name
    140. 

  140. 	if (preg_match('/firefox(\/|\s)([\d\.]*)/i',    $_SERVER["HTTP_USER_AGENT"], $reg))  { $name='firefox';   $version=$reg[2]; }
    141. 

  141. 	elseif (preg_match('/chrome(\/|\s)([\d\.]+)/i', $_SERVER["HTTP_USER_AGENT"], $reg))  { $name='chrome';    $version=$reg[2]; }    // we can have 'chrome (Mozilla...) chrome x.y' in one string
    142. 

  142. 	elseif (preg_match('/chrome/i',                 $_SERVER["HTTP_USER_AGENT"], $reg))  { $name='chrome'; }
    143. 

  143. 	elseif (preg_match('/iceweasel/i',$_SERVER["HTTP_USER_AGENT"]))                      { $name='iceweasel'; $version=$reg[2]; }
    144. 

  144. 	elseif (preg_match('/epiphany/i',$_SERVER["HTTP_USER_AGENT"]))                       { $name='epiphany';  $version=$reg[2]; }
    145. 

  145. 	elseif ((empty($phone) || preg_match('/iphone/i',$_SERVER["HTTP_USER_AGENT"])) && preg_match('/safari(\/|\s)([\d\.]*)/i',$_SERVER["HTTP_USER_AGENT"], $reg)) { $name='safari'; $version=$reg[2]; }	// Safari is often present in string for mobile but its not.
    146. 

  146. 	elseif (preg_match('/opera(\/|\s)([\d\.]*)/i',  $_SERVER["HTTP_USER_AGENT"], $reg))  { $name='opera';     $version=$reg[2]; }
    147. 

  147. 	elseif (preg_match('/msie(\/|\s)([\d\.]*)/i',   $_SERVER["HTTP_USER_AGENT"], $reg))  { $name='ie';        $version=$reg[2]; }    // MS products at end
    148. 

  148. 	// Other
    149. 

  149. 	$firefox=0;
    150. 

  150. 	if (in_array($name,array('firefox','iceweasel'))) $firefox=1;
    151. 

  151. 

  152. 	return array('browsername'=>$name, 'browserversion'=>$version, 'browseros'=>$os, 'phone'=>$phone, 'browserfirefox'=>$firefox);
    153. 

  153. }
    154. 

  154. 

  155. /**
    156. 

  156.  *  Function called at end of web php process
    157. 

  157.  *
    158. 

  158.  *  @return	void
    159. 

  159.  */
    160. 

  160. function dol_shutdown()
    161. 

  161. {
    162. 

  162. 	global $conf,$user,$langs,$db;
    163. 

  163. 	$disconnectdone=false; $depth=0;
    164. 

  164. 	if (is_object($db) && ! empty($db->connected)) { $depth=$db->transaction_opened; $disconnectdone=$db->close(); }
    165. 

  165. 	dol_syslog("--- End access to ".$_SERVER["PHP_SELF"].(($disconnectdone && $depth)?' (Warn: db disconnection forced, transaction depth was '.$depth.')':''), (($disconnectdone && $depth)?LOG_WARNING:LOG_DEBUG));
    166. 

  166. }
    167. 

  167. 

  168. 

  169. /**
    170. 

  170.  *  Return value of a param into GET or POST supervariable
    171. 

  171.  *
    172. 

  172.  *  @param	string	$paramname   Name of parameter to found
    173. 

  173.  *  @param	string	$check	     Type of check (''=no check,  'int'=check it's numeric, 'alpha'=check it's alpha only, 'array'=check it's array)
    174. 

  174.  *  @param	int		$method	     Type of method (0 = get then post, 1 = only get, 2 = only post, 3 = post then get)
    175. 

  175.  *  @return string      		 Value found or '' if check fails
    176. 

  176.  */
    177. 

  177. function GETPOST($paramname,$check='',$method=0)
    178. 

  178. {
    179. 

  179. 	if (empty($method)) $out = isset($_GET[$paramname])?$_GET[$paramname]:(isset($_POST[$paramname])?$_POST[$paramname]:'');
    180. 

  180. 	elseif ($method==1) $out = isset($_GET[$paramname])?$_GET[$paramname]:'';
    181. 

  181. 	elseif ($method==2) $out = isset($_POST[$paramname])?$_POST[$paramname]:'';
    182. 

  182. 	elseif ($method==3) $out = isset($_POST[$paramname])?$_POST[$paramname]:(isset($_GET[$paramname])?$_GET[$paramname]:'');
    183. 

  183. 	else return 'BadParameter';
    184. 

  184. 

  185. 	if (! empty($check))
    186. 

  186. 	{
    187. 

  187. 		// Check if numeric
    188. 

  188. 		if ($check == 'int' && ! preg_match('/^[-\.,0-9]+$/i',$out))
    189. 

  189. 		{
    190. 

  190. 			$out=trim($out);
    191. 

  191. 			$out='';
    192. 

  192. 		}
    193. 

  193. 		// Check if alpha
    194. 

  194. 		elseif ($check == 'alpha')
    195. 

  195. 		{
    196. 

  196. 			$out=trim($out);
    197. 

  197. 			// '"' is dangerous because param in url can close the href= or src= and add javascript functions.
    198. 

  198. 			// '../' is dangerous because it allows dir transversals
    199. 

  199. 			if (preg_match('/"/',$out)) $out='';
    200. 

  200. 			else if (preg_match('/\.\.\//',$out)) $out='';
    201. 

  201. 		}
    202. 

  202. 		elseif ($check == 'array')
    203. 

  203. 		{
    204. 

  204. 			if (! is_array($out) || empty($out)) $out=array();
    205. 

  205. 		}
    206. 

  206. 	}
    207. 

  207. 

  208. 	return $out;
    209. 

  209. }
    210. 

  210. 

  211. 

  212. /**
    213. 

  213.  *  Return a prefix to use for this Dolibarr instance for session or cookie names.
    214. 

  214.  *  This prefix is unique for instance and avoid conflict between multi-instances,
    215. 

  215.  *  even when having two instances with one root dir or two instances in virtual servers
    216. 

  216.  *
    217. 

  217.  *  @return	string      		A calculated prefix
    218. 

  218.  */
    219. 

  219. function dol_getprefix()
    220. 

  220. {
    221. 

  221. 	return dol_hash($_SERVER["SERVER_NAME"].$_SERVER["DOCUMENT_ROOT"].DOL_DOCUMENT_ROOT.DOL_URL_ROOT);
    222. 

  222. }
    223. 

  223. 

  224. /**
    225. 

  225.  *	Make an include_once using default root and alternate root if it fails.
    226. 

  226.  *	WARNING: In most cases, you should not use this function:
    227. 

  227.  *  To link to a core file, use include(DOL_DOCUMENT_ROOT.'/pathtofile')
    228. 

  228.  *  To link to a module file from a module file, use include './mymodulefile';
    229. 

  229.  *  To link to a module file from a core file, then this function can be used
    230. 

  230.  *
    231. 

  231.  * 	@param	string	$relpath	Relative path to file (Ie: mydir/myfile, ../myfile, ...)
    232. 

  232.  * 	@param	string	$classname	Class name
    233. 

  233.  *  @return int					false if include fails.
    234. 

  234.  */
    235. 

  235. function dol_include_once($relpath, $classname='')
    236. 

  236. {
    237. 

  237. 	global $conf,$langs,$user,$mysoc;   // Other global var must be retreived with $GLOBALS['var']
    238. 

  238. 

  239. 	if (! empty($classname) && ! class_exists($classname)) {
    240. 

  240. 		return @include dol_buildpath($relpath);			// Remove @ to find error into php log file if you have problems
    241. 

  241. 	} else {
    242. 

  242. 		return @include_once dol_buildpath($relpath);		// Remove @ to find error into php log file if you have problems
    243. 

  243. 	}
    244. 

  244. }
    245. 

  245. 

  246. 

  247. /**
    248. 

  248.  *	Return path of url or filesystem. Return default_root or alternate root if file_exist fails
    249. 

  249.  *
    250. 

  250.  * 	@param	string	$path		Relative path to file (if mode=0, ie: mydir/myfile, ../myfile, ...) or relative url (if mode=1).
    251. 

  251.  *  @param	int		$type		0=Used for a Filesystem path, 1=Used for an URL path (output relative), 2=Used for an URL path (output full path)
    252. 

  252.  *  @return string				Full filsystem path (if mode=0), Full url path (if mode=1)
    253. 

  253.  */
    254. 

  254. function dol_buildpath($path, $type=0)
    255. 

  255. {
    256. 

  256. 	if (empty($type))	// For a filesystem path
    257. 

  257. 	{
    258. 

  258. 		$res = DOL_DOCUMENT_ROOT.$path;	// Standard value
    259. 

  259. 		if (defined('DOL_DOCUMENT_ROOT_ALT') && DOL_DOCUMENT_ROOT_ALT)	// We check only if alternate feature is used
    260. 

  260. 		{
    261. 

  261. 			if (! file_exists(DOL_DOCUMENT_ROOT.$path)) $res = DOL_DOCUMENT_ROOT_ALT.$path;
    262. 

  262. 		}
    263. 

  263. 	}
    264. 

  264. 	else				// For an url path
    265. 

  265. 	{
    266. 

  266. 		// We try to get local path of file on filesystem from url
    267. 

  267. 		// Note that trying to know if a file on disk exist by forging path on disk from url
    268. 

  268. 		// works only for some web server and some setup. This is bugged when
    269. 

  269. 		// using proxy, rewriting, virtual path, etc...
    270. 

  270. 		if ($type == 1)
    271. 

  271. 		{
    272. 

  272. 			$res = DOL_URL_ROOT.$path;		// Standard value
    273. 

  273. 			if (defined('DOL_URL_ROOT_ALT') && DOL_URL_ROOT_ALT)			// We check only if alternate feature is used
    274. 

  274. 			{
    275. 

  275. 				preg_match('/^([^\?]+(\.css\.php|\.css|\.js\.php|\.js|\.png|\.jpg|\.php)?)/i',$path,$regs);    // Take part before '?'
    276. 

  276. 				if (! empty($regs[1]))
    277. 

  277. 				{
    278. 

  278. 					if (! file_exists(DOL_DOCUMENT_ROOT.$regs[1])) $res = DOL_URL_ROOT_ALT.$path;
    279. 

  279. 				}
    280. 

  280. 			}
    281. 

  281. 		}
    282. 

  282. 		else if ($type == 2)
    283. 

  283. 		{
    284. 

  284. 			$res = DOL_MAIN_URL_ROOT.$path;      // Standard value
    285. 

  285. 			if (defined('DOL_URL_ROOT_ALT') && DOL_URL_ROOT_ALT)            // We check only if alternate feature is used
    286. 

  286. 			{
    287. 

  287. 				preg_match('/^([^\?]+(\.css\.php|\.css|\.js\.php|\.js|\.png|\.jpg|\.php)?)/i',$path,$regs);    // Take part before '?'
    288. 

  288. 				if (! empty($regs[1]))
    289. 

  289. 				{
    290. 

  290. 					if (! file_exists(DOL_DOCUMENT_ROOT.$regs[1])) $res = DOL_MAIN_URL_ROOT_ALT.$path;
    291. 

  291. 				}
    292. 

  292. 			}
    293. 

  293. 		}
    294. 

  294. 	}
    295. 

  295. 

  296. 	return $res;
    297. 

  297. }
    298. 

  298. 

  299. /**
    300. 

  300.  *	Create a clone of instance of object (new instance with same properties)
    301. 

  301.  * 	This function works for both PHP4 and PHP5
    302. 

  302.  *
    303. 

  303.  * 	@param	object	$object		Object to clone
    304. 

  304.  *	@return object				Object clone
    305. 

  305.  */
    306. 

  306. function dol_clone($object)
    307. 

  307. {
    308. 

  308. 	dol_syslog("Functions.lib::dol_clone Clone object");
    309. 

  309. 

  310. 	// We create dynamically a clone function, making a =
    311. 

  311. 	if (version_compare(phpversion(), '5.0') < 0 && ! function_exists('clone'))
    312. 

  312. 	{
    313. 

  313. 		eval('function clone($object){return($object);}');
    314. 

  314. 	}
    315. 

  315. 	$myclone=clone($object);
    316. 

  316. 	return $myclone;
    317. 

  317. }
    318. 

  318. 

  319. /**
    320. 

  320.  *	Optimize a size for some browsers (phone, smarphone, ...)
    321. 

  321.  *
    322. 

  322.  * 	@param	int		$size		Size we want
    323. 

  323.  * 	@param	string	$type		Type of optimizing:
    324. 

  324.  * 								'' = function used to define a size for truncation
    325. 

  325.  * 								'width' = function is used to define a width
    326. 

  326.  *	@return int					New size after optimizing
    327. 

  327.  */
    328. 

  328. function dol_size($size,$type='')
    329. 

  329. {
    330. 

  330. 	global $conf;
    331. 

  331. 	if (empty($conf->dol_optimize_smallscreen)) return $size;
    332. 

  332. 	if ($type == 'width' && $size > 250) return 250;
    333. 

  333. 	else return 10;
    334. 

  334. }
    335. 

  335. 

  336. 

  337. /**
    338. 

  338.  *	Clean a string to use it as a file name
    339. 

  339.  *
    340. 

  340.  *	@param	string	$str            String to clean
    341. 

  341.  * 	@param	string	$newstr			String to replace bad chars with
    342. 

  342.  *  @param	string	$unaccent		1=Remove also accent (default), 0 do not remove them
    343. 

  343.  *	@return string          		String cleaned (a-zA-Z_)
    344. 

  344.  *
    345. 

  345.  * 	@see        	dol_string_nospecial, dol_string_unaccent
    346. 

  346.  */
    347. 

  347. function dol_sanitizeFileName($str,$newstr='_',$unaccent=1)
    348. 

  348. {
    349. 

  349. 	$filesystem_forbidden_chars = array('<','>',':','/','\\','?','*','|','"');
    350. 

  350. 	return dol_string_nospecial($unaccent?dol_string_unaccent($str):$str, $newstr, $filesystem_forbidden_chars);
    351. 

  351. }
    352. 

  352. 

  353. /**
    354. 

  354.  *	Clean a string from all accent characters to be used as ref, login or by dol_sanitizeFileName
    355. 

  355.  *
    356. 

  356.  *	@param	string	$str			String to clean
    357. 

  357.  *	@return string   	       		Cleaned string
    358. 

  358.  *
    359. 

  359.  * 	@see    		dol_sanitizeFilename, dol_string_nospecial
    360. 

  360.  */
    361. 

  361. function dol_string_unaccent($str)
    362. 

  362. {
    363. 

  363. 	if (utf8_check($str))
    364. 

  364. 	{
    365. 

  365. 		$string = rawurlencode($str);
    366. 

  366. 		$replacements = array(
    367. 

  367. 		'%C3%80' => 'A','%C3%81' => 'A',
    368. 

  368. 		'%C3%88' => 'E','%C3%89' => 'E',
    369. 

  369. 		'%C3%8C' => 'I','%C3%8D' => 'I',
    370. 

  370. 		'%C3%92' => 'O','%C3%93' => 'O',
    371. 

  371. 		'%C3%99' => 'U','%C3%9A' => 'U',
    372. 

  372. 		'%C3%A0' => 'a','%C3%A1' => 'a','%C3%A2' => 'a',
    373. 

  373. 		'%C3%A8' => 'e','%C3%A9' => 'e','%C3%AA' => 'e','%C3%AB' => 'e',
    374. 

  374. 		'%C3%AC' => 'i','%C3%AD' => 'i','%C3%AE' => 'i',
    375. 

  375. 		'%C3%B2' => 'o','%C3%B3' => 'o',
    376. 

  376. 		'%C3%B9' => 'u','%C3%BA' => 'u'
    377. 

  377. 		);
    378. 

  378. 		$string=strtr($string, $replacements);
    379. 

  379. 		return rawurldecode($string);
    380. 

  380. 	}
    381. 

  381. 	else
    382. 

  382. 	{
    383. 

  383. 		$string = strtr(
    384. 

  384. 			$str,
    385. 

  385. 			"\xC0\xC1\xC2\xC3\xC5\xC7
    386. 

  386. 			\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1
    387. 

  387. 			\xD2\xD3\xD4\xD5\xD8\xD9\xDA\xDB\xDD
    388. 

  388. 			\xE0\xE1\xE2\xE3\xE5\xE7\xE8\xE9\xEA\xEB
    389. 

  389. 			\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF8
    390. 

  390. 			\xF9\xFA\xFB\xFD\xFF",
    391. 

  391. 			"AAAAAC
    392. 

  392. 			EEEEIIIIDN
    393. 

  393. 			OOOOOUUUY
    394. 

  394. 			aaaaaceeee
    395. 

  395. 			iiiidnooooo
    396. 

  396. 			uuuyy"
    397. 

  397. 		);
    398. 

  398. 		$string = strtr($string, array("\xC4"=>"Ae", "\xC6"=>"AE", "\xD6"=>"Oe", "\xDC"=>"Ue", "\xDE"=>"TH", "\xDF"=>"ss", "\xE4"=>"ae", "\xE6"=>"ae", "\xF6"=>"oe", "\xFC"=>"ue", "\xFE"=>"th"));
    399. 

  399. 		return $string;
    400. 

  400. 	}
    401. 

  401. }
    402. 

  402. 

  403. /**
    404. 

  404.  *	Clean a string from all punctuation characters to use it as a ref or login
    405. 

  405.  *
    406. 

  406.  *	@param	string	$str            String to clean
    407. 

  407.  * 	@param	string	$newstr			String to replace forbidden chars with
    408. 

  408.  *  @param  array	$badchars       List of forbidden characters
    409. 

  409.  * 	@return string          		Cleaned string
    410. 

  410.  *
    411. 

  411.  * 	@see    		dol_sanitizeFilename, dol_string_unaccent
    412. 

  412.  */
    413. 

  413. function dol_string_nospecial($str,$newstr='_',$badchars='')
    414. 

  414. {
    415. 

  415. 	$forbidden_chars_to_replace=array(" ","'","/","\\",":","*","?","\"","<",">","|","[","]",",",";","=");
    416. 

  416. 	$forbidden_chars_to_remove=array();
    417. 

  417. 	if (is_array($badchars)) $forbidden_chars_to_replace=$badchars;
    418. 

  418. 	//$forbidden_chars_to_remove=array("(",")");
    419. 

  419. 

  420. 	return str_replace($forbidden_chars_to_replace,$newstr,str_replace($forbidden_chars_to_remove,"",$str));
    421. 

  421. }
    422. 

  422. 

  423. /**
    424. 

  424.  *  Returns text escaped for inclusion into javascript code
    425. 

  425.  *
    426. 

  426.  *  @param       string		$stringtoescape		String to escape
    427. 

  427.  *  @return      string     		 			Escaped string
    428. 

  428.  */
    429. 

  429. function dol_escape_js($stringtoescape)
    430. 

  430. {
    431. 

  431. 	// escape quotes and backslashes, newlines, etc.
    432. 

  432. 	$substitjs=array("&#039;"=>"\\'",'\\'=>'\\\\',"'"=>"\\'",'"'=>"\\'","\r"=>'\\r',"\n"=>'\\n','</'=>'<\/');
    433. 

  433. 	return strtr($stringtoescape, $substitjs);
    434. 

  434. }
    435. 

  435. 

  436. 

  437. /**
    438. 

  438.  *  Returns text escaped for inclusion in HTML alt or title tags
    439. 

  439.  *
    440. 

  440.  *  @param      string		$stringtoescape		String to escape
    441. 

  441.  *  @param		int			$keepb				Do not clean b tags
    442. 

  442.  *  @return     string     				 		Escaped string
    443. 

  443.  */
    444. 

  444. function dol_escape_htmltag($stringtoescape,$keepb=0)
    445. 

  445. {
    446. 

  446. 	// escape quotes and backslashes, newlines, etc.
    447. 

  447. 	$tmp=dol_html_entity_decode($stringtoescape,ENT_COMPAT,'UTF-8');
    448. 

  448. 	if ($keepb) $tmp=strtr($tmp, array("\r"=>'\\r',"\n"=>'\\n'));
    449. 

  449. 	else $tmp=strtr($tmp, array("\r"=>'\\r',"\n"=>'\\n',"<b>"=>'','</b>'=>''));
    450. 

  450. 	return dol_htmlentities($tmp,ENT_COMPAT,'UTF-8');
    451. 

  451. }
    452. 

  452. 

  453. 

  454. /**
    455. 

  455.  * Convert a string to lower. Never use strtolower because it does not works with UTF8 strings.
    456. 

  456.  *
    457. 

  457.  * @param 	string		$utf8_string		String to encode
    458. 

  458.  * @return 	string							String converted
    459. 

  459.  */
    460. 

  460. function dol_strtolower($utf8_string)
    461. 

  461. {
    462. 

  462. 	return mb_strtolower($utf8_string, "UTF-8");
    463. 

  463. }
    464. 

  464. 

  465. /**
    466. 

  466.  * Convert a string to upper. Never use strtolower because it does not works with UTF8 strings.
    467. 

  467.  *
    468. 

  468.  * @param 	string		$utf8_string		String to encode
    469. 

  469.  * @return 	string							String converted
    470. 

  470.  */
    471. 

  471. function dol_strtoupper($utf8_string)
    472. 

  472. {
    473. 

  473. 	return mb_strtoupper($utf8_string, "UTF-8");
    474. 

  474. }
    475. 

  475. 

  476. 

  477. /**
    478. 

  478.  *	Write log message into outputs. Possible outputs can be:
    479. 

  479.  *	SYSLOG_HANDLERS = ["mod_syslog_file"]  		file name is then defined by SYSLOG_FILE
    480. 

  480.  *	SYSLOG_HANDLERS = ["mod_syslog_syslog"]  	facility is then defined by SYSLOG_FACILITY
    481. 

  481.  *  Warning, syslog functions are bugged on Windows, generating memory protection faults. To solve
    482. 

  482.  *  this, use logging to files instead of syslog (see setup of module).
    483. 

  483.  *  Note: If SYSLOG_FILE_NO_ERROR defined, we never output any error message when writing to log fails.
    484. 

  484.  *  Note: You can get log message into html sources by adding parameter &logtohtml=1 (constant MAIN_LOGTOHTML must be set)
    485. 

  485.  *  This function works only if syslog module is enabled.
    486. 

  486.  * 	This must not use any call to other function calling dol_syslog (avoid infinite loop).
    487. 

  487.  *
    488. 

  488.  * 	@param  string		$message			Line to log. Ne doit pas etre traduit si level = LOG_ERR
    489. 

  489.  *  @param  int			$level				Log level
    490. 

  490.  *                                  		0=Show nothing
    491. 

  491.  *											On Windows LOG_ERR=4, LOG_WARNING=5, LOG_NOTICE=LOG_INFO=6, LOG_DEBUG=6 si define_syslog_variables ou PHP 5.3+, 7 si dolibarr
    492. 

  492.  *											On Linux   LOG_ERR=3, LOG_WARNING=4, LOG_INFO=6, LOG_DEBUG=7
    493. 

  493.  *  @param	int			$ident				1=Increase ident of 1, -1=Decrease ident of 1
    494. 

  494.  *  @param	string		$suffixinfilename	When output is a file, append this suffix into default log filename.
    495. 

  495.  *  @return	void
    496. 

  496.  */
    497. 

  497. function dol_syslog($message, $level = LOG_INFO, $ident = 0, $suffixinfilename='')
    498. 

  498. {
    499. 

  499. 	global $conf, $user;
    500. 

  500. 

  501. 	// If syslog module enabled
    502. 

  502. 	if (empty($conf->syslog->enabled)) return false;
    503. 

  503. 

  504. 	if (! empty($level))
    505. 

  505. 	{
    506. 

  506. 		// Test log level
    507. 

  507. 		$logLevels = array(	LOG_EMERG, LOG_ALERT, LOG_CRIT, LOG_ERR, LOG_WARNING, LOG_NOTICE, LOG_INFO, LOG_DEBUG);
    508. 

  508. 		if (!in_array($level, $logLevels))
    509. 

  509. 		{
    510. 

  510. 			throw new Exception('Incorrect log level');
    511. 

  511. 		}
    512. 

  512. 		if ($level > $conf->global->SYSLOG_LEVEL) return false;
    513. 

  513. 

  514. 		// If adding log inside HTML page is required
    515. 

  515. 		if (! empty($_REQUEST['logtohtml']) && ! empty($conf->global->MAIN_LOGTOHTML))
    516. 

  516. 		{
    517. 

  517. 			$conf->logbuffer[] = dol_print_date(time(),"%Y-%m-%d %H:%M:%S")." ".$message;
    518. 

  518. 		}
    519. 

  519. 

  520. 		// If enable html log tag enabled and url parameter log defined, we show output log on HTML comments
    521. 

  521. 		if (! empty($conf->global->MAIN_ENABLE_LOG_HTML) && ! empty($_GET["log"]))
    522. 

  522. 		{
    523. 

  523. 			print "\n\n<!-- Log start\n";
    524. 

  524. 			print $message."\n";
    525. 

  525. 			print "Log end -->\n";
    526. 

  526. 		}
    527. 

  527. 

  528. 		$data = array(
    529. 

  529. 			'message' => $message,
    530. 

  530. 			'script' => (isset($_SERVER['PHP_SELF'])? basename($_SERVER['PHP_SELF'],'.php') : false),
    531. 

  531. 			'level' => $level,
    532. 

  532. 			'user' => ((is_object($user) && $user->id) ? $user->login : false),
    533. 

  533. 			'ip' => false
    534. 

  534. 		);
    535. 

  535. 

  536. 		if (! empty($_SERVER["REMOTE_ADDR"])) $data['ip'] = $_SERVER['REMOTE_ADDR'];
    537. 

  537. 		// This is when PHP session is ran inside a web server but not inside a client request (example: init code of apache)
    538. 

  538. 		else if (! empty($_SERVER['SERVER_ADDR'])) $data['ip'] = $_SERVER['SERVER_ADDR'];
    539. 

  539. 		// This is when PHP session is ran outside a web server, like from Windows command line (Not always defined, but useful if OS defined it).
    540. 

  540. 		else if (! empty($_SERVER['COMPUTERNAME'])) $data['ip'] = $_SERVER['COMPUTERNAME'].(empty($_SERVER['USERNAME'])?'':'@'.$_SERVER['USERNAME']);
    541. 

  541. 		// This is when PHP session is ran outside a web server, like from Linux command line (Not always defined, but usefull if OS defined it).
    542. 

  542. 		else if (! empty($_SERVER['LOGNAME'])) $data['ip'] = '???@'.$_SERVER['LOGNAME'];
    543. 

  543. 

  544. 		// Loop on each log handler and send output
    545. 

  545. 		foreach ($conf->loghandlers as $loghandlerinstance)
    546. 

  546. 		{
    547. 

  547. 			$loghandlerinstance->export($data,$suffixinfilename);
    548. 

  548. 		}
    549. 

  549. 		unset($data);
    550. 

  550. 	}
    551. 

  551. 

  552. 	if (! empty($ident))
    553. 

  553. 	{
    554. 

  554. 		foreach ($conf->loghandlers as $loghandlerinstance)
    555. 

  555. 		{
    556. 

  556. 			$loghandlerinstance->setIdent($ident);
    557. 

  557. 		}
    558. 

  558. 	}
    559. 

  559. }
    560. 

  560. 

  561. 

  562. /**
    563. 

  563.  *	Show tab header of a card
    564. 

  564.  *
    565. 

  565.  *	@param	array	$links				Array of tabs
    566. 

  566.  *	@param	string	$active     		Active tab name (document', 'info', 'ldap', ....)
    567. 

  567.  *	@param  string	$title      		Title
    568. 

  568.  *	@param  int		$notab				0=Add tab header, 1=no tab header
    569. 

  569.  * 	@param	string	$picto				Add a picto on tab title
    570. 

  570.  *	@param	int		$pictoisfullpath	If 1, image path is a full path. If you set this to 1, you can use url returned by dol_build_path('/mymodyle/img/myimg.png',1) for $picto.
    571. 

  571.  * 	@return	void
    572. 

  572.  */
    573. 

  573. function dol_fiche_head($links=array(), $active='0', $title='', $notab=0, $picto='', $pictoisfullpath=0)
    574. 

  574. {
    575. 

  575. 	print dol_get_fiche_head($links, $active, $title, $notab, $picto, $pictoisfullpath);
    576. 

  576. }
    577. 

  577. 

  578. /**
    579. 

  579.  *  Show tab header of a card
    580. 

  580.  *
    581. 

  581.  *	@param	array	$links				Array of tabs
    582. 

  582.  *	@param	int		$active     		Active tab name
    583. 

  583.  *	@param  string	$title      		Title
    584. 

  584.  *	@param  int		$notab				0=Add tab header, 1=no tab header
    585. 

  585.  * 	@param	string	$picto				Add a picto on tab title
    586. 

  586.  *	@param	int		$pictoisfullpath	If 1, image path is a full path. If you set this to 1, you can use url returned by dol_build_path('/mymodyle/img/myimg.png',1) for $picto.
    587. 

  587.  * 	@return	void
    588. 

  588.  */
    589. 

  589. function dol_get_fiche_head($links=array(), $active='0', $title='', $notab=0, $picto='', $pictoisfullpath=0)
    590. 

  590. {
    591. 

  591. 	global $conf;
    592. 

  592. 

  593. 	$out="\n".'<div class="tabs">'."\n";
    594. 

  594. 

  595. 	// Show title
    596. 

  596. 	$showtitle=1;
    597. 

  597. 	if (! empty($conf->dol_optimize_smallscreen)) $showtitle=0;
    598. 

  598. 	if (! empty($title) && $showtitle)
    599. 

  599. 	{
    600. 

  600. 		$limittitle=30;
    601. 

  601. 		$out.='<a class="tabTitle">';
    602. 

  602. 		if ($picto) $out.=img_picto('',($pictoisfullpath?'':'object_').$picto,'',$pictoisfullpath).' ';
    603. 

  603. 		$out.=dol_trunc($title,$limittitle);
    604. 

  604. 		$out.='</a>';
    605. 

  605. 	}
    606. 

  606. 

  607. 	// Define max of key (max may be higher than sizeof because of hole due to module disabling some tabs).
    608. 

  608. 	$maxkey=-1;
    609. 

  609. 	if (is_array($links) && ! empty($links))
    610. 

  610. 	{
    611. 

  611. 		$keys=array_keys($links);
    612. 

  612. 		if (count($keys)) $maxkey=max($keys);
    613. 

  613. 	}
    614. 

  614. 

  615. 	// Show tabs
    616. 

  616. 	for ($i = 0 ; $i <= $maxkey ; $i++)
    617. 

  617. 	{
    618. 

  618. 		if (isset($links[$i][2]) && $links[$i][2] == 'image')
    619. 

  619. 		{
    620. 

  620. 			if (!empty($links[$i][0]))
    621. 

  621. 			{
    622. 

  622. 				$out.='<a class="tabimage" href="'.$links[$i][0].'">'.$links[$i][1].'</a>'."\n";
    623. 

  623. 			}
    624. 

  624. 			else
    625. 

  625. 			{
    626. 

  626. 				$out.='<span class="tabspan">'.$links[$i][1].'</span>'."\n";
    627. 

  627. 			}
    628. 

  628. 		}
    629. 

  629. 		else if (! empty($links[$i][1]))
    630. 

  630. 		{
    631. 

  631. 			//print "x $i $active ".$links[$i][2]." z";
    632. 

  632. 			if ((is_numeric($active) && $i == $active)
    633. 

  633. 			|| (! is_numeric($active) && $active == $links[$i][2]))
    634. 

  634. 			{
    635. 

  635. 				$out.='<a id="active" class="tab" href="'.$links[$i][0].'">'.$links[$i][1].'</a>'."\n";
    636. 

  636. 			}
    637. 

  637. 			else
    638. 

  638. 			{
    639. 

  639. 				$out.='<a'.(! empty($links[$i][2])?' id="'.$links[$i][2].'"':'').' class="tab" href="'.$links[$i][0].'">'.$links[$i][1].'</a>'."\n";
    640. 

  640. 			}
    641. 

  641. 		}
    642. 

  642. 	}
    643. 

  643. 

  644. 	$out.="</div>\n";
    645. 

  645. 

  646. 	if (! $notab) $out.="\n".'<div class="tabBar">'."\n";
    647. 

  647. 

  648. 	return $out;
    649. 

  649. }
    650. 

  650. 

  651. /**
    652. 

  652.  *  Show tab footer of a card
    653. 

  653.  *
    654. 

  654.  *  @param	int		$notab       0=Add tab footer, 1=no tab footer
    655. 

  655.  *  @return	void
    656. 

  656.  */
    657. 

  657. function dol_fiche_end($notab=0)
    658. 

  658. {
    659. 

  659. 	print dol_get_fiche_end($notab);
    660. 

  660. }
    661. 

  661. 

  662. /**
    663. 

  663.  *	Return tab footer of a card
    664. 

  664.  *
    665. 

  665.  *	@param  int		$notab		0=Add tab footer, 1=no tab footer
    666. 

  666.  *  @return	void
    667. 

  667.  */
    668. 

  668. function dol_get_fiche_end($notab=0)
    669. 

  669. {
    670. 

  670. 	if (! $notab) return "\n</div>\n";
    671. 

  671. 	else return '';
    672. 

  672. }
    673. 

  673. 

  674. /**
    675. 

  675.  * Return string to add class property on html element with pair/impair.
    676. 

  676.  *
    677. 

  677.  * @param	string	$var			0 or 1
    678. 

  678.  * @param	string	$moreclass		More class to add
    679. 

  679.  * @return	string					String to add class onto HTML element
    680. 

  680.  */
    681. 

  681. function dol_bc($var,$moreclass='')
    682. 

  682. {
    683. 

  683. 	global $bc;
    684. 

  684. 	$ret=' '.$bc[$var];
    685. 

  685. 	if ($moreclass) $ret=preg_replace('/class=\"/','class="'.$moreclass.' ',$ret);
    686. 

  686. 	return $ret;
    687. 

  687. }
    688. 

  688. 

  689. /**
    690. 

  690.  *      Return a formated address (part address/zip/town/state) according to country rules
    691. 

  691.  *
    692. 

  692.  *      @param  Object		$object         A company or contact object
    693. 

  693.  * 	    @param	int			$withcountry	1=Add country into address string
    694. 

  694.  *      @param	string		$sep			Separator to use to build string
    695. 

  695.  *      @return string          			Formated string
    696. 

  696.  */
    697. 

  697. function dol_format_address($object,$withcountry=0,$sep="\n")
    698. 

  698. {
    699. 

  699. 	$ret='';
    700. 

  700. 	$countriesusingstate=array('AU','US','IN','GB','ES');
    701. 

  701. 

  702. 	// Address
    703. 

  703. 	$ret .= $object->address;
    704. 

  704. 	// Zip/Town/State
    705. 

  705. 	if (in_array($object->country_code,array('US','AU')))   	// US: title firstname name \n address lines \n town, state, zip \n country
    706. 

  706. 	{
    707. 

  707. 		$ret .= ($ret ? $sep : '' ).$object->town;
    708. 

  708. 		if ($object->state && in_array($object->country_code,$countriesusingstate))
    709. 

  709. 		{
    710. 

  710. 			$ret.=", ".$object->state;
    711. 

  711. 		}
    712. 

  712. 		if ($object->zip) $ret .= ', '.$object->zip;
    713. 

  713. 	}
    714. 

  714. 	else if (in_array($object->country_code,array('GB'))) // UK: title firstname name \n address lines \n town state \n zip \n country
    715. 

  715. 	{
    716. 

  716. 		$ret .= ($ret ? $sep : '' ).$object->town;
    717. 

  717. 		if ($object->state && in_array($object->country_code,$countriesusingstate))
    718. 

  718. 		{
    719. 

  719. 			$ret.=", ".$object->state;
    720. 

  720. 		}
    721. 

  721. 		if ($object->zip) $ret .= ($ret ? $sep : '' ).$object->zip;
    722. 

  722. 	}
    723. 

  723. 	else if (in_array($object->country_code,array('ES'))) // ES: title firstname name \n address lines \n zip town \n state \n country
    724. 

  724. 	{
    725. 

  725. 		$ret .= ($ret ? $sep : '' ).$object->zip;
    726. 

  726. 		$ret .= ' '.$object->town;
    727. 

  727. 		if ($object->state && in_array($object->country_code,$countriesusingstate))
    728. 

  728. 		{
    729. 

  729. 			$ret.="\n".$object->state;
    730. 

  730. 		}
    731. 

  731. 	}
    732. 

  732. 

  733. 	else                                        		// Other: title firstname name \n address lines \n zip town \n country
    734. 

  734. 	{
    735. 

  735. 		$ret .= ($ret ? $sep : '' ).$object->zip;
    736. 

  736. 		$ret .= ' '.$object->town;
    737. 

  737. 		if ($object->state && in_array($object->country_code,$countriesusingstate))
    738. 

  738. 		{
    739. 

  739. 			$ret.=", ".$object->state;
    740. 

  740. 		}
    741. 

  741. 	}
    742. 

  742. 

  743. 	if ($withcountry) $ret.=($object->country?$sep.$object->country:'');

    744. 

  744. 

  745. 	return $ret;
    746. 

  746. }
    747. 

  747. 

  748. 

  749. 

  750. /**
    751. 

  751.  *	Format a string.
    752. 

  752.  *
    753. 

  753.  *	@param	string	$fmt		Format of strftime function (http://php.net/manual/fr/function.strftime.php)
    754. 

  754.  *  @param	int		$ts			Timesamp (If is_gmt is true, timestamp is already includes timezone and daylight saving offset, if is_gmt is false, timestamp is a GMT timestamp and we must compensate with server PHP TZ)
    755. 

  755.  *  @param	int		$is_gmt		See comment of timestamp parameter
    756. 

  756.  *	@return	string				A formatted string
    757. 

  757.  */
    758. 

  758. function dol_strftime($fmt, $ts=false, $is_gmt=false)
    759. 

  759. {
    760. 

  760. 	if ((abs($ts) <= 0x7FFFFFFF)) { // check if number in 32-bit signed range
    761. 

  761. 		return ($is_gmt)? @gmstrftime($fmt,$ts): @strftime($fmt,$ts);
    762. 

  762. 	}
    763. 

  763. 	else return 'Error date into a not supported range';
    764. 

  764. }
    765. 

  765. 

  766. /**
    767. 

  767.  *	Output date in a string format according to outputlangs (or langs if not defined).
    768. 

  768.  * 	Return charset is always UTF-8, except if encodetoouput is defined. In this case charset is output charset
    769. 

  769.  *
    770. 

  770.  *	@param	timestamp	$time        	GM Timestamps date
    771. 

  771.  *	@param	string		$format      	Output date format
    772. 

  772.  *										"%d %b %Y",
    773. 

  773.  *										"%d/%m/%Y %H:%M",
    774. 

  774.  *										"%d/%m/%Y %H:%M:%S",
    775. 

  775.  *										"day", "daytext", "dayhour", "dayhourldap", "dayhourtext", "dayrfc", "dayhourrfc"
    776. 

  776.  * 	@param	string		$tzoutput		true or 'gmt' => string is for Greenwich location
    777. 

  777.  * 										false or 'tzserver' => output string is for local PHP server TZ usage
    778. 

  778.  * 										'tzuser' => output string is for local browser TZ usage
    779. 

  779.  *	@param	Tranlsate	$outputlangs	Object lang that contains language for text translation.
    780. 

  780.  *  @param  boolean		$encodetooutput false=no convert into output pagecode
    781. 

  781.  * 	@return string      				Formated date or '' if time is null
    782. 

  782.  *
    783. 

  783.  *  @see        dol_mktime, dol_stringtotime, dol_getdate
    784. 

  784.  */
    785. 

  785. function dol_print_date($time,$format='',$tzoutput='tzserver',$outputlangs='',$encodetooutput=false)
    786. 

  786. {
    787. 

  787. 	global $conf,$langs;
    788. 

  788. 

  789. 	// Clean parameters
    790. 

  790. 	$to_gmt=false;
    791. 

  791. 	$offsettz=$offsetdst=0;
    792. 

  792. 	if ($tzoutput)
    793. 

  793. 	{
    794. 

  794. 		$to_gmt=true;	// For backward compatibility
    795. 

  795. 		if (is_string($tzoutput))
    796. 

  796. 		{
    797. 

  797. 			if ($tzoutput == 'tzserver')
    798. 

  798. 			{
    799. 

  799. 				$to_gmt=false;
    800. 

  800. 				$offsettz=$offsetdst=0;
    801. 

  801. 			}
    802. 

  802. 			elseif ($tzoutput == 'tzuser')
    803. 

  803. 			{
    804. 

  804. 				$to_gmt=true;
    805. 

  805. 				$offsettz=(empty($_SESSION['dol_tz'])?0:$_SESSION['dol_tz'])*60*60;
    806. 

  806. 				$offsetdst=(empty($_SESSION['dol_dst'])?0:$_SESSION['dol_dst'])*60*60;
    807. 

  807. 			}
    808. 

  808. 			elseif ($tzoutput == 'tzcompany')
    809. 

  809. 			{
    810. 

  810. 				$to_gmt=false;
    811. 

  811. 				$offsettz=$offsetdst=0;	// TODO Define this and use it later
    812. 

  812. 			}
    813. 

  813. 		}
    814. 

  814. 	}
    815. 

  815. 	if (! is_object($outputlangs)) $outputlangs=$langs;
    816. 

  816. 	if (! $format) $format='daytextshort';
    817. 

  817. 	$reduceformat=(! empty($conf->dol_optimize_smallscreen) && in_array($format,array('day','hour')))?1:0;
    818. 

  818. 	
    819. 

  819. 	// Change predefined format into computer format. If found translation in lang file we use it, otherwise we use default.
    820. 

  820. 	if ($format == 'day')				$format=($outputlangs->trans("FormatDateShort")!="FormatDateShort"?$outputlangs->trans("FormatDateShort"):$conf->format_date_short);
    821. 

  821. 	else if ($format == 'hour')			$format=($outputlangs->trans("FormatHourShort")!="FormatHourShort"?$outputlangs->trans("FormatHourShort"):$conf->format_hour_short);
    822. 

  822. 	else if ($format == 'hourduration')	$format=($outputlangs->trans("FormatHourShortDuration")!="FormatHourShortDuration"?$outputlangs->trans("FormatHourShortDuration"):$conf->format_hour_short_duration);
    823. 

  823. 	else if ($format == 'daytext')			 $format=($outputlangs->trans("FormatDateText")!="FormatDateText"?$outputlangs->trans("FormatDateText"):$conf->format_date_text);
    824. 

  824. 	else if ($format == 'daytextshort')	$format=($outputlangs->trans("FormatDateTextShort")!="FormatDateTextShort"?$outputlangs->trans("FormatDateTextShort"):$conf->format_date_text_short);
    825. 

  825. 	else if ($format == 'dayhour')			 $format=($outputlangs->trans("FormatDateHourShort")!="FormatDateHourShort"?$outputlangs->trans("FormatDateHourShort"):$conf->format_date_hour_short);
    826. 

  826. 	else if ($format == 'dayhoursec')		 $format=($outputlangs->trans("FormatDateHourSecShort")!="FormatDateHourSecShort"?$outputlangs->trans("FormatDateHourSecShort"):$conf->format_date_hour_sec_short);
    827. 

  827. 	else if ($format == 'dayhourtext')		 $format=($outputlangs->trans("FormatDateHourText")!="FormatDateHourText"?$outputlangs->trans("FormatDateHourText"):$conf->format_date_hour_text);
    828. 

  828. 	else if ($format == 'dayhourtextshort') $format=($outputlangs->trans("FormatDateHourTextShort")!="FormatDateHourTextShort"?$outputlangs->trans("FormatDateHourTextShort"):$conf->format_date_hour_text_short);
    829. 

  829. 	// Format not sensitive to language
    830. 

  830. 	else if ($format == 'dayhourlog')		 $format='%Y%m%d%H%M%S';
    831. 

  831. 	else if ($format == 'dayhourldap')		 $format='%Y%m%d%H%M%SZ';
    832. 

  832. 	else if ($format == 'dayhourxcard')	$format='%Y%m%dT%H%M%SZ';
    833. 

  833. 	else if ($format == 'dayxcard')	 	$format='%Y%m%d';
    834. 

  834. 	else if ($format == 'dayrfc')			 $format='%Y-%m-%d';             // DATE_RFC3339
    835. 

  835. 	else if ($format == 'dayhourrfc')		 $format='%Y-%m-%dT%H:%M:%SZ';   // DATETIME RFC3339
    836. 

  836. 	else if ($format == 'standard')		$format='%Y-%m-%d %H:%M:%S';

    837. 

  837. 

  838. 	if ($reduceformat)
    839. 

  839. 	{
    840. 

  840. 		$format=str_replace('%Y','%y',$format);

    841. 

  841. 		$format=str_replace('yyyy','yy',$format);

    842. 

  842. 	}
    843. 

  843. 	
    844. 

  844. 	// If date undefined or "", we return ""
    845. 

  845. 	if (dol_strlen($time) == 0) return '';		// $time=0 allowed (it means 01/01/1970 00:00:00)
    846. 

  846. 

  847. 	// Clean format
    848. 

  848. 	if (preg_match('/%b/i',$format))		// There is some text to translate
    849. 

  849. 	{
    850. 

  850. 		// We inhibate translation to text made by strftime functions. We will use trans instead later.
    851. 

  851. 		$format=str_replace('%b','__b__',$format);
    852. 

  852. 		$format=str_replace('%B','__B__',$format);
    853. 

  853. 	}
    854. 

  854. 	if (preg_match('/%a/i',$format))		// There is some text to translate
    855. 

  855. 	{
    856. 

  856. 		// We inhibate translation to text made by strftime functions. We will use trans instead later.
    857. 

  857. 		$format=str_replace('%a','__a__',$format);
    858. 

  858. 		$format=str_replace('%A','__A__',$format);
    859. 

  859. 	}
    860. 

  860. 

  861. 	// Analyze date (deprecated)   Ex: 1970-01-01, 1970-01-01 01:00:00, 19700101010000
    862. 

  862. 	if (preg_match('/^([0-9]+)\-([0-9]+)\-([0-9]+) ?([0-9]+)?:?([0-9]+)?:?([0-9]+)?/i',$time,$reg)
    863. 

  863. 	|| preg_match('/^([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9])([0-9][0-9])([0-9][0-9])([0-9][0-9])$/i',$time,$reg))
    864. 

  864. 	{
    865. 

  865. 		// This part of code should not be used.
    866. 

  866. 		dol_syslog("Functions.lib::dol_print_date function call with deprecated value of time in page ".$_SERVER["PHP_SELF"], LOG_WARNING);
    867. 

  867. 		// Date has format 'YYYY-MM-DD' or 'YYYY-MM-DD HH:MM:SS' or 'YYYYMMDDHHMMSS'
    868. 

  868. 		$syear	= (! empty($reg[1]) ? $reg[1] : '');
    869. 

  869. 		$smonth	= (! empty($reg[2]) ? $reg[2] : '');
    870. 

  870. 		$sday	= (! empty($reg[3]) ? $reg[3] : '');
    871. 

  871. 		$shour	= (! empty($reg[4]) ? $reg[4] : '');
    872. 

  872. 		$smin	= (! empty($reg[5]) ? $reg[5] : '');
    873. 

  873. 		$ssec	= (! empty($reg[6]) ? $reg[6] : '');
    874. 

  874. 

  875. 		$time=dol_mktime($shour,$smin,$ssec,$smonth,$sday,$syear,true);
    876. 

  876. 		$ret=adodb_strftime($format,$time+$offsettz+$offsetdst,$to_gmt);
    877. 

  877. 	}
    878. 

  878. 	else
    879. 

  879. 	{
    880. 

  880. 		// Date is a timestamps
    881. 

  881. 		if ($time < 100000000000)	// Protection against bad date values
    882. 

  882. 		{
    883. 

  883. 			$ret=adodb_strftime($format,$time+$offsettz+$offsetdst,$to_gmt);
    884. 

  884. 		}
    885. 

  885. 		else $ret='Bad value '.$time.' for date';
    886. 

  886. 	}
    887. 

  887. 

  888. 	if (preg_match('/__b__/i',$format))
    889. 

  889. 	{
    890. 

  890. 		// Here ret is string in PHP setup language (strftime was used). Now we convert to $outputlangs.
    891. 

  891. 		$month=adodb_strftime('%m',$time+$offsettz+$offsetdst);
    892. 

  892. 		if ($encodetooutput)
    893. 

  893. 		{
    894. 

  894. 			$monthtext=$outputlangs->transnoentities('Month'.$month);
    895. 

  895. 			$monthtextshort=$outputlangs->transnoentities('MonthShort'.$month);
    896. 

  896. 		}
    897. 

  897. 		else
    898. 

  898. 		{
    899. 

  899. 			$monthtext=$outputlangs->transnoentitiesnoconv('Month'.$month);
    900. 

  900. 			$monthtextshort=$outputlangs->transnoentitiesnoconv('MonthShort'.$month);
    901. 

  901. 		}
    902. 

  902. 		//print 'monthtext='.$monthtext.' monthtextshort='.$monthtextshort;
    903. 

  903. 		$ret=str_replace('__b__',$monthtextshort,$ret);
    904. 

  904. 		$ret=str_replace('__B__',$monthtext,$ret);
    905. 

  905. 		//print 'x'.$outputlangs->charset_output.'-'.$ret.'x';
    906. 

  906. 		//return $ret;
    907. 

  907. 	}
    908. 

  908. 	if (preg_match('/__a__/i',$format))
    909. 

  909. 	{
    910. 

  910. 		$w=adodb_strftime('%w',$time+$offsettz+$offsetdst);
    911. 

  911. 		$dayweek=$outputlangs->transnoentitiesnoconv('Day'.$w);
    912. 

  912. 		$ret=str_replace('__A__',$dayweek,$ret);
    913. 

  913. 		$ret=str_replace('__a__',dol_substr($dayweek,0,3),$ret);
    914. 

  914. 	}
    915. 

  915. 

  916. 	return $ret;
    917. 

  917. }
    918. 

  918. 

  919. 

  920. /**
    921. 

  921.  *	Return an array with locale date info.
    922. 

  922.  *  PHP getdate is restricted to the years 1901-2038 on Unix and 1970-2038 on Windows
    923. 

  923.  *  WARNING: This function always use PHP server timezone to return locale informations.
    924. 

  924.  *  Usage must be avoid.
    925. 

  925.  *
    926. 

  926.  *	@param	timestamp	$timestamp      Timestamp
    927. 

  927.  *	@param	boolean		$fast           Fast mode
    928. 

  928.  *	@return	array						Array of informations
    929. 

  929.  *										If no fast mode:
    930. 

  930.  *										'seconds' => $secs,
    931. 

  931.  *										'minutes' => $min,
    932. 

  932.  *										'hours' => $hour,
    933. 

  933.  *										'mday' => $day,
    934. 

  934.  *										'wday' => $dow,
    935. 

  935.  *										'mon' => $month,
    936. 

  936.  *										'year' => $year,
    937. 

  937.  *										'yday' => floor($secsInYear/$_day_power),
    938. 

  938.  *										'weekday' => gmdate('l',$_day_power*(3+$dow)),
    939. 

  939.  *										'month' => gmdate('F',mktime(0,0,0,$month,2,1971)),
    940. 

  940.  *										If fast mode:
    941. 

  941.  *										'seconds' => $secs,
    942. 

  942.  *										'minutes' => $min,
    943. 

  943.  *										'hours' => $hour,
    944. 

  944.  *										'mday' => $day,
    945. 

  945.  *										'mon' => $month,
    946. 

  946.  *										'year' => $year,
    947. 

  947.  *										'yday' => floor($secsInYear/$_day_power),
    948. 

  948.  *										'leap' => $leaf,
    949. 

  949.  *										'ndays' => $ndays
    950. 

  950.  * 	@see 								dol_print_date, dol_stringtotime, dol_mktime
    951. 

  951.  */
    952. 

  952. function dol_getdate($timestamp,$fast=false)
    953. 

  953. {
    954. 

  954. 	$usealternatemethod=false;
    955. 

  955. 	if ($timestamp <= 0) $usealternatemethod=true;				// <= 1970
    956. 

  956. 	if ($timestamp >= 2145913200) $usealternatemethod=true;		// >= 2038
    957. 

  957. 

  958. 	if ($usealternatemethod)
    959. 

  959. 	{
    960. 

  960. 		$arrayinfo=adodb_getdate($timestamp,$fast);
    961. 

  961. 	}
    962. 

  962. 	else
    963. 

  963. 	{
    964. 

  964. 		$arrayinfo=getdate($timestamp);
    965. 

  965. 	}
    966. 

  966. 

  967. 	return $arrayinfo;
    968. 

  968. }
    969. 

  969. 

  970. /**
    971. 

  971.  *	Return a timestamp date built from detailed informations (by default a local PHP server timestamp)
    972. 

  972.  * 	Replace function mktime not available under Windows if year < 1970
    973. 

  973.  *	PHP mktime is restricted to the years 1901-2038 on Unix and 1970-2038 on Windows
    974. 

  974.  *
    975. 

  975.  * 	@param	int			$hour			Hour	(can be -1 for undefined)
    976. 

  976.  *	@param	int			$minute			Minute	(can be -1 for undefined)
    977. 

  977.  *	@param	int			$second			Second	(can be -1 for undefined)
    978. 

  978.  *	@param	int			$month			Month (1 to 12)
    979. 

  979.  *	@param	int			$day			Day (1 to 31)
    980. 

  980.  *	@param	int			$year			Year
    981. 

  981.  *	@param	int			$gm				1=Input informations are GMT values, otherwise local to server TZ
    982. 

  982.  *	@param	int			$check			0=No check on parameters (Can use day 32, etc...)
    983. 

  983.  *	@return	timestamp					Date as a timestamp, '' if error
    984. 

  984.  * 	@see 								dol_print_date, dol_stringtotime, dol_getdate
    985. 

  985.  */
    986. 

  986. function dol_mktime($hour,$minute,$second,$month,$day,$year,$gm=false,$check=1)
    987. 

  987. {
    988. 

  988. 	global $conf;
    989. 

  989. 	//print "- ".$hour.",".$minute.",".$second.",".$month.",".$day.",".$year.",".$_SERVER["WINDIR"]." -";
    990. 

  990. 

  991. 	// Clean parameters
    992. 

  992. 	if ($hour   == -1 || empty($hour)) $hour=0;
    993. 

  993. 	if ($minute == -1 || empty($minute)) $minute=0;
    994. 

  994. 	if ($second == -1 || empty($second)) $second=0;
    995. 

  995. 

  996. 	// Check parameters
    997. 

  997. 	if ($check)
    998. 

  998. 	{
    999. 

  999. 		if (! $month || ! $day)  return '';
    1000. 

  1000. 		if ($day   > 31) return '';
    1001. 

  1001. 		if ($month > 12) return '';
    1002. 

  1002. 		if ($hour  < 0 || $hour   > 24) return '';
    1003. 

  1003. 		if ($minute< 0 || $minute > 60) return '';
    1004. 

  1004. 		if ($second< 0 || $second > 60) return '';
    1005. 

  1005. 	}
    1006. 

  1006. 

  1007. 	if (method_exists('DateTime','getTimestamp') && empty($conf->global->MAIN_OLD_DATE))
    1008. 

  1008. 	{
    1009. 

  1009. 		if (empty($gm)) $localtz = new DateTimeZone(date_default_timezone_get());
    1010. 

  1010. 		else $localtz = new DateTimeZone('UTC');
    1011. 

  1011. 		$dt = new DateTime(null,$localtz);
    1012. 

  1012. 		$dt->setDate($year,$month,$day);
    1013. 

  1013. 		$dt->setTime((int) $hour, (int) $minute, (int) $second);
    1014. 

  1014. 		$date=$dt->getTimestamp();
    1015. 

  1015. 	}
    1016. 

  1016. 	else
    1017. 

  1017. 	{
    1018. 

  1018. 		$usealternatemethod=false;
    1019. 

  1019. 		if ($year <= 1970) $usealternatemethod=true;		// <= 1970
    1020. 

  1020. 		if ($year >= 2038) $usealternatemethod=true;		// >= 2038
    1021. 

  1021. 

  1022. 		if ($usealternatemethod || $gm)	// Si time gm, seule adodb peut convertir
    1023. 

  1023. 		{
    1024. 

  1024. 			$date=adodb_mktime($hour,$minute,$second,$month,$day,$year,0,$gm);
    1025. 

  1025. 		}
    1026. 

  1026. 		else
    1027. 

  1027. 		{
    1028. 

  1028. 			$date=mktime($hour,$minute,$second,$month,$day,$year);
    1029. 

  1029. 		}
    1030. 

  1030. 	}
    1031. 

  1031. 	return $date;
    1032. 

  1032. }
    1033. 

  1033. 

  1034. 

  1035. /**
    1036. 

  1036.  *	Return date for now. We should always use this function without parameters (that means GMT time)
    1037. 

  1037.  *
    1038. 

  1038.  * 	@param	string		$mode	'gmt' => we return GMT timestamp,
    1039. 

  1039.  * 								'tzserver' => we add the PHP server timezone
    1040. 

  1040.  *  							'tzref' => we add the company timezone
    1041. 

  1041.  * 								'tzuser' => we add the user timezone
    1042. 

  1042.  *	@return timestamp   $date	Timestamp
    1043. 

  1043.  */
    1044. 

  1044. function dol_now($mode='gmt')
    1045. 

  1045. {
    1046. 

  1046. 	// Note that gmmktime and mktime return same value (GMT) whithout parameters
    1047. 

  1047. 	//if ($mode == 'gmt') $ret=gmmktime(); // Strict Standards: gmmktime(): You should be using the time() function instead
    1048. 

  1048. 	if ($mode == 'gmt') $ret=time();	// Time for now at greenwich.
    1049. 

  1049. 	else if ($mode == 'tzserver')		// Time for now with PHP server timezone added
    1050. 

  1050. 	{
    1051. 

  1051. 		require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
    1052. 

  1052. 		$tzsecond=getServerTimeZoneInt('now');    // Contains tz+dayling saving time
    1053. 

  1053. 		$ret=dol_now('gmt')+($tzsecond*3600);
    1054. 

  1054. 	}
    1055. 

  1055. 	/*else if ($mode == 'tzref')				// Time for now with parent company timezone is added
    1056. 

  1056. 	{
    1057. 

  1057. 		require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
    1058. 

  1058. 		$tzsecond=getParentCompanyTimeZoneInt();    // Contains tz+dayling saving time
    1059. 

  1059. 		$ret=dol_now('gmt')+($tzsecond*3600);
    1060. 

  1060. 	}*/
    1061. 

  1061. 	else if ($mode == 'tzuser')				// Time for now with user timezone is added
    1062. 

  1062. 	{
    1063. 

  1063. 		//print 'eeee'.time().'-'.mktime().'-'.gmmktime();
    1064. 

  1064. 		$offsettz=(empty($_SESSION['dol_tz'])?0:$_SESSION['dol_tz'])*60*60;
    1065. 

  1065. 		$offsetdst=(empty($_SESSION['dol_dst'])?0:$_SESSION['dol_dst'])*60*60;
    1066. 

  1066. 		$ret=dol_now('gmt')+($offsettz+$offsetdst);
    1067. 

  1067. 	}
    1068. 

  1068. 	return $ret;
    1069. 

  1069. }
    1070. 

  1070. 

  1071. 

  1072. /**
    1073. 

  1073.  * Return string with formated size
    1074. 

  1074.  *
    1075. 

  1075.  * @param	int		$size		Size to print
    1076. 

  1076.  * @param	int		$shortvalue	Tell if we want long value to use another unit (Ex: 1.5Kb instead of 1500b)
    1077. 

  1077.  * @param	int		$shortunit	Use short value of size unit
    1078. 

  1078.  * @return	string				Link
    1079. 

  1079.  */
    1080. 

  1080. function dol_print_size($size,$shortvalue=0,$shortunit=0)
    1081. 

  1081. {
    1082. 

  1082. 	global $conf,$langs;
    1083. 

  1083. 	$level=1024;
    1084. 

  1084. 	
    1085. 

  1085. 	if (! empty($conf->dol_optimize_smallscreen)) $shortunit=1;
    1086. 

  1086. 	
    1087. 

  1087. 	// Set value text
    1088. 

  1088. 	if (empty($shortvalue) || $size < ($level*10))
    1089. 

  1089. 	{
    1090. 

  1090. 		$ret=$size;
    1091. 

  1091. 		$textunitshort=$langs->trans("b");
    1092. 

  1092. 		$textunitlong=$langs->trans("Bytes");
    1093. 

  1093. 	}
    1094. 

  1094. 	else
    1095. 

  1095. 	{
    1096. 

  1096. 		$ret=round($size/$level,0);
    1097. 

  1097. 		$textunitshort=$langs->trans("Kb");
    1098. 

  1098. 		$textunitlong=$langs->trans("KiloBytes");
    1099. 

  1099. 	}
    1100. 

  1100. 	// Use long or short text unit
    1101. 

  1101. 	if (empty($shortunit)) { $ret.=' '.$textunitlong; }
    1102. 

  1102. 	else { $ret.=' '.$textunitshort; }
    1103. 

  1103. 

  1104. 	return $ret;
    1105. 

  1105. }
    1106. 

  1106. 

  1107. /**
    1108. 

  1108.  * Show Url link
    1109. 

  1109.  *
    1110. 

  1110.  * @param	string		$url		Url to show
    1111. 

  1111.  * @param	string		$target		Target for link
    1112. 

  1112.  * @param	int			$max		Max number of characters to show
    1113. 

  1113.  * @return	string					HTML Link
    1114. 

  1114.  */
    1115. 

  1115. function dol_print_url($url,$target='_blank',$max=32)
    1116. 

  1116. {
    1117. 

  1117. 	if (empty($url)) return '';
    1118. 

  1118. 

  1119. 	$link='<a href="';
    1120. 

  1120. 	if (! preg_match('/^http/i',$url)) $link.='http://';
    1121. 

  1121. 	$link.=$url;
    1122. 

  1122. 	if ($target) $link.='" target="'.$target.'">';
    1123. 

  1123. 	if (! preg_match('/^http/i',$url)) $link.='http://';
    1124. 

  1124. 	$link.=dol_trunc($url,$max);
    1125. 

  1125. 	$link.='</a>';
    1126. 

  1126. 	return $link;
    1127. 

  1127. }
    1128. 

  1128. 

  1129. /**
    1130. 

  1130.  * Show EMail link
    1131. 

  1131.  *
    1132. 

  1132.  * @param	string		$email			EMail to show (only email, without 'Name of recipient' before)
    1133. 

  1133.  * @param 	int			$cid 			Id of contact if known
    1134. 

  1134.  * @param 	int			$socid 			Id of third party if known
    1135. 

  1135.  * @param 	int			$addlink		0=no link to create action
    1136. 

  1136.  * @param	int			$max			Max number of characters to show
    1137. 

  1137.  * @param	int			$showinvalid	Show warning if syntax email is wrong
    1138. 

  1138.  * @return	string						HTML Link
    1139. 

  1139.  */
    1140. 

  1140. function dol_print_email($email,$cid=0,$socid=0,$addlink=0,$max=64,$showinvalid=1)
    1141. 

  1141. {
    1142. 

  1142. 	global $conf,$user,$langs;
    1143. 

  1143. 

  1144. 	$newemail=$email;
    1145. 

  1145. 

  1146. 	if (empty($email)) return '&nbsp;';
    1147. 

  1147. 

  1148. 	if (! empty($addlink))
    1149. 

  1149. 	{
    1150. 

  1150. 		$newemail='<a href="';
    1151. 

  1151. 		if (! preg_match('/^mailto:/i',$email)) $newemail.='mailto:';
    1152. 

  1152. 		$newemail.=$email;
    1153. 

  1153. 		$newemail.='">';
    1154. 

  1154. 		$newemail.=dol_trunc($email,$max);
    1155. 

  1155. 		$newemail.='</a>';
    1156. 

  1156. 		if ($showinvalid && ! isValidEmail($email))
    1157. 

  1157. 		{
    1158. 

  1158. 			$langs->load("errors");
    1159. 

  1159. 			$newemail.=img_warning($langs->trans("ErrorBadEMail",$email));
    1160. 

  1160. 		}
    1161. 

  1161. 

  1162. 		if (($cid || $socid) && ! empty($conf->agenda->enabled) && $user->rights->agenda->myactions->create)
    1163. 

  1163. 		{
    1164. 

  1164. 			$type='AC_EMAIL'; $link='';
    1165. 

  1165. 			if (! empty($conf->global->AGENDA_ADDACTIONFOREMAIL)) $link='<a href="'.DOL_URL_ROOT.'/comm/action/fiche.php?action=create&amp;backtopage=1&amp;actioncode='.$type.'&amp;contactid='.$cid.'&amp;socid='.$socid.'">'.img_object($langs->trans("AddAction"),"calendar").'</a>';
    1166. 

  1166. 			$newemail='<table class="nobordernopadding"><tr><td>'.$newemail.' </td><td>&nbsp;'.$link.'</td></tr></table>';
    1167. 

  1167. 		}
    1168. 

  1168. 	}
    1169. 

  1169. 	else
    1170. 

  1170. 	{
    1171. 

  1171. 		if ($showinvalid && ! isValidEmail($email))
    1172. 

  1172. 		{
    1173. 

  1173. 			$langs->load("errors");
    1174. 

  1174. 			$newemail.=img_warning($langs->trans("ErrorBadEMail",$email));
    1175. 

  1175. 		}
    1176. 

  1176. 	}
    1177. 

  1177. 	return $newemail;
    1178. 

  1178. }
    1179. 

  1179. 

  1180. /**
    1181. 

  1181.  * 	Format phone numbers according to country
    1182. 

  1182.  *
    1183. 

  1183.  * 	@param	string	$phone 		Phone number to format
    1184. 

  1184.  * 	@param 	string	$country 	Country code to use for formatting
    1185. 

  1185.  * 	@param 	int		$cid 		Id of contact if known
    1186. 

  1186.  * 	@param 	int		$socid 		Id of third party if known
    1187. 

  1187.  * 	@param 	int		$addlink	''=no link to create action, 'AC_TEL'=add link to clicktodial (if module enabled) and add link to create event (if conf->global->AGENDA_ADDACTIONFORPHONE set)
    1188. 

  1188.  * 	@param 	string	$separ 		Separation between numbers for a better visibility example : xx.xx.xx.xx.xx
    1189. 

  1189.  * 	@return string 				Formated phone number
    1190. 

  1190.  */
    1191. 

  1191. function dol_print_phone($phone,$country='',$cid=0,$socid=0,$addlink='',$separ="&nbsp;")
    1192. 

  1192. {
    1193. 

  1193. 	global $conf,$user,$langs,$mysoc;
    1194. 

  1194. 

  1195. 	// Clean phone parameter
    1196. 

  1196. 	$phone = preg_replace("/[\s.-]/","",trim($phone));
    1197. 

  1197. 	if (empty($phone)) { return ''; }
    1198. 

  1198. 	if (empty($country)) $country=$mysoc->country_code;
    1199. 

  1199. 

  1200. 	// Short format for small screens
    1201. 

  1201. 	if ($conf->dol_optimize_smallscreen) $separ='';
    1202. 

  1202. 

  1203. 	$newphone=$phone;
    1204. 

  1204. 	if (strtoupper($country) == "FR")
    1205. 

  1205. 	{
    1206. 

  1206. 		// France
    1207. 

  1207. 		if (dol_strlen($phone) == 10) {
    1208. 

  1208. 			$newphone=substr($newphone,0,2).$separ.substr($newphone,2,2).$separ.substr($newphone,4,2).$separ.substr($newphone,6,2).$separ.substr($newphone,8,2);
    1209. 

  1209. 		}
    1210. 

  1210. 		elseif (dol_strlen($newphone) == 7)
    1211. 

  1211. 		{
    1212. 

  1212. 			$newphone=substr($newphone,0,3).$separ.substr($newphone,3,2).$separ.substr($newphone,5,2);
    1213. 

  1213. 		}
    1214. 

  1214. 		elseif (dol_strlen($newphone) == 9)
    1215. 

  1215. 		{
    1216. 

  1216. 			$newphone=substr($newphone,0,2).$separ.substr($newphone,2,3).$separ.substr($newphone,5,2).$separ.substr($newphone,7,2);
    1217. 

  1217. 		}
    1218. 

  1218. 		elseif (dol_strlen($newphone) == 11)
    1219. 

  1219. 		{
    1220. 

  1220. 			$newphone=substr($newphone,0,3).$separ.substr($newphone,3,2).$separ.substr($newphone,5,2).$separ.substr($newphone,7,2).$separ.substr($newphone,9,2);
    1221. 

  1221. 		}
    1222. 

  1222. 		elseif (dol_strlen($newphone) == 12)
    1223. 

  1223. 		{
    1224. 

  1224. 			$newphone=substr($newphone,0,4).$separ.substr($newphone,4,2).$separ.substr($newphone,6,2).$separ.substr($newphone,8,2).$separ.substr($newphone,10,2);
    1225. 

  1225. 		}
    1226. 

  1226. 	}
    1227. 

  1227. 

  1228. 	if (! empty($addlink))	// Link on phone number + link to add action (if conf->global->AGENDA_ADDACTIONFORPHONE set)
    1229. 

  1229. 	{
    1230. 

  1230. 		if (! empty($conf->browser))	// If phone, we use link of phone
    1231. 

  1231. 		{
    1232. 

  1232. 			$newphone ='<a href="tel:'.$phone.'"';

    1233. 

  1233. 			$newphone.='>'.$phone.'</a>';

    1234. 

  1234. 		}
    1235. 

  1235. 		else if (! empty($conf->clicktodial->enabled) && $addlink == 'AC_TEL')		// If click to dial, we use click to dial url
    1236. 

  1236. 		{
    1237. 

  1237. 			if (empty($user->clicktodial_loaded)) $user->fetch_clicktodial();
    1238. 

  1238. 

  1239. 			// Define urlmask
    1240. 

  1240. 			$urlmask='ErrorClickToDialModuleNotConfigured';
    1241. 

  1241. 			if (! empty($conf->global->CLICKTODIAL_URL)) $urlmask=$conf->global->CLICKTODIAL_URL;
    1242. 

  1242. 			if (! empty($user->clicktodial_url)) $urlmask=$user->clicktodial_url;
    1243. 

  1243. 

  1244. 			$clicktodial_poste=(! empty($user->clicktodial_poste)?urlencode($user->clicktodial_poste):'');
    1245. 

  1245. 			$clicktodial_login=(! empty($user->clicktodial_login)?urlencode($user->clicktodial_login):'');
    1246. 

  1246. 			$clicktodial_password=(! empty($user->clicktodial_password)?urlencode($user->clicktodial_password):'');
    1247. 

  1247. 			// This line is for backward compatibility
    1248. 

  1248. 			$url = sprintf($urlmask, urlencode($phone), $clicktodial_poste, $clicktodial_login, $clicktodial_password);
    1249. 

  1249. 			// Thoose lines are for substitution
    1250. 

  1250. 			$substitarray=array('__PHONEFROM__'=>$clicktodial_poste,
    1251. 

  1251. 								'__PHONETO__'=>urlencode($phone),
    1252. 

  1252. 								'__LOGIN__'=>$clicktodial_login,
    1253. 

  1253. 								'__PASS__'=>$clicktodial_password);
    1254. 

  1254. 			$url = make_substitutions($url, $substitarray);
    1255. 

  1255. 			$newphonesav=$newphone;
    1256. 

  1256. 			$newphone ='<a href="'.$url.'"';
    1257. 

  1257. 			if (! empty($conf->global->CLICKTODIAL_FORCENEWTARGET)) $newphone.=' target="_blank"';
    1258. 

  1258. 			$newphone.='>'.$newphonesav.'</a>';
    1259. 

  1259. 		}
    1260. 

  1260. 

  1261. 		//if (($cid || $socid) && ! empty($conf->agenda->enabled) && $user->rights->agenda->myactions->create)
    1262. 

  1262. 		if (! empty($conf->agenda->enabled) && $user->rights->agenda->myactions->create)
    1263. 

  1263. 		{
    1264. 

  1264. 			$type='AC_TEL'; $link='';
    1265. 

  1265. 			if ($addlink == 'AC_FAX') $type='AC_FAX';
    1266. 

  1266. 			if (! empty($conf->global->AGENDA_ADDACTIONFORPHONE)) $link='<a href="'.DOL_URL_ROOT.'/comm/action/fiche.php?action=create&amp;backtopage=1&amp;actioncode='.$type.($cid?'&amp;contactid='.$cid:'').($socid?'&amp;socid='.$socid:'').'">'.img_object($langs->trans("AddAction"),"calendar").'</a>';
    1267. 

  1267. 			if ($link) $newphone='<table class="nobordernopadding"><tr><td>'.$newphone.' </td><td>&nbsp;'.$link.'</td></tr></table>';
    1268. 

  1268. 		}
    1269. 

  1269. 	}
    1270. 

  1270. 

  1271. 	return $newphone;
    1272. 

  1272. }
    1273. 

  1273. 

  1274. /**
    1275. 

  1275.  * 	Return an IP formated to be shown on screen
    1276. 

  1276.  *
    1277. 

  1277.  * 	@param	string	$ip			IP
    1278. 

  1278.  * 	@param	int		$mode		0=return IP + country/flag, 1=return only country/flag, 2=return only IP
    1279. 

  1279.  * 	@return string 				Formated IP, with country if GeoIP module is enabled
    1280. 

  1280.  */
    1281. 

  1281. function dol_print_ip($ip,$mode=0)
    1282. 

  1282. {
    1283. 

  1283. 	global $conf,$langs;
    1284. 

  1284. 

  1285. 	$ret='';
    1286. 

  1286. 

  1287. 	if (empty($mode)) $ret.=$ip;
    1288. 

  1288. 

  1289. 	if (! empty($conf->geoipmaxmind->enabled) && $mode != 2)
    1290. 

  1290. 	{
    1291. 

  1291. 		$datafile=$conf->global->GEOIPMAXMIND_COUNTRY_DATAFILE;
    1292. 

  1292. 		//$ip='24.24.24.24';
    1293. 

  1293. 		//$datafile='E:\Mes Sites\Web\Admin1\awstats\maxmind\GeoIP.dat';    Note that this must be downloaded datafile (not same than datafile provided with ubuntu packages)
    1294. 

  1294. 

  1295. 		include_once DOL_DOCUMENT_ROOT.'/core/class/dolgeoip.class.php';
    1296. 

  1296. 		$geoip=new DolGeoIP('country',$datafile);
    1297. 

  1297. 		//print 'ip='.$ip.' databaseType='.$geoip->gi->databaseType." GEOIP_CITY_EDITION_REV1=".GEOIP_CITY_EDITION_REV1."\n";
    1298. 

  1298. 		//print "geoip_country_id_by_addr=".geoip_country_id_by_addr($geoip->gi,$ip)."\n";
    1299. 

  1299. 		$countrycode=$geoip->getCountryCodeFromIP($ip);
    1300. 

  1300. 		if ($countrycode)	// If success, countrycode is us, fr, ...
    1301. 

  1301. 		{
    1302. 

  1302. 			if (file_exists(DOL_DOCUMENT_ROOT.'/theme/common/flags/'.$countrycode.'.png'))
    1303. 

  1303. 			{
    1304. 

  1304. 				$ret.=' '.img_picto($countrycode.' '.$langs->trans("AccordingToGeoIPDatabase"),DOL_URL_ROOT.'/theme/common/flags/'.$countrycode.'.png','',1);
    1305. 

  1305. 			}
    1306. 

  1306. 			else $ret.=' ('.$countrycode.')';
    1307. 

  1307. 		}
    1308. 

  1308. 	}
    1309. 

  1309. 

  1310. 	return $ret;
    1311. 

  1311. }
    1312. 

  1312. 

  1313. /**
    1314. 

  1314.  *  Return country code for current user.
    1315. 

  1315.  *  If software is used inside a local network, detection may fails (we need a public ip)
    1316. 

  1316.  *
    1317. 

  1317.  *  @return     string      Country code (fr, es, it, us, ...)
    1318. 

  1318.  */
    1319. 

  1319. function dol_user_country()
    1320. 

  1320. {
    1321. 

  1321. 	global $conf,$langs,$user;
    1322. 

  1322. 

  1323. 	//$ret=$user->xxx;
    1324. 

  1324. 	$ret='';
    1325. 

  1325. 	if (! empty($conf->geoipmaxmind->enabled))
    1326. 

  1326. 	{
    1327. 

  1327. 		$ip=$_SERVER["REMOTE_ADDR"];
    1328. 

  1328. 		$datafile=$conf->global->GEOIPMAXMIND_COUNTRY_DATAFILE;
    1329. 

  1329. 		//$ip='24.24.24.24';
    1330. 

  1330. 		//$datafile='E:\Mes Sites\Web\Admin1\awstats\maxmind\GeoIP.dat';
    1331. 

  1331. 		include_once DOL_DOCUMENT_ROOT.'/core/class/dolgeoip.class.php';
    1332. 

  1332. 		$geoip=new DolGeoIP('country',$datafile);
    1333. 

  1333. 		$countrycode=$geoip->getCountryCodeFromIP($ip);
    1334. 

  1334. 		$ret=$countrycode;
    1335. 

  1335. 	}
    1336. 

  1336. 	return $ret;
    1337. 

  1337. }
    1338. 

  1338. 

  1339. /**
    1340. 

  1340.  *  Format address string
    1341. 

  1341.  *
    1342. 

  1342.  *  @param	string	$address     Address
    1343. 

  1343.  *  @param  int		$htmlid      Html ID (for example 'gmap')
    1344. 

  1344.  *  @param  int		$mode        thirdparty|contact|member|other
    1345. 

  1345.  *  @param  int		$id          Id of object
    1346. 

  1346.  *  @return void
    1347. 

  1347.  */
    1348. 

  1348. function dol_print_address($address, $htmlid, $mode, $id)
    1349. 

  1349. {
    1350. 

  1350. 	global $conf,$user,$langs;
    1351. 

  1351. 

  1352. 	if ($address)
    1353. 

  1353. 	{
    1354. 

  1354. 		print nl2br($address);
    1355. 

  1355. 		$showgmap=$showomap=0;
    1356. 

  1356. 		if ($mode=='thirdparty' && ! empty($conf->google->enabled) && ! empty($conf->global->GOOGLE_ENABLE_GMAPS)) $showgmap=1;
    1357. 

  1357. 		if ($mode=='contact' && ! empty($conf->google->enabled) && ! empty($conf->global->GOOGLE_ENABLE_GMAPS_CONTACTS)) $showgmap=1;
    1358. 

  1358. 		if ($mode=='member' && ! empty($conf->google->enabled) && ! empty($conf->global->GOOGLE_ENABLE_GMAPS_MEMBERS)) $showgmap=1;
    1359. 

  1359. 		if ($mode=='thirdparty' && ! empty($conf->openstreetmap->enabled) && ! empty($conf->global->OPENSTREETMAP_ENABLE_MAPS)) $showomap=1;
    1360. 

  1360. 		if ($mode=='contact' && ! empty($conf->openstreetmap->enabled) && ! empty($conf->global->OPENSTREETMAP_ENABLE_MAPS_CONTACTS)) $showomap=1;
    1361. 

  1361. 		if ($mode=='member' && ! empty($conf->openstreetmap->enabled) && ! empty($conf->global->OPENSTREETMAP_ENABLE_MAPS_MEMBERS)) $showomap=1;
    1362. 

  1362. 

  1363. 		// TODO Add a hook here
    1364. 

  1364. 		if ($showgmap)
    1365. 

  1365. 		{
    1366. 

  1366. 			$url=dol_buildpath('/google/gmaps.php?mode='.$mode.'&id='.$id,1);
    1367. 

  1367. 			print ' <a href="'.$url.'" target="_gmaps"><img id="'.$htmlid.'" border="0" src="'.DOL_URL_ROOT.'/theme/common/gmap.png"></a>';
    1368. 

  1368. 		}
    1369. 

  1369. 		if ($showomap)
    1370. 

  1370. 		{
    1371. 

  1371. 			$url=dol_buildpath('/openstreetmap/maps.php?mode='.$mode.'&id='.$id,1);
    1372. 

  1372. 			print ' <a href="'.$url.'" target="_gmaps"><img id="'.$htmlid.'_openstreetmap" border="0" src="'.DOL_URL_ROOT.'/theme/common/gmap.png"></a>';
    1373. 

  1373. 		}
    1374. 

  1374. 	}
    1375. 

  1375. }
    1376. 

  1376. 

  1377. 

  1378. /**
    1379. 

  1379.  *	Return true if email syntax is ok
    1380. 

  1380.  *
    1381. 

  1381.  *	@param	    string		$address    email (Ex: "toto@titi.com", "John Do <johndo@titi.com>")
    1382. 

  1382.  *	@return     boolean     			true if email syntax is OK, false if KO or empty string
    1383. 

  1383.  */
    1384. 

  1384. function isValidEmail($address)
    1385. 

  1385. {
    1386. 

  1386. 	if (preg_match("/.*<(.+)>/i", $address, $regs)) {
    1387. 

  1387. 		$address = $regs[1];
    1388. 

  1388. 	}
    1389. 

  1389. 	// 2 letters domains extensions are for countries
    1390. 

  1390. 	// 3 letters domains extensions: biz|com|edu|gov|int|mil|net|org|pro|...
    1391. 

  1391. 	if (preg_match("/^[^@\s\t]+@([a-zA-Z0-9\-]+\.)+([a-zA-Z0-9\-]{2,3}|asso|aero|coop|info|name)\$/i",$address))
    1392. 

  1392. 	{
    1393. 

  1393. 		return true;
    1394. 

  1394. 	}
    1395. 

  1395. 	else
    1396. 

  1396. 	{
    1397. 

  1397. 		return false;
    1398. 

  1398. 	}
    1399. 

  1399. }
    1400. 

  1400. 

  1401. /**
    1402. 

  1402.  *  Return true if phone number syntax is ok
    1403. 

  1403.  *
    1404. 

  1404.  *  @param	string		$phone		phone (Ex: "0601010101")
    1405. 

  1405.  *  @return boolean     			true if phone syntax is OK, false if KO or empty string
    1406. 

  1406.  */
    1407. 

  1407. function isValidPhone($phone)
    1408. 

  1408. {
    1409. 

  1409. 	return true;
    1410. 

  1410. }
    1411. 

  1411. 

  1412. 

  1413. /**
    1414. 

  1414.  * Make a strlen call. Works even if mbstring module not enabled
    1415. 

  1415.  *
    1416. 

  1416.  * @param   string		$string				String to calculate length
    1417. 

  1417.  * @param   string		$stringencoding		Encoding of string
    1418. 

  1418.  * @return  int								Length of string
    1419. 

  1419.  */
    1420. 

  1420. function dol_strlen($string,$stringencoding='UTF-8')
    1421. 

  1421. {
    1422. 

  1422. 	if (function_exists('mb_strlen')) return mb_strlen($string,$stringencoding);
    1423. 

  1423. 	else return strlen($string);
    1424. 

  1424. }
    1425. 

  1425. 

  1426. /**
    1427. 

  1427.  * Make a substring. Works even in mbstring module is not enabled.
    1428. 

  1428.  *
    1429. 

  1429.  * @param	string	$string				String to scan
    1430. 

  1430.  * @param	string	$start				Start position
    1431. 

  1431.  * @param	int		$length				Length
    1432. 

  1432.  * @param   string	$stringencoding		Page code used for input string encoding
    1433. 

  1433.  * @return  string						substring
    1434. 

  1434.  */
    1435. 

  1435. function dol_substr($string,$start,$length,$stringencoding='')
    1436. 

  1436. {
    1437. 

  1437. 	global $langs;
    1438. 

  1438. 

  1439. 	if (empty($stringencoding)) $stringencoding=$langs->charset_output;
    1440. 

  1440. 

  1441. 	$ret='';
    1442. 

  1442. 	if (function_exists('mb_substr'))
    1443. 

  1443. 	{
    1444. 

  1444. 		$ret=mb_substr($string,$start,$length,$stringencoding);
    1445. 

  1445. 	}
    1446. 

  1446. 	else
    1447. 

  1447. 	{
    1448. 

  1448. 		$ret=substr($string,$start,$length);
    1449. 

  1449. 	}
    1450. 

  1450. 	return $ret;
    1451. 

  1451. }
    1452. 

  1452. 

  1453. 

  1454. /**
    1455. 

  1455.  *  Show a javascript graph.
    1456. 

  1456.  *  Do not use this function anymore. Use DolGraph class instead.
    1457. 

  1457.  *
    1458. 

  1458.  *  @param		string	$htmlid			Html id name
    1459. 

  1459.  *  @param		int		$width			Width in pixel
    1460. 

  1460.  *  @param		int		$height			Height in pixel
    1461. 

  1461.  *  @param		array	$data			Data array
    1462. 

  1462.  *  @param		int		$showlegend		1 to show legend, 0 otherwise
    1463. 

  1463.  *  @param		string	$type			Type of graph ('pie', 'barline')
    1464. 

  1464.  *  @param		int		$showpercent	Show percent (with type='pie' only)
    1465. 

  1465.  *  @param		string	$url			Param to add an url to click values
    1466. 

  1466.  *  @return		void
    1467. 

  1467.  *  @deprecated
    1468. 

  1468.  */
    1469. 

  1469. function dol_print_graph($htmlid,$width,$height,$data,$showlegend=0,$type='pie',$showpercent=0,$url='')
    1470. 

  1470. {
    1471. 

  1471. 	global $conf,$langs;
    1472. 

  1472. 	global $theme_datacolor;    // To have var kept when function is called several times
    1473. 

  1473. 	if (empty($conf->use_javascript_ajax)) return;
    1474. 

  1474. 	$jsgraphlib='flot';
    1475. 

  1475. 	$datacolor=array();
    1476. 

  1476. 

  1477. 	// Load colors of theme into $datacolor array
    1478. 

  1478. 	$color_file = DOL_DOCUMENT_ROOT."/theme/".$conf->theme."/graph-color.php";
    1479. 

  1479. 	if (is_readable($color_file))
    1480. 

  1480. 	{
    1481. 

  1481. 		include_once $color_file;
    1482. 

  1482. 		if (isset($theme_datacolor))
    1483. 

  1483. 		{
    1484. 

  1484. 			$datacolor=array();
    1485. 

  1485. 			foreach($theme_datacolor as $val)
    1486. 

  1486. 			{
    1487. 

  1487. 				$datacolor[]="#".sprintf("%02x",$val[0]).sprintf("%02x",$val[1]).sprintf("%02x",$val[2]);
    1488. 

  1488. 			}
    1489. 

  1489. 		}
    1490. 

  1490. 	}
    1491. 

  1491. 	print '<div id="'.$htmlid.'" style="width:'.$width.'px;height:'.$height.'px;"></div>';
    1492. 

  1492. 

  1493. 	// We use Flot js lib
    1494. 

  1494. 	if ($jsgraphlib == 'flot')
    1495. 

  1495. 	{
    1496. 

  1496. 		if ($type == 'pie')
    1497. 

  1497. 		{
    1498. 

  1498. 			// data is   array('series'=>array(serie1,serie2,...),
    1499. 

  1499. 			//                 'seriestype'=>array('bar','line',...),
    1500. 

  1500. 			//                 'seriescolor'=>array(0=>'#999999',1=>'#999999',...)
    1501. 

  1501. 			//                 'xlabel'=>array(0=>labelx1,1=>labelx2,...));
    1502. 

  1502. 			// serieX is array('label'=>'label', data=>val)
    1503. 

  1503. 			print '
    1504. 

  1504. 			<script type="text/javascript">
    1505. 

  1505. 			$(function () {
    1506. 

  1506. 				var data = '.json_encode($data['series']).';
    1507. 

  1507. 

  1508. 				function plotWithOptions() {
    1509. 

  1509. 					$.plot($("#'.$htmlid.'"), data,
    1510. 

  1510. 					{
    1511. 

  1511. 						series: {
    1512. 

  1512. 							pie: {
    1513. 

  1513. 								show: true,
    1514. 

  1514. 								radius: 3/4,
    1515. 

  1515. 								label: {
    1516. 

  1516. 									show: true,
    1517. 

  1517. 									radius: 3/4,
    1518. 

  1518. 									formatter: function(label, series) {
    1519. 

  1519. 										var percent=Math.round(series.percent);
    1520. 

  1520. 										var number=series.data[0][1];
    1521. 

  1521. 										return \'';
    1522. 

  1522. 										print '<div style="font-size:8pt;text-align:center;padding:2px;color:white;">';
    1523. 

  1523. 										if ($url) print '<a style="color: #FFFFFF;" border="0" href="'.$url.'=">';
    1524. 

  1524. 										print '\'+'.($showlegend?'number':'label+\'<br/>\'+number');
    1525. 

  1525. 										if (! empty($showpercent)) print '+\'<br/>\'+percent+\'%\'';
    1526. 

  1526. 										print '+\'';
    1527. 

  1527. 										if ($url) print '</a>';
    1528. 

  1528. 										print '</div>\';
    1529. 

  1529. 									},
    1530. 

  1530. 									background: {
    1531. 

  1531. 										opacity: 0.5,
    1532. 

  1532. 										color: \'#000000\'
    1533. 

  1533. 									}
    1534. 

  1534. 								}
    1535. 

  1535. 							}
    1536. 

  1536. 						},
    1537. 

  1537. 						zoom: {
    1538. 

  1538. 							interactive: true
    1539. 

  1539. 						},
    1540. 

  1540. 						pan: {
    1541. 

  1541. 							interactive: true
    1542. 

  1542. 						},';
    1543. 

  1543. 						if (count($datacolor))
    1544. 

  1544. 						{
    1545. 

  1545. 							print 'colors: '.(! empty($data['seriescolor']) ? json_encode($data['seriescolor']) : json_encode($datacolor)).',';
    1546. 

  1546. 						}
    1547. 

  1547. 						print 'legend: {show: '.($showlegend?'true':'false').', position: \'ne\' }
    1548. 

  1548. 					});
    1549. 

  1549. 				}
    1550. 

  1550. 				plotWithOptions();
    1551. 

  1551. 			});
    1552. 

  1552. 			</script>';
    1553. 

  1553. 		}
    1554. 

  1554. 		else if ($type == 'barline')
    1555. 

  1555. 		{
    1556. 

  1556. 			// data is   array('series'=>array(serie1,serie2,...),
    1557. 

  1557. 			//                 'seriestype'=>array('bar','line',...),
    1558. 

  1558. 			//                 'seriescolor'=>array(0=>'#999999',1=>'#999999',...)
    1559. 

  1559. 			//                 'xlabel'=>array(0=>labelx1,1=>labelx2,...));
    1560. 

  1560. 			// serieX is array('label'=>'label', data=>array(0=>y1,1=>y2,...)) with same nb of value than into xlabel
    1561. 

  1561. 			print '
    1562. 

  1562. 			<script type="text/javascript">
    1563. 

  1563. 			$(function () {
    1564. 

  1564. 				var data = [';
    1565. 

  1565. 				$i=0; $outputserie=0;
    1566. 

  1566. 				foreach($data['series'] as $serie)
    1567. 

  1567. 				{
    1568. 

  1568. 					if ($data['seriestype'][$i]=='line') { $i++; continue; };
    1569. 

  1569. 					if ($outputserie > 0) print ',';
    1570. 

  1570. 					print '{ bars: { stack: 0, show: true, barWidth: 0.9, align: \'center\' }, label: \''.dol_escape_js($serie['label']).'\', data: '.json_encode($serie['data']).'}'."\n";
    1571. 

  1571. 					$outputserie++; $i++;
    1572. 

  1572. 				}
    1573. 

  1573. 				if ($outputserie) print ', ';
    1574. 

  1574. 				//print '];
    1575. 

  1575. 				//var datalines = [';
    1576. 

  1576. 				$i=0; $outputserie=0;
    1577. 

  1577. 				foreach($data['series'] as $serie)
    1578. 

  1578. 				{
    1579. 

  1579. 					if (empty($data['seriestype'][$i]) || $data['seriestype'][$i]=='bar') { $i++; continue; };
    1580. 

  1580. 					if ($outputserie > 0) print ',';
    1581. 

  1581. 					print '{ lines: { show: true }, label: \''.dol_escape_js($serie['label']).'\', data: '.json_encode($serie['data']).'}'."\n";
    1582. 

  1582. 					$outputserie++; $i++;
    1583. 

  1583. 				}
    1584. 

  1584. 				print '];
    1585. 

  1585. 				var dataticks = '.json_encode($data['xlabel']).'
    1586. 

  1586. 

  1587. 				function plotWithOptions() {
    1588. 

  1588. 					$.plot(jQuery("#'.$htmlid.'"), data,
    1589. 

  1589. 					{
    1590. 

  1590. 						series: {
    1591. 

  1591. 							stack: 0
    1592. 

  1592. 						},
    1593. 

  1593. 						zoom: {
    1594. 

  1594. 							interactive: true
    1595. 

  1595. 						},
    1596. 

  1596. 						pan: {
    1597. 

  1597. 							interactive: true
    1598. 

  1598. 						},';
    1599. 

  1599. 						if (count($datacolor))
    1600. 

  1600. 						{
    1601. 

  1601. 							print 'colors: '.json_encode($datacolor).',';
    1602. 

  1602. 						}
    1603. 

  1603. 						print 'legend: {show: '.($showlegend?'true':'false').'},
    1604. 

  1604. 						xaxis: {ticks: dataticks}
    1605. 

  1605. 					});
    1606. 

  1606. 				}
    1607. 

  1607. 				plotWithOptions();
    1608. 

  1608. 			});
    1609. 

  1609. 			</script>';
    1610. 

  1610. 		}
    1611. 

  1611. 		else print 'BadValueForPArameterType';
    1612. 

  1612. 	}
    1613. 

  1613. }
    1614. 

  1614. 

  1615. /**
    1616. 

  1616.  *	Truncate a string to a particular length adding '...' if string larger than length.
    1617. 

  1617.  * 	If length = max length+1, we do no truncate to avoid having just 1 char replaced with '...'.
    1618. 

  1618.  *  MAIN_DISABLE_TRUNC=1 can disable all truncings
    1619. 

  1619.  *
    1620. 

  1620.  *	@param	string	$string				String to truncate
    1621. 

  1621.  *	@param  int		$size				Max string size visible. 0 for no limit. Final string size can be 1 more (if size was max+1) or 3 more (if we added ...)
    1622. 

  1622.  *	@param	string	$trunc				Where to trunc: right, left, middle (size must be a 2 power), wrap
    1623. 

  1623.  * 	@param	string	$stringencoding		Tell what is source string encoding
    1624. 

  1624.  *  @param	int		$nodot				Truncation do not add ... after truncation. So it's an exact truncation.
    1625. 

  1625.  *	@return string						Truncated string
    1626. 

  1626.  */
    1627. 

  1627. function dol_trunc($string,$size=40,$trunc='right',$stringencoding='UTF-8',$nodot=0)
    1628. 

  1628. {
    1629. 

  1629. 	global $conf;
    1630. 

  1630. 

  1631. 	if ($size==0 || ! empty($conf->global->MAIN_DISABLE_TRUNC)) return $string;
    1632. 

  1632. 

  1633. 	// We go always here
    1634. 

  1634. 	if ($trunc == 'right')
    1635. 

  1635. 	{
    1636. 

  1636. 		$newstring=dol_textishtml($string)?dol_string_nohtmltag($string,1):$string;
    1637. 

  1637. 		if (dol_strlen($newstring,$stringencoding) > ($size+($nodot?0:1)))
    1638. 

  1638. 		return dol_substr($newstring,0,$size,$stringencoding).($nodot?'':'...');
    1639. 

  1639. 		else
    1640. 

  1640. 		return $string;
    1641. 

  1641. 	}
    1642. 

  1642. 	elseif ($trunc == 'middle')
    1643. 

  1643. 	{
    1644. 

  1644. 		$newstring=dol_textishtml($string)?dol_string_nohtmltag($string,1):$string;
    1645. 

  1645. 		if (dol_strlen($newstring,$stringencoding) > 2 && dol_strlen($newstring,$stringencoding) > ($size+1))
    1646. 

  1646. 		{
    1647. 

  1647. 			$size1=round($size/2);
    1648. 

  1648. 			$size2=round($size/2);
    1649. 

  1649. 			return dol_substr($newstring,0,$size1,$stringencoding).'...'.dol_substr($newstring,dol_strlen($newstring,$stringencoding) - $size2,$size2,$stringencoding);
    1650. 

  1650. 		}
    1651. 

  1651. 		else
    1652. 

  1652. 		return $string;
    1653. 

  1653. 	}
    1654. 

  1654. 	elseif ($trunc == 'left')
    1655. 

  1655. 	{
    1656. 

  1656. 		$newstring=dol_textishtml($string)?dol_string_nohtmltag($string,1):$string;
    1657. 

  1657. 		if (dol_strlen($newstring,$stringencoding) > ($size+1))
    1658. 

  1658. 		return '...'.dol_substr($newstring,dol_strlen($newstring,$stringencoding) - $size,$size,$stringencoding);
    1659. 

  1659. 		else
    1660. 

  1660. 		return $string;
    1661. 

  1661. 	}
    1662. 

  1662. 	elseif ($trunc == 'wrap')
    1663. 

  1663. 	{
    1664. 

  1664. 		$newstring=dol_textishtml($string)?dol_string_nohtmltag($string,1):$string;
    1665. 

  1665. 		if (dol_strlen($newstring,$stringencoding) > ($size+1))
    1666. 

  1666. 		return dol_substr($newstring,0,$size,$stringencoding)."\n".dol_trunc(dol_substr($newstring,$size,dol_strlen($newstring,$stringencoding)-$size,$stringencoding),$size,$trunc);
    1667. 

  1667. 		else
    1668. 

  1668. 		return $string;
    1669. 

  1669. 	}
    1670. 

  1670. 	else return 'BadParam3CallingDolTrunc';
    1671. 

  1671. }
    1672. 

  1672. 

  1673. /**
    1674. 

  1674.  *	Show picto whatever it's its name (generic function)
    1675. 

  1675.  *
    1676. 

  1676.  *	@param      string		$alt         		Text on alt and title of image
    1677. 

  1677.  *	@param      string		$picto       		Name of image file to show ('filenew', ...)
    1678. 

  1678.  *												If no extension provided, we use '.png'. Image must be stored into theme/xxx/img directory.
    1679. 

  1679.  *                                  			Example: picto.png                  if picto.png is stored into htdocs/theme/mytheme/img
    1680. 

  1680.  *                                  			Example: picto.png@mymodule         if picto.png is stored into htdocs/mymodule/img
    1681. 

  1681.  *                                  			Example: /mydir/mysubdir/picto.png  if picto.png is stored into htdocs/mydir/mysubdir (pictoisfullpath must be set to 1)
    1682. 

  1682.  *	@param		string		$options			Add more attribute on img tag (For example 'style="float: right"')
    1683. 

  1683.  *	@param		int			$pictoisfullpath	If 1, image path is a full path
    1684. 

  1684.  *	@param		int			$srconly			Return only content of the src attribute of img.
    1685. 

  1685.  *  @return     string       				    Return img tag
    1686. 

  1686.  *  @see        #img_object, #img_picto_common
    1687. 

  1687.  */
    1688. 

  1688. function img_picto($alt, $picto, $options = '', $pictoisfullpath = false, $srconly=0)
    1689. 

  1689. {
    1690. 

  1690. 	global $conf;
    1691. 

  1691. 

  1692. 	// Define fullpathpicto to use into src
    1693. 

  1693. 	if ($pictoisfullpath)
    1694. 

  1694. 	{
    1695. 

  1695. 		// Clean parameters
    1696. 

  1696. 		if (! preg_match('/(\.png|\.gif)$/i',$picto)) $picto .= '.png';
    1697. 

  1697. 		$fullpathpicto = $picto;
    1698. 

  1698. 	}
    1699. 

  1699. 	else
    1700. 

  1700. 	{
    1701. 

  1701. 		// By default, we search $url/theme/$theme/img/$picto
    1702. 

  1702. 		$url = DOL_URL_ROOT;
    1703. 

  1703. 		$theme = $conf->theme;
    1704. 

  1704. 

  1705. 		$path = 'theme/'.$theme;
    1706. 

  1706. 		if (! empty($conf->global->MAIN_OVERWRITE_THEME_RES)) $path = $conf->global->MAIN_OVERWRITE_THEME_RES.'/theme/'.$conf->global->MAIN_OVERWRITE_THEME_RES;
    1707. 

  1707. 		if (! empty($conf->global->MAIN_FORCETHEMEDIR)) $path = preg_replace('/^\//', '', $conf->global->MAIN_FORCETHEMEDIR).'/'.$path;	// TODO What if there is both FORCETHEMDIR and OVERWRITE_THEM_RES
    1708. 

  1708. 		// If we ask an image into $url/$mymodule/img (instead of default path)
    1709. 

  1709. 		if (preg_match('/^([^@]+)@([^@]+)$/i',$picto,$regs))
    1710. 

  1710. 		{
    1711. 

  1711. 			$picto = $regs[1];
    1712. 

  1712. 			$path = $regs[2];	// $path is $mymodule
    1713. 

  1713. 		}
    1714. 

  1714. 		// Clean parameters
    1715. 

  1715. 		if (! preg_match('/(\.png|\.gif)$/i',$picto)) $picto .= '.png';
    1716. 

  1716. 		// If img file is not into standard path, we use alternate path (Avoid using DOL_URL_ROOT_ALT for performane)
    1717. 

  1717. 		if (defined('DOL_URL_ROOT_ALT') && DOL_URL_ROOT_ALT && ! file_exists(DOL_DOCUMENT_ROOT.'/'.$path.'/img/'.$picto)) $url = DOL_URL_ROOT_ALT;
    1718. 

  1718. 

  1719. 		// $url is '' or '/custom', $path is current theme or
    1720. 

  1720. 		$fullpathpicto = $url.'/'.$path.'/img/'.$picto;
    1721. 

  1721. 	}
    1722. 

  1722. 

  1723. 	if ($srconly) return $fullpathpicto;
    1724. 

  1724. 	else return '<img src="'.$fullpathpicto.'" border="0" alt="'.dol_escape_htmltag($alt).'" title="'.dol_escape_htmltag($alt).'"'.(! empty($options)?' '.$options:'').'>';
    1725. 

  1725. }
    1726. 

  1726. 

  1727. /**
    1728. 

  1728.  *	Show a picto called object_picto (generic function)
    1729. 

  1729.  *
    1730. 

  1730.  *	@param	string	$alt				Text of alt on image
    1731. 

  1731.  *	@param	string	$picto				Name of image to show object_picto (example: user, group, action, bill, contract, propal, product, ...)
    1732. 

  1732.  *										For external modules use imagename@mymodule to search into directory "img" of module.
    1733. 

  1733.  *	@param	string	$options			Add more attribute on img tag (ie: class="datecallink")
    1734. 

  1734.  *	@param	int		$pictoisfullpath	If 1, image path is a full path
    1735. 

  1735.  *	@return	string						Return img tag
    1736. 

  1736.  *	@see	#img_picto, #img_picto_common
    1737. 

  1737.  */
    1738. 

  1738. function img_object($alt, $picto, $options = '', $pictoisfullpath = false)
    1739. 

  1739. {
    1740. 

  1740. 	return img_picto($alt, 'object_'.$picto, $options, $pictoisfullpath);
    1741. 

  1741. }
    1742. 

  1742. 

  1743. /**
    1744. 

  1744.  *	Show picto (generic function)
    1745. 

  1745.  *
    1746. 

  1746.  *	@param      string		$alt         		Text on alt and title of image
    1747. 

  1747.  *	@param      string		$picto       		Name of image file to show (If no extension provided, we use '.png'). Image must be stored into htdocs/theme/common directory.
    1748. 

  1748.  *	@param		string		$options			Add more attribute on img tag
    1749. 

  1749.  *	@param		int			$pictoisfullpath	If 1, image path is a full path
    1750. 

  1750.  *	@return     string      					Return img tag
    1751. 

  1751.  *  @see        #img_object, #img_picto
    1752. 

  1752.  */
    1753. 

  1753. function img_picto_common($alt, $picto, $options = '', $pictoisfullpath = 0)
    1754. 

  1754. {
    1755. 

  1755. 	global $conf;
    1756. 

  1756. 

  1757. 	if (! preg_match('/(\.png|\.gif)$/i', $picto)) $picto .= '.png';
    1758. 

  1758. 

  1759. 	if ($pictoisfullpath) $path = $picto;
    1760. 

  1760. 	else
    1761. 

  1761. 	{
    1762. 

  1762. 		$path = DOL_URL_ROOT.'/theme/common/'.$picto;
    1763. 

  1763. 

  1764. 		if (! empty($conf->global->MAIN_MODULE_CAN_OVERWRITE_COMMONICONS))
    1765. 

  1765. 		{
    1766. 

  1766. 			$themepath = DOL_DOCUMENT_ROOT.'/theme/'.$conf->theme.'/img/'.$picto;
    1767. 

  1767. 

  1768. 			if (file_exists($themepath)) $path = $themepath;
    1769. 

  1769. 		}
    1770. 

  1770. 	}
    1771. 

  1771. 

  1772. 	return img_picto($alt, $path, $options, 1);
    1773. 

  1773. }
    1774. 

  1774. 

  1775. /**
    1776. 

  1776.  *	Show logo action
    1777. 

  1777.  *
    1778. 

  1778.  *	@param	string	$alt         	Text for image alt and title ('default', ...)
    1779. 

  1779.  *	@param  int		$numaction   	Action to show
    1780. 

  1780.  *	@return string      			Return an img tag
    1781. 

  1781.  */
    1782. 

  1782. function img_action($alt, $numaction)
    1783. 

  1783. {
    1784. 

  1784. 	global $conf, $langs;
    1785. 

  1785. 

  1786. 	if ($alt == 'default')
    1787. 

  1787. 	{
    1788. 

  1788. 		if ($numaction == -1) $alt = $langs->transnoentitiesnoconv('ChangeDoNotContact');
    1789. 

  1789. 		if ($numaction == 0) $alt = $langs->transnoentitiesnoconv('ChangeNeverContacted');
    1790. 

  1790. 		if ($numaction == 1) $alt = $langs->transnoentitiesnoconv('ChangeToContact');
    1791. 

  1791. 		if ($numaction == 2) $alt = $langs->transnoentitiesnoconv('ChangeContactInProcess');
    1792. 

  1792. 		if ($numaction == 3) $alt = $langs->transnoentitiesnoconv('ChangeContactDone');
    1793. 

  1793. 	}
    1794. 

  1794. 

  1795. 	return img_picto($alt, 'stcomm'.$numaction.'.png');
    1796. 

  1796. }
    1797. 

  1797. 

  1798. /**
    1799. 

  1799.  *  Show pdf logo
    1800. 

  1800.  *
    1801. 

  1801.  *  @param	string		$alt        Texte sur le alt de l'image
    1802. 

  1802.  *  @param  int		    $size       Taille de l'icone : 3 = 16x16px , 2 = 14x14px
    1803. 

  1803.  *  @return string      			Retourne tag img
    1804. 

  1804.  */
    1805. 

  1805. function img_pdf($alt = 'default', $size = 3)
    1806. 

  1806. {
    1807. 

  1807. 	global $conf, $langs;
    1808. 

  1808. 

  1809. 	if ($alt == 'default') $alt = $langs->trans('Show');
    1810. 

  1810. 

  1811. 	return img_picto($alt, 'pdf'.$size.'.png');
    1812. 

  1812. }
    1813. 

  1813. 

  1814. /**
    1815. 

  1815.  *	Show logo +
    1816. 

  1816.  *
    1817. 

  1817.  *	@param	string	$alt        Texte sur le alt de l'image
    1818. 

  1818.  *	@return string      		Return tag img
    1819. 

  1819.  */
    1820. 

  1820. function img_edit_add($alt = 'default')
    1821. 

  1821. {
    1822. 

  1822. 	global $conf, $langs;
    1823. 

  1823. 

  1824. 	if ($alt == 'default') $alt = $langs->trans('Add');
    1825. 

  1825. 

  1826. 	return img_picto($alt, 'edit_add.png');
    1827. 

  1827. }
    1828. 

  1828. /**
    1829. 

  1829.  *	Show logo -
    1830. 

  1830.  *
    1831. 

  1831.  *	@param	string	$alt         Texte sur le alt de l'image
    1832. 

  1832.  *	@return string      Retourne tag img
    1833. 

  1833.  */
    1834. 

  1834. function img_edit_remove($alt = 'default')
    1835. 

  1835. {
    1836. 

  1836. 	global $conf, $langs;
    1837. 

  1837. 

  1838. 	if ($alt == 'default') $alt = $langs->trans('Remove');
    1839. 

  1839. 

  1840. 	return img_picto($alt, 'edit_remove.png');
    1841. 

  1841. }
    1842. 

  1842. 

  1843. /**
    1844. 

  1844.  *	Show logo editer/modifier fiche
    1845. 

  1845.  *
    1846. 

  1846.  *	@param  string	$alt        Texte sur le alt de l'image
    1847. 

  1847.  *	@param  float	$float      Si il faut y mettre le style "float: right"
    1848. 

  1848.  *	@param  string	$other		Add more attributes on img
    1849. 

  1849.  *	@return string      		Retourne tag img
    1850. 

  1850.  */
    1851. 

  1851. function img_edit($alt = 'default', $float = 0, $other = '')
    1852. 

  1852. {
    1853. 

  1853. 	global $conf, $langs;
    1854. 

  1854. 

  1855. 	if ($alt == 'default') $alt = $langs->trans('Modify');
    1856. 

  1856. 

  1857. 	return img_picto($alt, 'edit.png', ($float ? 'style="float: right"' : $other));
    1858. 

  1858. }
    1859. 

  1859. 

  1860. /**
    1861. 

  1861.  *	Show logo view card
    1862. 

  1862.  *
    1863. 

  1863.  *	@param	string	$alt         Texte sur le alt de l'image
    1864. 

  1864.  *	@param  float	$float       Si il faut y mettre le style "float: right"
    1865. 

  1865.  *	@param  string	$other		Add more attributes on img
    1866. 

  1866.  *	@return string      Retourne tag img
    1867. 

  1867.  */
    1868. 

  1868. function img_view($alt = 'default', $float = 0, $other = '')
    1869. 

  1869. {
    1870. 

  1870. 	global $conf, $langs;
    1871. 

  1871. 

  1872. 	if ($alt == 'default') $alt = $langs->trans('View');
    1873. 

  1873. 

  1874. 	$options = ($float ? 'style="float: right" ' : '').$other;
    1875. 

  1875. 

  1876. 	return img_picto($alt, 'view.png', $options);
    1877. 

  1877. }
    1878. 

  1878. 

  1879. /**
    1880. 

  1880.  *  Show delete logo
    1881. 

  1881.  *
    1882. 

  1882.  *  @param	string	$alt        Text on alt image
    1883. 

  1883.  *	@param  string	$other      Add more attributes on img
    1884. 

  1884.  *  @return string      		Retourne tag img
    1885. 

  1885.  */
    1886. 

  1886. function img_delete($alt = 'default', $other = '')
    1887. 

  1887. {
    1888. 

  1888. 	global $conf, $langs;
    1889. 

  1889. 

  1890. 	if ($alt == 'default') $alt = $langs->trans('Delete');
    1891. 

  1891. 

  1892. 	return img_picto($alt, 'delete.png', $other);
    1893. 

  1893. }
    1894. 

  1894. 

  1895. /**
    1896. 

  1896.  *  Show printer logo
    1897. 

  1897.  *
    1898. 

  1898.  *  @param  string  $alt        Text on alt image
    1899. 

  1899.  *  @param  string  $other      Add more attributes on img
    1900. 

  1900.  *  @return string              Retourne tag img
    1901. 

  1901.  */
    1902. 

  1902. function img_printer($alt = "default", $other='')
    1903. 

  1903. {
    1904. 

  1904.     global $conf,$langs;
    1905. 

  1905.     if ($alt=="default") $alt=$langs->trans("Print");
    1906. 

  1906.     return img_picto($alt,'printer.png',$other);
    1907. 

  1907. }
    1908. 

  1908. 

  1909. /**
    1910. 

  1910.  *	Show help logo with cursor "?"
    1911. 

  1911.  *
    1912. 

  1912.  * 	@param	string	$usehelpcursor		Use help cursor
    1913. 

  1913.  * 	@param	string	$usealttitle		Text to use as alt title
    1914. 

  1914.  * 	@return string      				Retourne tag img
    1915. 

  1915.  */
    1916. 

  1916. function img_help($usehelpcursor = 1, $usealttitle = 1)
    1917. 

  1917. {
    1918. 

  1918. 	global $conf, $langs;
    1919. 

  1919. 

  1920. 	if ($usealttitle)
    1921. 

  1921. 	{
    1922. 

  1922. 		if (is_string($usealttitle)) $usealttitle = dol_escape_htmltag($usealttitle);
    1923. 

  1923. 		else $usealttitle = $langs->trans('Info');
    1924. 

  1924. 	}
    1925. 

  1925. 

  1926. 	return img_picto($usealttitle, 'info.png', ($usehelpcursor ? 'style="cursor: help"' : ''));
    1927. 

  1927. }
    1928. 

  1928. 

  1929. /**
    1930. 

  1930.  *	Show info logo
    1931. 

  1931.  *
    1932. 

  1932.  *	@param	string	$alt        Text to show on alt image
    1933. 

  1933.  *	@return string      		Return img tag
    1934. 

  1934.  */
    1935. 

  1935. function img_info($alt = 'default')
    1936. 

  1936. {
    1937. 

  1937. 	global $conf, $langs;
    1938. 

  1938. 

  1939. 	if ($alt == 'default') $alt = $langs->trans('Informations');
    1940. 

  1940. 

  1941. 	return img_picto($alt, 'info.png');
    1942. 

  1942. }
    1943. 

  1943. 

  1944. /**
    1945. 

  1945.  *	Show warning logo
    1946. 

  1946.  *
    1947. 

  1947.  *	@param	string	$alt        Text to show on alt image
    1948. 

  1948.  *	@param  int		$float      If we must add style "float: right"
    1949. 

  1949.  *	@return string      		Return img tag
    1950. 

  1950.  */
    1951. 

  1951. function img_warning($alt = 'default', $float = 0)
    1952. 

  1952. {
    1953. 

  1953. 	global $conf, $langs;
    1954. 

  1954. 

  1955. 	if ($alt == 'default') $alt = $langs->trans('Warning');
    1956. 

  1956. 

  1957. 	return img_picto($alt, 'warning.png', ($float ? 'style="float: right"' : ''));
    1958. 

  1958. }
    1959. 

  1959. 

  1960. /**
    1961. 

  1961.  *  Show error logo
    1962. 

  1962.  *
    1963. 

  1963.  *	@param	string	$alt        Text to show on alt image
    1964. 

  1964.  *	@return string      		Return img tag
    1965. 

  1965.  */
    1966. 

  1966. function img_error($alt = 'default')
    1967. 

  1967. {
    1968. 

  1968. 	global $conf, $langs;
    1969. 

  1969. 

  1970. 	if ($alt == 'default') $alt = $langs->trans('Error');
    1971. 

  1971. 

  1972. 	return img_picto($alt, 'error.png');
    1973. 

  1973. }
    1974. 

  1974. 

  1975. /**
    1976. 

  1976.  *	Show next logo
    1977. 

  1977.  *
    1978. 

  1978.  *	@param	string	$alt        Text to show on alt image
    1979. 

  1979.  *	@return string      		Return img tag
    1980. 

  1980.  */
    1981. 

  1981. function img_next($alt = 'default')
    1982. 

  1982. {
    1983. 

  1983. 	global $conf, $langs;
    1984. 

  1984. 

  1985. 	if ($alt == 'default') $alt = $langs->trans('Next');
    1986. 

  1986. 

  1987. 	return img_picto($alt, 'next.png');
    1988. 

  1988. }
    1989. 

  1989. 

  1990. /**
    1991. 

  1991.  *	Show previous logo
    1992. 

  1992.  *
    1993. 

  1993.  *	@param	string	$alt        Text to show on alt image
    1994. 

  1994.  *	@return string      		Return img tag
    1995. 

  1995.  */
    1996. 

  1996. function img_previous($alt = 'default')
    1997. 

  1997. {
    1998. 

  1998. 	global $conf, $langs;
    1999. 

  1999. 

  2000. 	if ($alt == 'default') $alt = $langs->trans('Previous');
    2001. 

  2001. 

  2002. 	return img_picto($alt, 'previous.png');
    2003. 

  2003. }
    2004. 

  2004. 

  2005. /**
    2006. 

  2006.  *	Show down arrow logo
    2007. 

  2007.  *
    2008. 

  2008.  *	@param	string	$alt        Text to show on alt image
    2009. 

  2009.  *	@param  int		$selected   Selected
    2010. 

  2010.  *	@return string      		Return img tag
    2011. 

  2011.  */
    2012. 

  2012. function img_down($alt = 'default', $selected = 0)
    2013. 

  2013. {
    2014. 

  2014. 	global $conf, $langs;
    2015. 

  2015. 

  2016. 	if ($alt == 'default') $alt = $langs->trans('Down');
    2017. 

  2017. 

  2018. 	return img_picto($alt, ($selected ? '1downarrow_selected.png' : '1downarrow.png'), 'class="imgdown"');
    2019. 

  2019. }
    2020. 

  2020. 

  2021. /**
    2022. 

  2022.  *	Show top arrow logo
    2023. 

  2023.  *
    2024. 

  2024.  *	@param	string	$alt        Text to show on alt image
    2025. 

  2025.  *	@param  int		$selected	Selected
    2026. 

  2026.  *	@return string      		Return img tag
    2027. 

  2027.  */
    2028. 

  2028. function img_up($alt = 'default', $selected = 0)
    2029. 

  2029. {
    2030. 

  2030. 	global $conf, $langs;
    2031. 

  2031. 

  2032. 	if ($alt == 'default') $alt = $langs->trans('Up');
    2033. 

  2033. 

  2034. 	return img_picto($alt, ($selected ? '1uparrow_selected.png' : '1uparrow.png'), 'class="imgup"');
    2035. 

  2035. }
    2036. 

  2036. 

  2037. /**
    2038. 

  2038.  *	Show left arrow logo
    2039. 

  2039.  *
    2040. 

  2040.  *	@param	string	$alt        Text to show on alt image
    2041. 

  2041.  *	@param  int		$selected	Selected
    2042. 

  2042.  *	@return string      		Return img tag
    2043. 

  2043.  */
    2044. 

  2044. function img_left($alt = 'default', $selected = 0)
    2045. 

  2045. {
    2046. 

  2046. 	global $conf, $langs;
    2047. 

  2047. 

  2048. 	if ($alt == 'default') $alt = $langs->trans('Left');
    2049. 

  2049. 

  2050. 	return img_picto($alt, ($selected ? '1leftarrow_selected.png' : '1leftarrow.png'));
    2051. 

  2051. }
    2052. 

  2052. 

  2053. /**
    2054. 

  2054.  *	Show right arrow logo
    2055. 

  2055.  *
    2056. 

  2056.  *	@param	string	$alt        Text to show on alt image
    2057. 

  2057.  *	@param  int		$selected	Selected
    2058. 

  2058.  *	@return string      		Return img tag
    2059. 

  2059.  */
    2060. 

  2060. function img_right($alt = 'default', $selected = 0)
    2061. 

  2061. {
    2062. 

  2062. 	global $conf, $langs;
    2063. 

  2063. 

  2064. 	if ($alt == 'default') $alt = $langs->trans('Right');
    2065. 

  2065. 

  2066. 	return img_picto($alt, ($selected ? '1rightarrow_selected.png' : '1rightarrow.png'));
    2067. 

  2067. }
    2068. 

  2068. 

  2069. /**
    2070. 

  2070.  *	Show tick logo if allowed
    2071. 

  2071.  *
    2072. 

  2072.  *	@param	string	$allow		Allow
    2073. 

  2073.  *	@param	string	$alt        Text to show on alt image
    2074. 

  2074.  *	@return string      		Return img tag
    2075. 

  2075.  */
    2076. 

  2076. function img_allow($allow, $alt = 'default')
    2077. 

  2077. {
    2078. 

  2078. 	global $conf, $langs;
    2079. 

  2079. 

  2080. 	if ($alt == 'default') $alt = $langs->trans('Active');
    2081. 

  2081. 

  2082. 	if ($allow == 1) return img_picto($alt, 'tick.png');
    2083. 

  2083. 

  2084. 	return '-';
    2085. 

  2085. }
    2086. 

  2086. 

  2087. 

  2088. /**
    2089. 

  2089.  *	Show MIME img of a file
    2090. 

  2090.  *
    2091. 

  2091.  *	@param	string	$file		Filename
    2092. 

  2092.  * 	@param	string	$alt		Alternate text to show on img mous hover
    2093. 

  2093.  *	@return string     			Return img tag
    2094. 

  2094.  */
    2095. 

  2095. function img_mime($file, $alt = '')
    2096. 

  2096. {
    2097. 

  2097. 	require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
    2098. 

  2098. 

  2099. 	$mimetype = dol_mimetype($file, '', 1);
    2100. 

  2100. 	$mimeimg = dol_mimetype($file, '', 2);
    2101. 

  2101. 

  2102. 	if (empty($alt)) $alt = 'Mime type: '.$mimetype;
    2103. 

  2103. 

  2104. 	return img_picto_common($alt, 'mime/'.$mimeimg);
    2105. 

  2105. }
    2106. 

  2106. 

  2107. 

  2108. /**
    2109. 

  2109.  *	Show phone logo.
    2110. 

  2110.  *  Use img_picto instead.
    2111. 

  2111.  *
    2112. 

  2112.  *	@param	string	$alt        Text to show on alt image
    2113. 

  2113.  *	@param  int		$option		Option
    2114. 

  2114.  *	@return string      		Return img tag
    2115. 

  2115.  *  @deprecated
    2116. 

  2116.  */
    2117. 

  2117. function img_phone($alt = 'default', $option = 0)
    2118. 

  2118. {
    2119. 

  2119. 	global $conf,$langs;
    2120. 

  2120. 

  2121. 	if ($alt == 'default') $alt = $langs->trans('Call');
    2122. 

  2122. 

  2123. 	if ($option == 1) $img = 'call';
    2124. 

  2124. 	else $img = 'call_out';
    2125. 

  2125. 

  2126. 	return img_picto($alt, $img);
    2127. 

  2127. }
    2128. 

  2128. 

  2129. 

  2130. /**
    2131. 

  2131.  *	Show information for admin users
    2132. 

  2132.  *
    2133. 

  2133.  *	@param	string	$text			Text info
    2134. 

  2134.  *	@param  string	$infoonimgalt	Info is shown only on alt of star picto, otherwise it is show on output after the star picto
    2135. 

  2135.  *	@param	int		$nodiv			No div
    2136. 

  2136.  *	@return	string					String with info text
    2137. 

  2137.  */
    2138. 

  2138. function info_admin($text, $infoonimgalt = 0, $nodiv=0)
    2139. 

  2139. {
    2140. 

  2140. 	global $conf, $langs;
    2141. 

  2141. 

  2142. 	if ($infoonimgalt)
    2143. 

  2143. 	{
    2144. 

  2144. 		return img_picto($text, 'star', 'class="hideonsmartphone"');
    2145. 

  2145. 	}
    2146. 

  2146. 

  2147. 	return ($nodiv?'':'<div class="info hideonsmartphone">').img_picto($langs->trans('InfoAdmin'), 'star', 'class="hideonsmartphone"').' '.$text.($nodiv?'':'</div>');
    2148. 

  2148. }
    2149. 

  2149. 

  2150. 

  2151. /**
    2152. 

  2152.  *	Affiche message erreur system avec toutes les informations pour faciliter le diagnostic et la remontee des bugs.
    2153. 

  2153.  *	On doit appeler cette fonction quand une erreur technique bloquante est rencontree.
    2154. 

  2154.  *	Toutefois, il faut essayer de ne l'appeler qu'au sein de pages php, les classes devant
    2155. 

  2155.  *	renvoyer leur erreur par l'intermediaire de leur propriete "error".
    2156. 

  2156.  *
    2157. 

  2157.  *	@param	 DoliDB	$db      	Database handler
    2158. 

  2158.  *	@param  string	$error		String or array of errors strings to show
    2159. 

  2159.  *	@return void
    2160. 

  2160.  *  @see    dol_htmloutput_errors
    2161. 

  2161.  */
    2162. 

  2162. function dol_print_error($db='',$error='')
    2163. 

  2163. {
    2164. 

  2164. 	global $conf,$langs,$argv;
    2165. 

  2165. 	global $dolibarr_main_prod;
    2166. 

  2166. 

  2167. 	$out = '';
    2168. 

  2168. 	$syslog = '';
    2169. 

  2169. 

  2170. 	// Si erreur intervenue avant chargement langue
    2171. 

  2171. 	if (! $langs)
    2172. 

  2172. 	{
    2173. 

  2173. 		require_once DOL_DOCUMENT_ROOT .'/core/class/translate.class.php';
    2174. 

  2174. 		$langs = new Translate('', $conf);
    2175. 

  2175. 		$langs->load("main");
    2176. 

  2176. 	}
    2177. 

  2177. 	$langs->load("main");
    2178. 

  2178. 	$langs->load("errors");
    2179. 

  2179. 

  2180. 	if ($_SERVER['DOCUMENT_ROOT'])    // Mode web
    2181. 

  2181. 	{
    2182. 

  2182. 		$out.=$langs->trans("DolibarrHasDetectedError").".<br>\n";
    2183. 

  2183. 		if (! empty($conf->global->MAIN_FEATURES_LEVEL))
    2184. 

  2184. 		$out.="You use an experimental level of features, so please do NOT report any bugs, anywhere, until going back to MAIN_FEATURES_LEVEL = 0.<br>\n";
    2185. 

  2185. 		$out.=$langs->trans("InformationToHelpDiagnose").":<br>\n";
    2186. 

  2186. 

  2187. 		$out.="<b>".$langs->trans("Date").":</b> ".dol_print_date(time(),'dayhourlog')."<br>\n";;
    2188. 

  2188. 		$out.="<b>".$langs->trans("Dolibarr").":</b> ".DOL_VERSION."<br>\n";;
    2189. 

  2189. 		if (isset($conf->global->MAIN_FEATURES_LEVEL)) $out.="<b>".$langs->trans("LevelOfFeature").":</b> ".$conf->global->MAIN_FEATURES_LEVEL."<br>\n";;
    2190. 

  2190. 		if (function_exists("phpversion"))
    2191. 

  2191. 		{
    2192. 

  2192. 			$out.="<b>".$langs->trans("PHP").":</b> ".phpversion()."<br>\n";
    2193. 

  2193. 			//phpinfo();       // This is to show location of php.ini file
    2194. 

  2194. 		}
    2195. 

  2195. 		$out.="<b>".$langs->trans("Server").":</b> ".$_SERVER["SERVER_SOFTWARE"]."<br>\n";;
    2196. 

  2196. 		$out.="<br>\n";
    2197. 

  2197. 		$out.="<b>".$langs->trans("RequestedUrl").":</b> ".$_SERVER["REQUEST_URI"]."<br>\n";;
    2198. 

  2198. 		$out.="<b>".$langs->trans("Referer").":</b> ".(isset($_SERVER["HTTP_REFERER"])?$_SERVER["HTTP_REFERER"]:'')."<br>\n";;
    2199. 

  2199. 		$out.="<b>".$langs->trans("MenuManager").":</b> ".(isset($conf->standard_menu)?$conf->standard_menu:'')."<br>\n";
    2200. 

  2200. 		$out.="<br>\n";
    2201. 

  2201. 		$syslog.="url=".$_SERVER["REQUEST_URI"];
    2202. 

  2202. 		$syslog.=", query_string=".$_SERVER["QUERY_STRING"];
    2203. 

  2203. 	}
    2204. 

  2204. 	else                              // Mode CLI
    2205. 

  2205. 	{
    2206. 

  2206. 		$out.='> '.$langs->transnoentities("ErrorInternalErrorDetected").":\n".$argv[0]."\n";
    2207. 

  2207. 		$syslog.="pid=".getmypid();
    2208. 

  2208. 	}
    2209. 

  2209. 

  2210. 	if (is_object($db))
    2211. 

  2211. 	{
    2212. 

  2212. 		if ($_SERVER['DOCUMENT_ROOT'])  // Mode web
    2213. 

  2213. 		{
    2214. 

  2214. 			$out.="<b>".$langs->trans("DatabaseTypeManager").":</b> ".$db->type."<br>\n";
    2215. 

  2215. 			$out.="<b>".$langs->trans("RequestLastAccessInError").":</b> ".($db->lastqueryerror()?$db->lastqueryerror():$langs->trans("ErrorNoRequestInError"))."<br>\n";
    2216. 

  2216. 			$out.="<b>".$langs->trans("ReturnCodeLastAccessInError").":</b> ".($db->lasterrno()?$db->lasterrno():$langs->trans("ErrorNoRequestInError"))."<br>\n";
    2217. 

  2217. 			$out.="<b>".$langs->trans("InformationLastAccessInError").":</b> ".($db->lasterror()?$db->lasterror():$langs->trans("ErrorNoRequestInError"))."<br>\n";
    2218. 

  2218. 			$out.="<br>\n";
    2219. 

  2219. 		}
    2220. 

  2220. 		else                            // Mode CLI
    2221. 

  2221. 		{
    2222. 

  2222. 			$out.='> '.$langs->transnoentities("DatabaseTypeManager").":\n".$db->type."\n";
    2223. 

  2223. 			$out.='> '.$langs->transnoentities("RequestLastAccessInError").":\n".($db->lastqueryerror()?$db->lastqueryerror():$langs->trans("ErrorNoRequestInError"))."\n";
    2224. 

  2224. 			$out.='> '.$langs->transnoentities("ReturnCodeLastAccessInError").":\n".($db->lasterrno()?$db->lasterrno():$langs->trans("ErrorNoRequestInError"))."\n";
    2225. 

  2225. 			$out.='> '.$langs->transnoentities("InformationLastAccessInError").":\n".($db->lasterror()?$db->lasterror():$langs->trans("ErrorNoRequestInError"))."\n";
    2226. 

  2226. 

  2227. 		}
    2228. 

  2228. 		$syslog.=", sql=".$db->lastquery();
    2229. 

  2229. 		$syslog.=", db_error=".$db->lasterror();
    2230. 

  2230. 	}
    2231. 

  2231. 

  2232. 	if ($error)
    2233. 

  2233. 	{
    2234. 

  2234. 		$langs->load("errors");
    2235. 

  2235. 

  2236. 		if (is_array($error)) $errors=$error;
    2237. 

  2237. 		else $errors=array($error);
    2238. 

  2238. 

  2239. 		foreach($errors as $msg)
    2240. 

  2240. 		{
    2241. 

  2241. 			$msg=$langs->trans($msg);
    2242. 

  2242. 			if ($_SERVER['DOCUMENT_ROOT'])  // Mode web
    2243. 

  2243. 			{
    2244. 

  2244. 				$out.="<b>".$langs->trans("Message").":</b> ".$msg."<br>\n" ;
    2245. 

  2245. 			}
    2246. 

  2246. 			else                            // Mode CLI
    2247. 

  2247. 			{
    2248. 

  2248. 				$out.='> '.$langs->transnoentities("Message").":\n".$msg."\n" ;
    2249. 

  2249. 			}
    2250. 

  2250. 			$syslog.=", msg=".$msg;
    2251. 

  2251. 		}
    2252. 

  2252. 	}
    2253. 

  2253. 	if (empty($dolibarr_main_prod) && $_SERVER['DOCUMENT_ROOT'] && function_exists('xdebug_print_function_stack') && function_exists('xdebug_call_file'))
    2254. 

  2254. 	{
    2255. 

  2255. 		xdebug_print_function_stack();
    2256. 

  2256. 		$out.='<b>XDebug informations:</b>'."<br>\n";
    2257. 

  2257. 		$out.='File: '.xdebug_call_file()."<br>\n";
    2258. 

  2258. 		$out.='Line: '.xdebug_call_line()."<br>\n";
    2259. 

  2259. 		$out.='Function: '.xdebug_call_function()."<br>\n";
    2260. 

  2260. 		$out.="<br>\n";
    2261. 

  2261. 	}
    2262. 

  2262. 

  2263. 	if (empty($dolibarr_main_prod)) print $out;
    2264. 

  2264. 	else define("MAIN_CORE_ERROR", 1);
    2265. 

  2265. 	//else print 'Sorry, an error occured but the parameter $dolibarr_main_prod is defined in conf file so no message is reported to your browser. Please read the log file for error message.';
    2266. 

  2266. 	dol_syslog("Error ".$syslog, LOG_ERR);
    2267. 

  2267. }
    2268. 

  2268. 

  2269. /**
    2270. 

  2270.  * Show a public email and error code to contact if technical error
    2271. 

  2271.  *
    2272. 

  2272.  * @param	string	$prefixcode		Prefix of public error code
    2273. 

  2273.  * @return	void
    2274. 

  2274.  */
    2275. 

  2275. function dol_print_error_email($prefixcode)
    2276. 

  2276. {
    2277. 

  2277. 	global $langs,$conf;
    2278. 

  2278. 

  2279. 	$langs->load("errors");
    2280. 

  2280. 	$now=dol_now();
    2281. 

  2281. 	print '<br><div class="error">'.$langs->trans("ErrorContactEMail", $conf->global->MAIN_INFO_SOCIETE_MAIL, $prefixcode.dol_print_date($now,'%Y%m%d')).'</div>';
    2282. 

  2282. }
    2283. 

  2283. 

  2284. /**
    2285. 

  2285.  *	Show title line of an array
    2286. 

  2286.  *
    2287. 

  2287.  *	@param	string	$name        Label of field
    2288. 

  2288.  *	@param	string	$file        Url used when we click on sort picto
    2289. 

  2289.  *	@param	string	$field       Field to use for new sorting
    2290. 

  2290.  *	@param	string	$begin       ("" by defaut)
    2291. 

  2291.  *	@param	string	$moreparam   Add more parameters on sort url links ("" by default)
    2292. 

  2292.  *	@param  string	$td          Options of attribute td ("" by defaut)
    2293. 

  2293.  *	@param  string	$sortfield   Current field used to sort
    2294. 

  2294.  *	@param  string	$sortorder   Current sort order
    2295. 

  2295.  *	@return	void
    2296. 

  2296.  */
    2297. 

  2297. function print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $td="", $sortfield="", $sortorder="")
    2298. 

  2298. {
    2299. 

  2299. 	print getTitleFieldOfList($name, 0, $file, $field, $begin, $moreparam, $td, $sortfield, $sortorder);
    2300. 

  2300. }
    2301. 

  2301. 

  2302. /**
    2303. 

  2303.  *	Get title line of an array
    2304. 

  2304.  *
    2305. 

  2305.  *	@param	string	$name        Label of field
    2306. 

  2306.  *	@param	int		$thead		 For thead format (0 by default)
    2307. 

  2307.  *	@param	string	$file        Url used when we click on sort picto
    2308. 

  2308.  *	@param	string	$field       Field to use for new sorting. Empty if this field is not sortable.
    2309. 

  2309.  *	@param	string	$begin       ("" by defaut)
    2310. 

  2310.  *	@param	string	$moreparam   Add more parameters on sort url links ("" by default)
    2311. 

  2311.  *	@param  string	$moreattrib  Add more attributes on th ("" by defaut)
    2312. 

  2312.  *	@param  string	$sortfield   Current field used to sort
    2313. 

  2313.  *	@param  string	$sortorder   Current sort order
    2314. 

  2314.  *	@return	void
    2315. 

  2315.  */
    2316. 

  2316. function getTitleFieldOfList($name, $thead=0, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="")
    2317. 

  2317. {
    2318. 

  2318. 	global $conf;
    2319. 

  2319. 	//print "$name, $file, $field, $begin, $options, $moreattrib, $sortfield, $sortorder<br>\n";
    2320. 

  2320. 

  2321. 	$sortorder=strtoupper($sortorder);
    2322. 

  2322. 	$out='';
    2323. 

  2323. 

  2324. 	// If field is used as sort criteria we use a specific class
    2325. 

  2325. 	// Example if (sortfield,field)=("nom","xxx.nom") or (sortfield,field)=("nom","nom")
    2326. 

  2326. 	if ($field && ($sortfield == $field || $sortfield == preg_replace("/^[^\.]+\./","",$field))) $out.= '<th class="liste_titre_sel" '. $moreattrib.'>';
    2327. 

  2327. 	else $out.= '<th class="liste_titre" '. $moreattrib.'>';
    2328. 

  2328. 

  2329. 	if (! empty($conf->dol_optimize_smallscreen) && empty($thead) && $field)    // If this is a sort field
    2330. 

  2330. 	{
    2331. 

  2331. 		$options=preg_replace('/sortfield=([a-zA-Z0-9,\s\.]+)/i','',$moreparam);

    2332. 

  2332. 		$options=preg_replace('/sortorder=([a-zA-Z0-9,\s\.]+)/i','',$options);

    2333. 

  2333. 		$options=preg_replace('/&+/i','&',$options);

    2334. 

  2334. 		if (! preg_match('/^&/',$options)) $options='&'.$options;

    2335. 

  2335. 

  2336. 		if ($sortorder == 'DESC' ) 	$out.= '<a href="'.$file.'?sortfield='.$field.'&sortorder=asc&begin='.$begin.$options.'">';
    2337. 

  2337. 		if ($sortorder == 'ASC' ) 	$out.= '<a href="'.$file.'?sortfield='.$field.'&sortorder=desc&begin='.$begin.$options.'">';
    2338. 

  2338. 	}
    2339. 

  2339. 

  2340. 	$out.=$name;
    2341. 

  2341. 

  2342. 	if (! empty($conf->dol_optimize_smallscreen) && empty($thead) && $field)    // If this is a sort field
    2343. 

  2343. 	{
    2344. 

  2344. 		$out.='</a>';

    2345. 

  2345. 	}
    2346. 

  2346. 

  2347. 	if (empty($conf->dol_optimize_smallscreen) && empty($thead) && $field)    // If this is a sort field
    2348. 

  2348. 	{
    2349. 

  2349. 		$options=preg_replace('/sortfield=([a-zA-Z0-9,\s\.]+)/i','',$moreparam);
    2350. 

  2350. 		$options=preg_replace('/sortorder=([a-zA-Z0-9,\s\.]+)/i','',$options);
    2351. 

  2351. 		$options=preg_replace('/&+/i','&',$options);
    2352. 

  2352. 		if (! preg_match('/^&/',$options)) $options='&'.$options;
    2353. 

  2353. 

  2354. 		//print "&nbsp;";
    2355. 

  2355. 		$out.= '<img width="2" src="'.DOL_URL_ROOT.'/theme/common/transparent.png" alt="">';
    2356. 

  2356. 

  2357. 		if (! $sortorder || $field != $sortfield)
    2358. 

  2358. 		{
    2359. 

  2359. 			$out.= '<a href="'.$file.'?sortfield='.$field.'&sortorder=asc&begin='.$begin.$options.'">'.img_down("A-Z",0).'</a>';
    2360. 

  2360. 			$out.= '<a href="'.$file.'?sortfield='.$field.'&sortorder=desc&begin='.$begin.$options.'">'.img_up("Z-A",0).'</a>';
    2361. 

  2361. 		}
    2362. 

  2362. 		else
    2363. 

  2363. 		{
    2364. 

  2364. 			if ($sortorder == 'DESC' ) {
    2365. 

  2365. 				$out.= '<a href="'.$file.'?sortfield='.$field.'&sortorder=asc&begin='.$begin.$options.'">'.img_down("A-Z",0).'</a>';
    2366. 

  2366. 				$out.= '<a href="'.$file.'?sortfield='.$field.'&sortorder=desc&begin='.$begin.$options.'">'.img_up("Z-A",1).'</a>';
    2367. 

  2367. 			}
    2368. 

  2368. 			if ($sortorder == 'ASC' ) {
    2369. 

  2369. 				$out.= '<a href="'.$file.'?sortfield='.$field.'&sortorder=asc&begin='.$begin.$options.'">'.img_down("A-Z",1).'</a>';
    2370. 

  2370. 				$out.= '<a href="'.$file.'?sortfield='.$field.'&sortorder=desc&begin='.$begin.$options.'">'.img_up("Z-A",0).'</a>';
    2371. 

  2371. 			}
    2372. 

  2372. 		}
    2373. 

  2373. 	}
    2374. 

  2374. 	$out.='</th>';
    2375. 

  2375. 

  2376. 	return $out;
    2377. 

  2377. }
    2378. 

  2378. 

  2379. /**
    2380. 

  2380.  *	Show a title (deprecated. use print_fiche_titre instrad)
    2381. 

  2381.  *
    2382. 

  2382.  *	@param	string	$title			Title to show
    2383. 

  2383.  *	@return	string					Title to show
    2384. 

  2384.  */
    2385. 

  2385. function print_titre($title)
    2386. 

  2386. {
    2387. 

  2387. 	print '<div class="titre">'.$title.'</div>';
    2388. 

  2388. }
    2389. 

  2389. 

  2390. /**
    2391. 

  2391.  *	Show a title with picto
    2392. 

  2392.  *
    2393. 

  2393.  *	@param	string	$titre				Title to show
    2394. 

  2394.  *	@param	string	$mesg				Added message to show on right
    2395. 

  2395.  *	@param	string	$picto				Icon to use before title (should be a 32x32 transparent png file)
    2396. 

  2396.  *	@param	int		$pictoisfullpath	1=Icon name is a full absolute url of image
    2397. 

  2397.  * 	@param	int		$id					To force an id on html objects
    2398. 

  2398.  * 	@return	void
    2399. 

  2399.  */
    2400. 

  2400. function print_fiche_titre($titre, $mesg='', $picto='title.png', $pictoisfullpath=0, $id='')
    2401. 

  2401. {
    2402. 

  2402. 	print load_fiche_titre($titre, $mesg, $picto, $pictoisfullpath, $id);
    2403. 

  2403. }
    2404. 

  2404. 

  2405. /**
    2406. 

  2406.  *	Load a title with picto
    2407. 

  2407.  *
    2408. 

  2408.  *	@param	string	$titre				Title to show
    2409. 

  2409.  *	@param	string	$mesg				Added message to show on right
    2410. 

  2410.  *	@param	string	$picto				Icon to use before title (should be a 32x32 transparent png file)
    2411. 

  2411.  *	@param	int		$pictoisfullpath	1=Icon name is a full absolute url of image
    2412. 

  2412.  * 	@param	int		$id					To force an id on html objects
    2413. 

  2413.  * 	@return	void
    2414. 

  2414.  */
    2415. 

  2415. function load_fiche_titre($titre, $mesg='', $picto='title.png', $pictoisfullpath=0, $id='')
    2416. 

  2416. {
    2417. 

  2417. 	global $conf;
    2418. 

  2418. 

  2419. 	$return='';
    2420. 

  2420. 

  2421. 	if ($picto == 'setup') $picto='title.png';
    2422. 

  2422. 	if (!empty($conf->browser->ie) && $picto=='title.png') $picto='title.gif';
    2423. 

  2423. 

  2424. 	$return.= "\n";
    2425. 

  2425. 	$return.= '<table '.($id?'id="'.$id.'" ':'').'summary="" width="100%" border="0" class="notopnoleftnoright" style="margin-bottom: 2px;"><tr>';
    2426. 

  2426. 	if ($picto) $return.= '<td class="nobordernopadding hideonsmartphone" width="40" align="left" valign="middle">'.img_picto('',$picto, 'id="pictotitle"', $pictoisfullpath).'</td>';
    2427. 

  2427. 	$return.= '<td class="nobordernopadding" valign="middle">';
    2428. 

  2428. 	$return.= '<div class="titre">'.$titre.'</div>';
    2429. 

  2429. 	$return.= '</td>';
    2430. 

  2430. 	if (dol_strlen($mesg))
    2431. 

  2431. 	{
    2432. 

  2432. 		$return.= '<td class="nobordernopadding titre_right" align="right" valign="middle">'.$mesg.'</td>';
    2433. 

  2433. 	}
    2434. 

  2434. 	$return.= '</tr></table>'."\n";
    2435. 

  2435. 

  2436. 	return $return;
    2437. 

  2437. }
    2438. 

  2438. 

  2439. /**
    2440. 

  2440.  *	Print a title with navigation controls for pagination
    2441. 

  2441.  *
    2442. 

  2442.  *	@param	string	$titre				Title to show (required)
    2443. 

  2443.  *	@param	string	$page				Numero of page (required)
    2444. 

  2444.  *	@param	string	$file				Url of page (required)
    2445. 

  2445.  *	@param	string	$options         	parametres complementaires lien ('' par defaut)
    2446. 

  2446.  *	@param	string	$sortfield       	champ de tri ('' par defaut)
    2447. 

  2447.  *	@param	string	$sortorder       	ordre de tri ('' par defaut)
    2448. 

  2448.  *	@param	string	$center          	chaine du centre ('' par defaut)
    2449. 

  2449.  *	@param	int		$num				number of records found by select with limit+1
    2450. 

  2450.  *	@param	int		$totalnboflines		Total number of records/lines for all pages (if known)
    2451. 

  2451.  *	@param	string	$picto				Icon to use before title (should be a 32x32 transparent png file)
    2452. 

  2452.  *	@param	int		$pictoisfullpath		1=Icon name is a full absolute url of image
    2453. 

  2453.  *	@return	void
    2454. 

  2454.  */
    2455. 

  2455. function print_barre_liste($titre, $page, $file, $options='', $sortfield='', $sortorder='', $center='', $num=-1, $totalnboflines=0, $picto='title.png', $pictoisfullpath=0)
    2456. 

  2456. {
    2457. 

  2457. 	global $conf,$langs;
    2458. 

  2458. 

  2459. 	if ($picto == 'setup') $picto='title.png';
    2460. 

  2460. 	if (!empty($conf->browser->ie) && $picto=='title.png') $picto='title.gif';
    2461. 

  2461. 

  2462. 	if ($num > $conf->liste_limit or $num == -1)
    2463. 

  2463. 	{
    2464. 

  2464. 		$nextpage = 1;
    2465. 

  2465. 	}
    2466. 

  2466. 	else
    2467. 

  2467. 	{
    2468. 

  2468. 		$nextpage = 0;
    2469. 

  2469. 	}
    2470. 

  2470. 

  2471. 	print "\n";
    2472. 

  2472. 	print "<!-- Begin title '".$titre."' -->\n";
    2473. 

  2473. 	print '<table width="100%" border="0" class="notopnoleftnoright" style="margin-bottom: 2px;"><tr>';
    2474. 

  2474. 

  2475. 	$pagelist = '';
    2476. 

  2476. 

  2477. 	// Left
    2478. 

  2478. 	if ($page > 0 || $num > $conf->liste_limit)
    2479. 

  2479. 	{
    2480. 

  2480. 		if ($totalnboflines)
    2481. 

  2481. 		{
    2482. 

  2482. 			if ($picto && $titre) print '<td class="nobordernopadding" width="40" align="left" valign="middle">'.img_picto('',$picto, '', $pictoisfullpath).'</td>';
    2483. 

  2483. 			print '<td class="nobordernopadding">';
    2484. 

  2484. 			print '<div class="titre">'.$titre.'</div>';
    2485. 

  2485. 			print '</td>';
    2486. 

  2486. 

  2487. 			$maxnbofpage=10;
    2488. 

  2488. 

  2489. 			$nbpages=ceil($totalnboflines/$conf->liste_limit);
    2490. 

  2490. 			$cpt=($page-$maxnbofpage);
    2491. 

  2491. 			if ($cpt < 0) { $cpt=0; }
    2492. 

  2492. 			$pagelist.=$langs->trans('Page');
    2493. 

  2493. 			if ($cpt>=1)
    2494. 

  2494. 			{
    2495. 

  2495. 				$pagelist.=' <a href="'.$file.'?page=0'.$options.'&amp;sortfield='.$sortfield.'&amp;sortorder='.$sortorder.'">1</a>';
    2496. 

  2496. 				if ($cpt >= 2) $pagelist.=' ...';
    2497. 

  2497. 			}
    2498. 

  2498. 			do
    2499. 

  2499. 			{
    2500. 

  2500. 				if($cpt==$page)
    2501. 

  2501. 				{
    2502. 

  2502. 					$pagelist.= ' <u>'.($page+1).'</u>';
    2503. 

  2503. 				}
    2504. 

  2504. 				else
    2505. 

  2505. 				{
    2506. 

  2506. 					$pagelist.= ' <a href="'.$file.'?page='.$cpt.$options.'&amp;sortfield='.$sortfield.'&amp;sortorder='.$sortorder.'">'.($cpt+1).'</a>';
    2507. 

  2507. 				}
    2508. 

  2508. 				$cpt++;
    2509. 

  2509. 			}
    2510. 

  2510. 			while ($cpt < $nbpages && $cpt<=$page+$maxnbofpage);
    2511. 

  2511. 			if ($cpt<$nbpages)
    2512. 

  2512. 			{
    2513. 

  2513. 				if ($cpt<$nbpages-1) $pagelist.= ' ...';
    2514. 

  2514. 				$pagelist.= ' <a href="'.$file.'?page='.($nbpages-1).$options.'&amp;sortfield='.$sortfield.'&amp;sortorder='.$sortorder.'">'.$nbpages.'</a>';
    2515. 

  2515. 			}
    2516. 

  2516. 		}
    2517. 

  2517. 		else
    2518. 

  2518. 		{
    2519. 

  2519. 			if (empty($conf->dol_optimize_smallscreen) && $picto && $titre) print '<td class="nobordernopadding" width="40" align="left" valign="middle">'.img_picto('',$picto, '', $pictoisfullpath).'</td>';
    2520. 

  2520. 			print '<td class="nobordernopadding">';
    2521. 

  2521. 			print '<div class="titre">'.$titre.'</div>';
    2522. 

  2522. 			$pagelist.= $langs->trans('Page').' '.($page+1);
    2523. 

  2523. 			print '</td>';
    2524. 

  2524. 		}
    2525. 

  2525. 	}
    2526. 

  2526. 	else
    2527. 

  2527. 	{
    2528. 

  2528. 		if (empty($conf->dol_optimize_smallscreen) && $picto && $titre) print '<td class="nobordernopadding" width="40" align="left" valign="middle">'.img_picto('',$picto, '', $pictoisfullpath).'</td>';
    2529. 

  2529. 		print '<td class="nobordernopadding"><div class="titre">'.$titre.'</div></td>';
    2530. 

  2530. 	}
    2531. 

  2531. 

  2532. 	// Center
    2533. 

  2533. 	if ($center)
    2534. 

  2534. 	{
    2535. 

  2535. 		print '<td class="nobordernopadding" align="left" valign="middle">'.$center.'</td>';
    2536. 

  2536. 	}
    2537. 

  2537. 

  2538. 	// Right
    2539. 

  2539. 	print '<td class="nobordernopadding" align="right" valign="middle">';
    2540. 

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

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

  2542. 	// Affichage des fleches de navigation
    2543. 

  2543. 	print_fleche_navigation($page,$file,$options,$nextpage,$pagelist);
    2544. 

  2544. 	print '</td>';
    2545. 

  2545. 

  2546. 	print '</tr></table>'."\n";
    2547. 

  2547. 	print "<!-- End title -->\n\n";
    2548. 

  2548. }
    2549. 

  2549. 

  2550. /**
    2551. 

  2551.  *	Fonction servant a afficher les fleches de navigation dans les pages de listes
    2552. 

  2552.  *
    2553. 

  2553.  *	@param	int		$page				Numero of page
    2554. 

  2554.  *	@param	string	$file				Lien
    2555. 

  2555.  *	@param	string	$options         	Autres parametres d'url a propager dans les liens ("" par defaut)
    2556. 

  2556.  *	@param	int		$nextpage	    	Faut-il une page suivante
    2557. 

  2557.  *	@param	string	$betweenarrows		HTML Content to show between arrows
    2558. 

  2558.  *	@return	void
    2559. 

  2559.  */
    2560. 

  2560. function print_fleche_navigation($page,$file,$options='',$nextpage=0,$betweenarrows='')
    2561. 

  2561. {
    2562. 

  2562. 	global $conf, $langs;
    2563. 

  2563. 	if ($page > 0)
    2564. 

  2564. 	{
    2565. 

  2565. 		print '<a href="'.$file.'?page='.($page-1).$options.'">'.img_previous($langs->trans("Previous")).'</a>';
    2566. 

  2566. 	}
    2567. 

  2567. 	if ($betweenarrows) print ($page > 0?' ':'').$betweenarrows.($nextpage>0?' ':'');
    2568. 

  2568. 	if ($nextpage > 0)
    2569. 

  2569. 	{
    2570. 

  2570. 		print '<a href="'.$file.'?page='.($page+1).$options.'">'.img_next($langs->trans("Next")).'</a>';
    2571. 

  2571. 	}
    2572. 

  2572. }
    2573. 

  2573. 

  2574. 

  2575. /**
    2576. 

  2576.  *	Return a string with VAT rate label formated for view output
    2577. 

  2577.  *	Used into pdf and HTML pages
    2578. 

  2578.  *
    2579. 

  2579.  *	@param	float	$rate			Rate value to format (19.6 19,6 19.6% 19,6%,...)
    2580. 

  2580.  *  @param	boolean	$addpercent		Add a percent % sign in output
    2581. 

  2581.  *	@param	int		$info_bits		Miscellaneous information on vat (0=Default, 1=French NPR vat)
    2582. 

  2582.  *	@param	int		$usestarfornpr	1=Use '*' for NPR vat rate intead of MAIN_LABEL_MENTION_NPR
    2583. 

  2583.  *  @return	string					String with formated amounts (19,6 or 19,6% or 8.5% NPR or 8.5% *)
    2584. 

  2584.  */
    2585. 

  2585. function vatrate($rate,$addpercent=false,$info_bits=0,$usestarfornpr=0)
    2586. 

  2586. {
    2587. 

  2587. 	// Test for compatibility
    2588. 

  2588. 	if (preg_match('/%/',$rate))
    2589. 

  2589. 	{
    2590. 

  2590. 		$rate=str_replace('%','',$rate);
    2591. 

  2591. 		$addpercent=true;
    2592. 

  2592. 	}
    2593. 

  2593. 	if (preg_match('/\*/',$rate) || preg_match('/'.constant('MAIN_LABEL_MENTION_NPR').'/i',$rate))
    2594. 

  2594. 	{
    2595. 

  2595. 		$rate=str_replace('*','',$rate);
    2596. 

  2596. 		$info_bits |= 1;
    2597. 

  2597. 	}
    2598. 

  2598. 

  2599. 	$ret=price($rate,0,'',0,0).($addpercent?'%':'');
    2600. 

  2600. 	if ($info_bits & 1) $ret.=' '.($usestarfornpr?'*':constant('MAIN_LABEL_MENTION_NPR'));
    2601. 

  2601. 	return $ret;
    2602. 

  2602. }
    2603. 

  2603. 

  2604. 

  2605. /**
    2606. 

  2606.  *		Function to format a value into an amount for visual output
    2607. 

  2607.  *		Function used into PDF and HTML pages
    2608. 

  2608.  *
    2609. 

  2609.  *		@param	float		$amount			Amount to format
    2610. 

  2610.  *		@param	string		$form			Type of format, HTML or not (not by default)
    2611. 

  2611.  *		@param	Translate	$outlangs		Object langs for output
    2612. 

  2612.  *		@param	int			$trunc			1=Truncate if there is too much decimals (default), 0=Does not truncate
    2613. 

  2613.  *		@param	int			$rounding		Minimum number of decimal to show. If not defined we use min($conf->global->MAIN_MAX_DECIMALS_UNIT,$conf->global->MAIN_MAX_DECIMALS_TOTAL)
    2614. 

  2614.  *		@param	int			$forcerounding	Force the number of decimal fo forcerounding decimal (-1=do not force)
    2615. 

  2615.  *		@param	string		$currency_code	To add currency symbol (''=add nothing, 'XXX'=add currency symbols for XXX currency)
    2616. 

  2616.  *		@return	string						Chaine avec montant formate
    2617. 

  2617.  *
    2618. 

  2618.  *		@see	price2num					Revert function of price
    2619. 

  2619.  */
    2620. 

  2620. function price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
    2621. 

  2621. {
    2622. 

  2622. 	global $langs,$conf;
    2623. 

  2623. 

  2624. 	// Clean parameters
    2625. 

  2625. 	if (empty($amount)) $amount=0;	// To have a numeric value if amount not defined or = ''
    2626. 

  2626. 	$amount = (is_numeric($amount)?$amount:0); // Check if amount is numeric, for example, an error occured when amount value = o (letter) instead 0 (number)
    2627. 

  2627. 	if ($rounding < 0) $rounding=min($conf->global->MAIN_MAX_DECIMALS_UNIT,$conf->global->MAIN_MAX_DECIMALS_TOT);
    2628. 

  2628. 

  2629. 	$nbdecimal=$rounding;
    2630. 

  2630. 

  2631. 	// Output separators by default (french)
    2632. 

  2632. 	$dec=','; $thousand=' ';
    2633. 

  2633. 

  2634. 	// If $outlangs not forced, we use use language
    2635. 

  2635. 	if (! is_object($outlangs)) $outlangs=$langs;
    2636. 

  2636. 

  2637. 	if ($outlangs->transnoentitiesnoconv("SeparatorDecimal") != "SeparatorDecimal")  $dec=$outlangs->transnoentitiesnoconv("SeparatorDecimal");
    2638. 

  2638. 	if ($outlangs->transnoentitiesnoconv("SeparatorThousand")!= "SeparatorThousand") $thousand=$outlangs->transnoentitiesnoconv("SeparatorThousand");
    2639. 

  2639. 	if ($thousand == 'None') $thousand='';
    2640. 

  2640. 	//print "amount=".$amount." html=".$form." trunc=".$trunc." nbdecimal=".$nbdecimal." dec='".$dec."' thousand='".$thousand."'<br>";
    2641. 

  2641. 

  2642. 	//print "amount=".$amount."-";
    2643. 

  2643. 	$amount = str_replace(',','.',$amount);	// should be useless
    2644. 

  2644. 	//print $amount."-";
    2645. 

  2645. 	$datas = explode('.',$amount);
    2646. 

  2646. 	$decpart = isset($datas[1])?$datas[1]:'';
    2647. 

  2647. 	$decpart = preg_replace('/0+$/i','',$decpart);	// Supprime les 0 de fin de partie decimale
    2648. 

  2648. 	//print "decpart=".$decpart."<br>";
    2649. 

  2649. 	$end='';
    2650. 

  2650. 

  2651. 	// We increase nbdecimal if there is more decimal than asked (to not loose information)
    2652. 

  2652. 	if (dol_strlen($decpart) > $nbdecimal) $nbdecimal=dol_strlen($decpart);
    2653. 

  2653. 	// Si on depasse max
    2654. 

  2654. 	if ($trunc && $nbdecimal > $conf->global->MAIN_MAX_DECIMALS_SHOWN)
    2655. 

  2655. 	{
    2656. 

  2656. 		$nbdecimal=$conf->global->MAIN_MAX_DECIMALS_SHOWN;
    2657. 

  2657. 		if (preg_match('/\.\.\./i',$conf->global->MAIN_MAX_DECIMALS_SHOWN))
    2658. 

  2658. 		{
    2659. 

  2659. 			// Si un affichage est tronque, on montre des ...
    2660. 

  2660. 			$end='...';
    2661. 

  2661. 		}
    2662. 

  2662. 	}
    2663. 

  2663. 

  2664. 	// If force rounding
    2665. 

  2665. 	if ($forcerounding >= 0) $nbdecimal = $forcerounding;
    2666. 

  2666. 

  2667. 	// Format number
    2668. 

  2668. 	$output=number_format($amount, $nbdecimal, $dec, $thousand);
    2669. 

  2669. 	if ($form)
    2670. 

  2670. 	{
    2671. 

  2671. 		$output=preg_replace('/\s/','&nbsp;',$output);
    2672. 

  2672. 		$output=preg_replace('/\'/','&#039;',$output);
    2673. 

  2673. 	}
    2674. 

  2674. 	// Add symbol of currency if requested
    2675. 

  2675. 	$cursymbolbefore=$cursymbolafter='';
    2676. 

  2676. 	if ($currency_code)
    2677. 

  2677. 	{
    2678. 

  2678. 		$listofcurrenciesbefore=array('USD');
    2679. 

  2679. 		if (in_array($currency_code,$listofcurrenciesbefore)) $cursymbolbefore.=$outlangs->getCurrencySymbol($currency_code);
    2680. 

  2680. 		else $cursymbolafter.=$outlangs->getCurrencySymbol($currency_code);
    2681. 

  2681. 	}
    2682. 

  2682. 	$output.=$cursymbolbefore.$end.$cursymbolafter;
    2683. 

  2683. 

  2684. 	return $output;
    2685. 

  2685. }
    2686. 

  2686. 

  2687. /**
    2688. 

  2688.  *	Function that return a number with universal decimal format (decimal separator is '.') from
    2689. 

  2689.  *	an amount typed by a user.
    2690. 

  2690.  *	Function to use on each input amount before any numeric test or database insert
    2691. 

  2691.  *
    2692. 

  2692.  *	@param	float	$amount			Amount to convert/clean
    2693. 

  2693.  *	@param	string	$rounding		''=No rounding
    2694. 

  2694.  * 									'MU'=Round to Max unit price (MAIN_MAX_DECIMALS_UNIT)
    2695. 

  2695.  *									'MT'=Round to Max for totals with Tax (MAIN_MAX_DECIMALS_TOT)
    2696. 

  2696.  *									'MS'=Round to Max Shown (MAIN_MAX_DECIMALS_SHOWN)
    2697. 

  2697.  * 	@param	int		$alreadysqlnb	Put 1 if you know that content is already universal format number
    2698. 

  2698.  *	@return	string					Amount with universal numeric format (Example: '99.99999')
    2699. 

  2699.  *
    2700. 

  2700.  *	@see    price					Opposite function of price2num
    2701. 

  2701.  */
    2702. 

  2702. function price2num($amount,$rounding='',$alreadysqlnb=0)
    2703. 

  2703. {
    2704. 

  2704. 	global $langs,$conf;
    2705. 

  2705. 

  2706. 	// Round PHP function does not allow number like '1,234.56' nor '1.234,56' nor '1 234,56'
    2707. 

  2707. 	// Numbers must be '1234.56'
    2708. 

  2708. 	// Decimal delimiter for PHP and database SQL requests must be '.'
    2709. 

  2709. 	$dec=','; $thousand=' ';
    2710. 

  2710. 	if ($langs->transnoentitiesnoconv("SeparatorDecimal") != "SeparatorDecimal")  $dec=$langs->transnoentitiesnoconv("SeparatorDecimal");
    2711. 

  2711. 	if ($langs->transnoentitiesnoconv("SeparatorThousand")!= "SeparatorThousand") $thousand=$langs->transnoentitiesnoconv("SeparatorThousand");
    2712. 

  2712. 	if ($thousand == 'None') $thousand='';
    2713. 

  2713. 	//print "amount=".$amount." html=".$form." trunc=".$trunc." nbdecimal=".$nbdecimal." dec='".$dec."' thousand='".$thousand."'<br>";
    2714. 

  2714. 

  2715. 	// Convert value to universal number format (no thousand separator, '.' as decimal separator)
    2716. 

  2716. 	if ($alreadysqlnb != 1)	// If not a PHP number or unknown, we change format
    2717. 

  2717. 	{
    2718. 

  2718. 		//print 'PP'.$amount.' - '.$dec.' - '.$thousand.' - '.intval($amount).'<br>';
    2719. 

  2719. 

  2720. 		// Convert amount to format with dolibarr dec and thousand (this is because PHP convert a number
    2721. 

  2721. 		// to format defined by LC_NUMERIC after a calculation and we want source format to be like defined by Dolibarr setup.
    2722. 

  2722. 		if (is_numeric($amount))
    2723. 

  2723. 		{
    2724. 

  2724. 			// We put in temps value of decimal ("0.00001"). Works with 0 and 2.0E-5 and 9999.10
    2725. 

  2725. 			$temps=sprintf("%0.10F",$amount-intval($amount));	// temps=0.0000000000 or 0.0000200000 or 9999.1000000000
    2726. 

  2726. 			$temps=preg_replace('/([\.1-9])0+$/','\\1',$temps); // temps=0. or 0.00002 or 9999.1
    2727. 

  2727. 			$nbofdec=max(0,dol_strlen($temps)-2);	// -2 to remove "0."
    2728. 

  2728. 			$amount=number_format($amount,$nbofdec,$dec,$thousand);
    2729. 

  2729. 		}
    2730. 

  2730. 		//print "QQ".$amount.'<br>';
    2731. 

  2731. 

  2732. 		// Now make replace (the main goal of function)
    2733. 

  2733. 		if ($thousand != ',' && $thousand != '.') $amount=str_replace(',','.',$amount);	// To accept 2 notations for french users
    2734. 

  2734. 		$amount=str_replace(' ','',$amount);		// To avoid spaces
    2735. 

  2735. 		$amount=str_replace($thousand,'',$amount);	// Replace of thousand before replace of dec to avoid pb if thousand is .
    2736. 

  2736. 		$amount=str_replace($dec,'.',$amount);
    2737. 

  2737. 	}
    2738. 

  2738. 

  2739. 	// Now, make a rounding if required
    2740. 

  2740. 	if ($rounding)
    2741. 

  2741. 	{
    2742. 

  2742. 		$nbofdectoround='';
    2743. 

  2743. 		if ($rounding == 'MU')     $nbofdectoround=$conf->global->MAIN_MAX_DECIMALS_UNIT;
    2744. 

  2744. 		elseif ($rounding == 'MT') $nbofdectoround=$conf->global->MAIN_MAX_DECIMALS_TOT;
    2745. 

  2745. 		elseif ($rounding == 'MS') $nbofdectoround=$conf->global->MAIN_MAX_DECIMALS_SHOWN;
    2746. 

  2746. 		elseif (is_numeric($rounding))  $nbofdectoround=$rounding; 	// For admin info page
    2747. 

  2747. 		//print "RR".$amount.' - '.$nbofdectoround.'<br>';
    2748. 

  2748. 		if (dol_strlen($nbofdectoround)) $amount = round($amount,$nbofdectoround);	// $nbofdectoround can be 0.
    2749. 

  2749. 		else return 'ErrorBadParameterProvidedToFunction';
    2750. 

  2750. 		//print 'SS'.$amount.' - '.$nbofdec.' - '.$dec.' - '.$thousand.' - '.$nbofdectoround.'<br>';
    2751. 

  2751. 

  2752. 		// Convert amount to format with dolibarr dec and thousand (this is because PHP convert a number
    2753. 

  2753. 		// to format defined by LC_NUMERIC after a calculation and we want source format to be defined by Dolibarr setup.
    2754. 

  2754. 		if (is_numeric($amount))
    2755. 

  2755. 		{
    2756. 

  2756. 			// We put in temps value of decimal ("0.00001"). Works with 0 and 2.0E-5 and 9999.10
    2757. 

  2757. 			$temps=sprintf("%0.10F",$amount-intval($amount));	// temps=0.0000000000 or 0.0000200000 or 9999.1000000000
    2758. 

  2758. 			$temps=preg_replace('/([\.1-9])0+$/','\\1',$temps); // temps=0. or 0.00002 or 9999.1
    2759. 

  2759. 			$nbofdec=max(0,dol_strlen($temps)-2);	// -2 to remove "0."
    2760. 

  2760. 			$amount=number_format($amount,min($nbofdec,$nbofdectoround),$dec,$thousand);		// Convert amount to format with dolibarr dec and thousand
    2761. 

  2761. 		}
    2762. 

  2762. 		//print "TT".$amount.'<br>';
    2763. 

  2763. 

  2764. 		// Always make replace because each math function (like round) replace
    2765. 

  2765. 		// with local values and we want a number that has a SQL string format x.y
    2766. 

  2766. 		if ($thousand != ',' && $thousand != '.') $amount=str_replace(',','.',$amount);	// To accept 2 notations for french users
    2767. 

  2767. 		$amount=str_replace(' ','',$amount);		// To avoid spaces
    2768. 

  2768. 		$amount=str_replace($thousand,'',$amount);	// Replace of thousand before replace of dec to avoid pb if thousand is .
    2769. 

  2769. 		$amount=str_replace($dec,'.',$amount);
    2770. 

  2770. 	}
    2771. 

  2771. 

  2772. 	return $amount;
    2773. 

  2773. }
    2774. 

  2774. 

  2775. /**
    2776. 

  2776.  *	Return localtax rate for a particular vat, when selling a product with vat $tva, from a $thirdparty_buyer to a $thirdparty_seller
    2777. 

  2777.  *  Note: It applies same rule than get_default_tva
    2778. 

  2778.  *
    2779. 

  2779.  * 	@param	float		$tva			        Vat taxe
    2780. 

  2780.  * 	@param  int			$local		         	Local tax to search and return (1 or 2 return only tax rate 1 or tax rate 2)
    2781. 

  2781.  *  @param  Societe		$thirdparty_buyer    	Object of buying third party
    2782. 

  2782.  *  @param	Societe		$thirdparty_seller		Object of selling third party
    2783. 

  2783.  * 	@return	mixed			   					0 if not found, localtax if found
    2784. 

  2784.  *  @see get_default_tva
    2785. 

  2785.  */
    2786. 

  2786. function get_localtax($tva, $local, $thirdparty_buyer="", $thirdparty_seller="")
    2787. 

  2787. {
    2788. 

  2788. 	global $db, $conf, $mysoc;
    2789. 

  2789. 

  2790. 	if (empty($thirdparty_seller) || ! is_object($thirdparty_seller)) $thirdparty_seller=$mysoc;
    2791. 

  2791. 

  2792. 	dol_syslog("get_localtax tva=".$tva." local=".$local." thirdparty_buyer id=".(is_object($thirdparty_buyer)?$thirdparty_buyer->id:'')." thirdparty_seller id=".$thirdparty_seller->id);
    2793. 

  2793. 

  2794. 	// Some test to guess with no need to make database access
    2795. 

  2795. 	if ($mysoc->country_code == 'ES') // For spain localtaxes 1 and 2, tax is qualified if buyer use local taxe
    2796. 

  2796. 	{
    2797. 

  2797. 		if ($local == 1)
    2798. 

  2798. 		{
    2799. 

  2799. 			if ($thirdparty_seller->id==$mysoc->id)
    2800. 

  2800. 			{
    2801. 

  2801. 				if (! $thirdparty_buyer->localtax1_assuj) return 0;
    2802. 

  2802. 			}
    2803. 

  2803. 			else
    2804. 

  2804. 			{
    2805. 

  2805. 				if (! $thirdparty_seller->localtax1_assuj) return 0;
    2806. 

  2806. 			}
    2807. 

  2807. 		}
    2808. 

  2808. 

  2809. 		if ($local == 2 && ! $thirdparty_buyer->localtax2_assuj) return 0;
    2810. 

  2810. 	}
    2811. 

  2811. 	else
    2812. 

  2812. 	{
    2813. 

  2813. 		if ($local == 1 && ! $thirdparty_seller->localtax1_assuj) return 0;
    2814. 

  2814. 		if ($local == 2 && ! $thirdparty_seller->localtax2_assuj) return 0;
    2815. 

  2815. 	}
    2816. 

  2816. 	//if ($local == 0 && ! $thirdparty_seller->localtax1_assuj && ! $thirdparty_seller->localtax2_assuj) return array('localtax1'=>0,'localtax2'=>0);
    2817. 

  2817. 

  2818. 	$code_country=$thirdparty_seller->country_code;
    2819. 

  2819. 	if (is_object($thirdparty_buyer))
    2820. 

  2820. 	{
    2821. 

  2821. 		if ($code_country != $thirdparty_buyer->country_code) return 0;
    2822. 

  2822. 	}
    2823. 

  2823. 

  2824. 	// Search local taxes
    2825. 

  2825. 	$sql  = "SELECT t.localtax1, t.localtax2, t.localtax1_type, t.localtax2_type";
    2826. 

  2826. 	$sql .= " FROM ".MAIN_DB_PREFIX."c_tva as t, ".MAIN_DB_PREFIX."c_pays as p";
    2827. 

  2827. 	$sql .= " WHERE t.fk_pays = p.rowid AND p.code = '".$code_country."'";
    2828. 

  2828. 	$sql .= " AND t.taux = ".$tva." AND t.active = 1";
    2829. 

  2829. 

  2830. 	dol_syslog("get_localtax sql=".$sql);
    2831. 

  2831. 	$resql=$db->query($sql);
    2832. 

  2832. 	if ($resql)
    2833. 

  2833. 	{
    2834. 

  2834. 		$obj = $db->fetch_object($resql);
    2835. 

  2835. 		if ($local==1 && $obj->localtax1_type != '7') return $obj->localtax1;
    2836. 

  2836. 		elseif ($local==2 && $obj->localtax2_type != '7') return $obj->localtax2;
    2837. 

  2837. 	}
    2838. 

  2838. 

  2839. 	return 0;
    2840. 

  2840. }
    2841. 

  2841. 

  2842. /**
    2843. 

  2843.  *  Get type and rate of localtaxes for a particular vat rate/country fo thirdparty
    2844. 

  2844.  *
    2845. 

  2845.  *  @param		real	$vatrate			VAT Rate
    2846. 

  2846.  *  @param		int		$local              Number of localtax (1 or 2, or 0 to return 1+2)
    2847. 

  2847.  *  @param		int		$thirdparty         company object
    2848. 

  2848.  *  @return		array    	  				array(Type of local tax (1 to 7 / 0 if not found), rate or amount of localtax)
    2849. 

  2849.  *  @deprecated	TODO We should remove this function by storing rate and type into detail lines.
    2850. 

  2850.  */
    2851. 

  2851. function getLocalTaxesFromRate($vatrate, $local, $thirdparty)
    2852. 

  2852. {
    2853. 

  2853. 	global $db;
    2854. 

  2854. 

  2855. 	dol_syslog("getLocalTaxesFromRate vatrate=".$vatrate." local=".$local." thirdparty id=".(is_object($thirdparty)?$thirdparty->id:''));
    2856. 

  2856. 

  2857. 	// Search local taxes
    2858. 

  2858. 	$sql  = "SELECT t.localtax1, t.localtax1_type, t.localtax2, t.localtax2_type,t.accountancy_code_sell,t.accountancy_code_buy";
    2859. 

  2859. 	$sql .= " FROM ".MAIN_DB_PREFIX."c_tva as t, ".MAIN_DB_PREFIX."c_pays as p";
    2860. 

  2860. 	$sql .= " WHERE t.fk_pays = p.rowid AND p.code = '".$thirdparty->country_code."'";
    2861. 

  2861. 	$sql .= " AND t.taux = ".$vatrate." AND t.active = 1";
    2862. 

  2862. 

  2863. 	$resql=$db->query($sql);
    2864. 

  2864. 	if ($resql)
    2865. 

  2865. 	{
    2866. 

  2866. 		$obj = $db->fetch_object($resql);
    2867. 

  2867. 		if ($local == 1) return array($obj->localtax1_type, $obj->localtax1,$obj->accountancy_code_sell,$obj->accountancy_code_buy);
    2868. 

  2868. 		elseif ($local == 2) return array($obj->localtax2_type, $obj->localtax2,$obj->accountancy_code_sell,$obj->accountancy_code_buy);
    2869. 

  2869. 		else return array($obj->localtax1_type, $obj->localtax1, $obj->localtax2_type, $obj->localtax2,$obj->accountancy_code_sell,$obj->accountancy_code_buy);
    2870. 

  2870. 	}
    2871. 

  2871. 

  2872. 	return 0;
    2873. 

  2873. }
    2874. 

  2874. 

  2875. /**
    2876. 

  2876.  *	Return vat rate of a product in a particular selling country or default country vat if product is unknown
    2877. 

  2877.  *
    2878. 

  2878.  *  @param	int			$idprod          	Id of product or 0 if not a predefined product
    2879. 

  2879.  *  @param  Societe		$thirdparty_seller  Thirdparty with a ->country_code defined (FR, US, IT, ...)
    2880. 

  2880.  *	@param	int			$idprodfournprice	Id product_fournisseur_price (for supplier order/invoice)
    2881. 

  2881.  *  @return int					         	<0 if KO, Vat rate if OK
    2882. 

  2882.  *  @see get_product_localtax_for_country
    2883. 

  2883.  */
    2884. 

  2884. function get_product_vat_for_country($idprod, $thirdparty_seller, $idprodfournprice=0)
    2885. 

  2885. {
    2886. 

  2886. 	global $db,$mysoc;
    2887. 

  2887. 

  2888. 	if (! class_exists('Product')) {
    2889. 

  2889. 		require DOL_DOCUMENT_ROOT . '/product/class/product.class.php';
    2890. 

  2890. 	}
    2891. 

  2891. 

  2892. 	$ret=0;
    2893. 

  2893. 	$found=0;
    2894. 

  2894. 

  2895. 	if ($idprod > 0)
    2896. 

  2896. 	{
    2897. 

  2897. 		// Load product
    2898. 

  2898. 		$product=new Product($db);
    2899. 

  2899. 		$result=$product->fetch($idprod);
    2900. 

  2900. 

  2901. 		if ($mysoc->country_code == $thirdparty_seller->country_code) // If selling country is ours
    2902. 

  2902. 		{
    2903. 

  2903. 			if ($idprodfournprice > 0)     // We want vat for product for a supplier order or invoice
    2904. 

  2904. 			{
    2905. 

  2905. 				$product->get_buyprice($idprodfournprice,0,0,0);
    2906. 

  2906. 				$ret=$product->vatrate_supplier;
    2907. 

  2907. 			}
    2908. 

  2908. 			else
    2909. 

  2909. 			{
    2910. 

  2910. 				$ret=$product->tva_tx;    // Default vat of product we defined
    2911. 

  2911. 			}
    2912. 

  2912. 			$found=1;
    2913. 

  2913. 		}
    2914. 

  2914. 		else
    2915. 

  2915. 		{
    2916. 

  2916. 			// TODO Read default product vat according to countrycode and product
    2917. 

  2917. 

  2918. 

  2919. 		}
    2920. 

  2920. 	}
    2921. 

  2921. 

  2922. 	if (! $found)
    2923. 

  2923. 	{
    2924. 

  2924. 		// If vat of product for the country not found or not defined, we return higher vat of country.
    2925. 

  2925. 		$sql = "SELECT taux as vat_rate";
    2926. 

  2926. 		$sql.= " FROM ".MAIN_DB_PREFIX."c_tva as t, ".MAIN_DB_PREFIX."c_pays as p";
    2927. 

  2927. 		$sql.= " WHERE t.active=1 AND t.fk_pays = p.rowid AND p.code='".$thirdparty_seller->country_code."'";
    2928. 

  2928. 		$sql.= " ORDER BY t.taux DESC, t.recuperableonly ASC";
    2929. 

  2929. 		$sql.= $db->plimit(1);
    2930. 

  2930. 

  2931. 		$resql=$db->query($sql);
    2932. 

  2932. 		if ($resql)
    2933. 

  2933. 		{
    2934. 

  2934. 			$obj=$db->fetch_object($resql);
    2935. 

  2935. 			if ($obj)
    2936. 

  2936. 			{
    2937. 

  2937. 				$ret=$obj->vat_rate;
    2938. 

  2938. 			}
    2939. 

  2939. 		}
    2940. 

  2940. 		else dol_print_error($db);
    2941. 

  2941. 	}
    2942. 

  2942. 

  2943. 	dol_syslog("get_product_vat_for_country: ret=".$ret);
    2944. 

  2944. 	return $ret;
    2945. 

  2945. }
    2946. 

  2946. 

  2947. /**
    2948. 

  2948.  *	Return localtax vat rate of a product in a particular selling country or default country vat if product is unknown
    2949. 

  2949.  *
    2950. 

  2950.  *  @param	int		$idprod         		Id of product
    2951. 

  2951.  *  @param  int		$local          		1 for localtax1, 2 for localtax 2
    2952. 

  2952.  *  @param  Societe	$thirdparty_seller    	Thirdparty with a ->country_code defined (FR, US, IT, ...)
    2953. 

  2953.  *  @return int             				<0 if KO, Vat rate if OK
    2954. 

  2954.  *  @see get_product_vat_for_country
    2955. 

  2955.  */
    2956. 

  2956. function get_product_localtax_for_country($idprod, $local, $thirdparty_seller)
    2957. 

  2957. {
    2958. 

  2958. 	global $db,$mysoc;
    2959. 

  2959. 

  2960. 	if (! class_exists('Product')) {
    2961. 

  2961. 		require DOL_DOCUMENT_ROOT . '/product/class/product.class.php';
    2962. 

  2962. 	}
    2963. 

  2963. 

  2964. 	$ret=0;
    2965. 

  2965. 	$found=0;
    2966. 

  2966. 

  2967. 	if ($idprod > 0)
    2968. 

  2968. 	{
    2969. 

  2969. 		// Load product
    2970. 

  2970. 		$product=new Product($db);
    2971. 

  2971. 		$result=$product->fetch($idprod);
    2972. 

  2972. 

  2973. 		if ($mysoc->country_code == $thirdparty_seller->country_code) // If selling country is ours
    2974. 

  2974. 		{
    2975. 

  2975. 			/* Not defined yet, so we don't use this
    2976. 

  2976. 			if ($local==1) $ret=$product->localtax1_tx;
    2977. 

  2977. 			elseif ($local==2) $ret=$product->localtax2_tx;
    2978. 

  2978. 			$found=1;
    2979. 

  2979. 			*/
    2980. 

  2980. 		}
    2981. 

  2981. 		else
    2982. 

  2982. 		{
    2983. 

  2983. 			// TODO Read default product vat according to countrycode and product
    2984. 

  2984. 

  2985. 

  2986. 		}
    2987. 

  2987. 	}
    2988. 

  2988. 

  2989. 	if (! $found)
    2990. 

  2990. 	{
    2991. 

  2991. 		// If vat of product for the country not found or not defined, we return higher vat of country.
    2992. 

  2992. 		$sql = "SELECT taux as vat_rate, localtax1, localtax2";
    2993. 

  2993. 		$sql.= " FROM ".MAIN_DB_PREFIX."c_tva as t, ".MAIN_DB_PREFIX."c_pays as p";
    2994. 

  2994. 		$sql.= " WHERE t.active=1 AND t.fk_pays = p.rowid AND p.code='".$thirdparty_seller->country_code."'";
    2995. 

  2995. 		$sql.= " ORDER BY t.taux DESC, t.recuperableonly ASC";
    2996. 

  2996. 		$sql.= $db->plimit(1);
    2997. 

  2997. 

  2998. 		$resql=$db->query($sql);
    2999. 

  2999. 		if ($resql)
    3000. 

  3000. 		{
    3001. 

  3001. 			$obj=$db->fetch_object($resql);
    3002. 

  3002. 			if ($obj)
    3003. 

  3003. 			{
    3004. 

  3004. 				if ($local==1) $ret=$obj->localtax1;
    3005. 

  3005. 				elseif ($local==2) $ret=$obj->localtax2;
    3006. 

  3006. 			}
    3007. 

  3007. 		}
    3008. 

  3008. 		else dol_print_error($db);
    3009. 

  3009. 	}
    3010. 

  3010. 

  3011. 	dol_syslog("get_product_localtax_for_country: ret=".$ret);
    3012. 

  3012. 	return $ret;
    3013. 

  3013. }
    3014. 

  3014. 

  3015. /**
    3016. 

  3016.  *	Function that return vat rate of a product line (according to seller, buyer and product vat rate)
    3017. 

  3017.  *   Si vendeur non assujeti a TVA, TVA par defaut=0. Fin de regle.
    3018. 

  3018.  *	 Si le (pays vendeur = pays acheteur) alors TVA par defaut=TVA du produit vendu. Fin de regle.
    3019. 

  3019.  *	 Si (vendeur et acheteur dans Communaute europeenne) et (bien vendu = moyen de transports neuf comme auto, bateau, avion) alors TVA par defaut=0 (La TVA doit etre paye par acheteur au centre d'impots de son pays et non au vendeur). Fin de regle.
    3020. 

  3020.  *	 Si (vendeur et acheteur dans Communaute europeenne) et (acheteur = particulier ou entreprise sans num TVA intra) alors TVA par defaut=TVA du produit vendu. Fin de regle
    3021. 

  3021.  *	 Si (vendeur et acheteur dans Communaute europeenne) et (acheteur = entreprise avec num TVA) intra alors TVA par defaut=0. Fin de regle
    3022. 

  3022.  *	 Sinon TVA proposee par defaut=0. Fin de regle.
    3023. 

  3023.  *
    3024. 

  3024.  *	@param	Societe		$thirdparty_seller    	Objet societe vendeuse
    3025. 

  3025.  *	@param  Societe		$thirdparty_buyer   	Objet societe acheteuse
    3026. 

  3026.  *	@param  int			$idprod					Id product
    3027. 

  3027.  *	@param	int			$idprodfournprice		Id product_fournisseur_price (for supplier order/invoice)
    3028. 

  3028.  *	@return float         				      	Taux de tva a appliquer, -1 si ne peut etre determine
    3029. 

  3029.  *  @see get_default_localtax
    3030. 

  3030.  */
    3031. 

  3031. function get_default_tva($thirdparty_seller, $thirdparty_buyer, $idprod=0, $idprodfournprice=0)
    3032. 

  3032. {
    3033. 

  3033. 	global $conf;
    3034. 

  3034. 

  3035. 	if (!is_object($thirdparty_seller)) return -1;
    3036. 

  3036. 	if (!is_object($thirdparty_buyer)) return -1;
    3037. 

  3037. 

  3038. 	dol_syslog("get_default_tva: seller use vat=".$thirdparty_seller->tva_assuj.", seller country=".$thirdparty_seller->country_code.", seller in cee=".$thirdparty_seller->isInEEC().", buyer country=".$thirdparty_buyer->country_code.", buyer in cee=".$thirdparty_buyer->isInEEC().", idprod=".$idprod.", idprodfournprice=".$idprodfournprice.", SERVICE_ARE_ECOMMERCE_200238EC=".(! empty($conf->global->SERVICES_ARE_ECOMMERCE_200238EC)?$conf->global->SERVICES_ARE_ECOMMERCE_200238EC:''));
    3039. 

  3039. 

  3040. 	// If services are eServices according to EU Council Directive 2002/38/EC (http://ec.europa.eu/taxation_customs/taxation/vat/traders/e-commerce/article_1610_en.htm)
    3041. 

  3041. 	// we use the buyer VAT.
    3042. 

  3042. 	if (! empty($conf->global->SERVICE_ARE_ECOMMERCE_200238EC))
    3043. 

  3043. 	{
    3044. 

  3044. 		//print "eee".$thirdparty_buyer->isACompany();exit;
    3045. 

  3045. 		if (! $thirdparty_seller->isInEEC() && $thirdparty_buyer->isInEEC() && ! $thirdparty_buyer->isACompany())
    3046. 

  3046. 		{
    3047. 

  3047. 			//print 'VATRULE 6';
    3048. 

  3048. 			return get_product_vat_for_country($idprod,$thirdparty_buyer,$idprodfournprice);
    3049. 

  3049. 		}
    3050. 

  3050. 	}
    3051. 

  3051. 

  3052. 	// Si vendeur non assujeti a TVA (tva_assuj vaut 0/1 ou franchise/reel)
    3053. 

  3053. 	if (is_numeric($thirdparty_seller->tva_assuj) && ! $thirdparty_seller->tva_assuj)
    3054. 

  3054. 	{
    3055. 

  3055. 		//print 'VATRULE 1';
    3056. 

  3056. 		return 0;
    3057. 

  3057. 	}
    3058. 

  3058. 	if (! is_numeric($thirdparty_seller->tva_assuj) && $thirdparty_seller->tva_assuj=='franchise')
    3059. 

  3059. 	{
    3060. 

  3060. 		//print 'VATRULE 2';
    3061. 

  3061. 		return 0;
    3062. 

  3062. 	}
    3063. 

  3063. 

  3064. 	//if (is_object($thirdparty_buyer) && ($thirdparty_seller->country_id == $thirdparty_buyer->country_id) && ($thirdparty_buyer->tva_assuj == 1 || $thirdparty_buyer->tva_assuj == 'reel'))
    3065. 

  3065. 	// Le test ci-dessus ne devrait pas etre necessaire. Me signaler l'exemple du cas juridique concerne si le test suivant n'est pas suffisant.
    3066. 

  3066. 

  3067. 	// Si le (pays vendeur = pays acheteur) alors la TVA par defaut=TVA du produit vendu. Fin de regle.
    3068. 

  3068. 	if (($thirdparty_seller->country_code == $thirdparty_buyer->country_code)
    3069. 

  3069. 	|| (in_array($thirdparty_seller->country_code,array('FR,MC')) && in_array($thirdparty_buyer->country_code,array('FR','MC')))) // Warning ->country_code not always defined
    3070. 

  3070. 	{
    3071. 

  3071. 		//print 'VATRULE 3';
    3072. 

  3072. 		return get_product_vat_for_country($idprod,$thirdparty_seller,$idprodfournprice);
    3073. 

  3073. 	}
    3074. 

  3074. 

  3075. 	// Si (vendeur et acheteur dans Communaute europeenne) et (bien vendu = moyen de transports neuf comme auto, bateau, avion) alors TVA par defaut=0 (La TVA doit etre paye par l'acheteur au centre d'impots de son pays et non au vendeur). Fin de regle.
    3076. 

  3076. 	// Non gere
    3077. 

  3077. 

  3078. 	// Si (vendeur et acheteur dans Communaute europeenne) et (acheteur = entreprise) alors TVA par defaut=0. Fin de regle
    3079. 

  3079. 	// Si (vendeur et acheteur dans Communaute europeenne) et (acheteur = particulier) alors TVA par defaut=TVA du produit vendu. Fin de regle
    3080. 

  3080. 	if (($thirdparty_seller->isInEEC() && $thirdparty_buyer->isInEEC()))
    3081. 

  3081. 	{
    3082. 

  3082. 		$isacompany=$thirdparty_buyer->isACompany();
    3083. 

  3083. 		if ($isacompany)
    3084. 

  3084. 		{
    3085. 

  3085. 			//print 'VATRULE 4';
    3086. 

  3086. 			return 0;
    3087. 

  3087. 		}
    3088. 

  3088. 		else
    3089. 

  3089. 		{
    3090. 

  3090. 			//print 'VATRULE 5';
    3091. 

  3091. 			return get_product_vat_for_country($idprod,$thirdparty_seller,$idprodfournprice);
    3092. 

  3092. 		}
    3093. 

  3093. 	}
    3094. 

  3094. 

  3095. 	// Sinon la TVA proposee par defaut=0. Fin de regle.
    3096. 

  3096. 	// Rem: Cela signifie qu'au moins un des 2 est hors Communaute europeenne et que le pays differe
    3097. 

  3097. 	//print 'VATRULE 7';
    3098. 

  3098. 	return 0;
    3099. 

  3099. }
    3100. 

  3100. 

  3101. 

  3102. /**
    3103. 

  3103.  *	Fonction qui renvoie si tva doit etre tva percue recuperable
    3104. 

  3104.  *
    3105. 

  3105.  *	@param	Societe		$thirdparty_seller    	Thirdparty seller
    3106. 

  3106.  *	@param  Societe		$thirdparty_buyer   	Thirdparty buyer
    3107. 

  3107.  *  @param  int			$idprod                 Id product
    3108. 

  3108.  *  @param	int			$idprodfournprice		Id supplier price for product
    3109. 

  3109.  *	@return float       			        	0 or 1
    3110. 

  3110.  */
    3111. 

  3111. function get_default_npr($thirdparty_seller, $thirdparty_buyer, $idprod=0, $idprodfournprice=0)
    3112. 

  3112. {
    3113. 

  3113. 	global $db;
    3114. 

  3114. 

  3115. 	if ($idprodfournprice > 0)
    3116. 

  3116. 	{
    3117. 

  3117. 		if (! class_exists('ProductFournisseur'))
    3118. 

  3118. 			require DOL_DOCUMENT_ROOT . '/fourn/class/fournisseur.product.class.php';
    3119. 

  3119. 		$prodprice = new ProductFournisseur($db);
    3120. 

  3120. 		$prodprice->fetch_product_fournisseur_price($idprodfournprice);
    3121. 

  3121. 		return $prodprice->fourn_tva_npr;
    3122. 

  3122. 	}
    3123. 

  3123. 	elseif ($idprod > 0)
    3124. 

  3124. 	{
    3125. 

  3125. 		if (! class_exists('Product'))
    3126. 

  3126. 			require DOL_DOCUMENT_ROOT . '/product/class/product.class.php';
    3127. 

  3127. 		$prod = new Product($db);
    3128. 

  3128. 		$prod->fetch($idprod);
    3129. 

  3129. 		return $prod->tva_npr;
    3130. 

  3130. 	}
    3131. 

  3131. 

  3132. 	return 0;
    3133. 

  3133. }
    3134. 

  3134. 

  3135. /**
    3136. 

  3136.  *	Function that return localtax of a product line (according to seller, buyer and product vat rate)
    3137. 

  3137.  *   Si vendeur non assujeti a TVA, TVA par defaut=0. Fin de regle.
    3138. 

  3138.  *	 Si le (pays vendeur = pays acheteur) alors TVA par defaut=TVA du produit vendu. Fin de regle.
    3139. 

  3139.  *	 Sinon TVA proposee par defaut=0. Fin de regle.
    3140. 

  3140.  *
    3141. 

  3141.  *	@param	Societe		$thirdparty_seller    	Thirdparty seller
    3142. 

  3142.  *	@param  Societe		$thirdparty_buyer   	Thirdparty buyer
    3143. 

  3143.  *  @param	int			$local					Localtax to process (1 or 2)
    3144. 

  3144.  *	@param  int			$idprod					Id product
    3145. 

  3145.  *	@return float        				       	localtax, -1 si ne peut etre determine
    3146. 

  3146.  *  @see get_default_tva
    3147. 

  3147.  */
    3148. 

  3148. function get_default_localtax($thirdparty_seller, $thirdparty_buyer, $local, $idprod=0)
    3149. 

  3149. {
    3150. 

  3150. 	global $mysoc;
    3151. 

  3151. 

  3152. 	if (!is_object($thirdparty_seller)) return -1;
    3153. 

  3153. 	if (!is_object($thirdparty_buyer)) return -1;
    3154. 

  3154. 

  3155. 	if ($local==1) // Localtax 1
    3156. 

  3156. 	{
    3157. 

  3157. 		if ($mysoc->country_code == 'ES')
    3158. 

  3158. 		{
    3159. 

  3159. 			if (is_numeric($thirdparty_buyer->localtax1_assuj) && ! $thirdparty_buyer->localtax1_assuj) return 0;
    3160. 

  3160. 		}
    3161. 

  3161. 		else
    3162. 

  3162. 		{
    3163. 

  3163. 			// Si vendeur non assujeti a Localtax1, localtax1 par default=0
    3164. 

  3164. 			if (is_numeric($thirdparty_seller->localtax1_assuj) && ! $thirdparty_seller->localtax1_assuj) return 0;
    3165. 

  3165. 			if (! is_numeric($thirdparty_seller->localtax1_assuj) && $thirdparty_seller->localtax1_assuj=='localtax1off') return 0;
    3166. 

  3166. 		}
    3167. 

  3167. 	}
    3168. 

  3168. 	elseif ($local==2) //I Localtax 2
    3169. 

  3169. 	{
    3170. 

  3170. 		// Si vendeur non assujeti a Localtax2, localtax2 par default=0
    3171. 

  3171. 		if (is_numeric($thirdparty_seller->localtax2_assuj) && ! $thirdparty_seller->localtax2_assuj) return 0;
    3172. 

  3172. 		if (! is_numeric($thirdparty_seller->localtax2_assuj) && $thirdparty_seller->localtax2_assuj=='localtax2off') return 0;
    3173. 

  3173. 	}
    3174. 

  3174. 

  3175. 	if ($thirdparty_seller->country_code == $thirdparty_buyer->country_code)
    3176. 

  3176. 	{
    3177. 

  3177. 		return get_product_localtax_for_country($idprod, $local, $thirdparty_seller);
    3178. 

  3178. 	}
    3179. 

  3179. 

  3180. 	return 0;
    3181. 

  3181. }
    3182. 

  3182. 

  3183. /**
    3184. 

  3184.  *	Return yes or no in current language
    3185. 

  3185.  *
    3186. 

  3186.  *	@param	string	$yesno			Value to test (1, 'yes', 'true' or 0, 'no', 'false')
    3187. 

  3187.  *	@param	string	$case			1=Yes/No, 0=yes/no
    3188. 

  3188.  *	@param	int		$color			0=texte only, 1=Text is formated with a color font style ('ok' or 'error'), 2=Text is formated with 'ok' color.
    3189. 

  3189.  *	@return	string					HTML string
    3190. 

  3190.  */
    3191. 

  3191. function yn($yesno, $case=1, $color=0)
    3192. 

  3192. {
    3193. 

  3193. 	global $langs;
    3194. 

  3194. 	$result='unknown';
    3195. 

  3195. 	if ($yesno == 1 || strtolower($yesno) == 'yes' || strtolower($yesno) == 'true') 	// A mettre avant test sur no a cause du == 0
    3196. 

  3196. 	{
    3197. 

  3197. 		$result=($case?$langs->trans("Yes"):$langs->trans("yes"));
    3198. 

  3198. 		$classname='ok';
    3199. 

  3199. 	}
    3200. 

  3200. 	elseif ($yesno == 0 || strtolower($yesno) == 'no' || strtolower($yesno) == 'false')
    3201. 

  3201. 	{
    3202. 

  3202. 		$result=($case?$langs->trans("No"):$langs->trans("no"));
    3203. 

  3203. 		if ($color == 2) $classname='ok';
    3204. 

  3204. 		else $classname='error';
    3205. 

  3205. 	}
    3206. 

  3206. 	if ($color) return '<font class="'.$classname.'">'.$result.'</font>';
    3207. 

  3207. 	return $result;
    3208. 

  3208. }
    3209. 

  3209. 

  3210. 

  3211. /**
    3212. 

  3212.  *	Return a path to have a directory according to an id
    3213. 

  3213.  *  Examples:       '001' with level 3->"0/0/1/", '015' with level 3->"0/1/5/"
    3214. 

  3214.  *  Examples:       'ABC-1' with level 3 ->"0/0/1/", '015' with level 1->"5/"
    3215. 

  3215.  *
    3216. 

  3216.  *	@param	string	$num            Id to develop
    3217. 

  3217.  *	@param  int		$level		    Level of development (1, 2 or 3 level)
    3218. 

  3218.  * 	@param	int		$alpha		    Use alpha ref
    3219. 

  3219.  *  @param  int		$withoutslash   0=With slash at end, 1=without slash at end
    3220. 

  3220.  *  @return	string					Dir to use
    3221. 

  3221.  */
    3222. 

  3222. function get_exdir($num,$level=3,$alpha=0,$withoutslash=0)
    3223. 

  3223. {
    3224. 

  3224. 	$path = '';
    3225. 

  3225. 	if (empty($alpha)) $num = preg_replace('/([^0-9])/i','',$num);
    3226. 

  3226. 	else $num = preg_replace('/^.*\-/i','',$num);
    3227. 

  3227. 	$num = substr("000".$num, -$level);
    3228. 

  3228. 	if ($level == 1) $path = substr($num,0,1);
    3229. 

  3229. 	if ($level == 2) $path = substr($num,1,1).'/'.substr($num,0,1);
    3230. 

  3230. 	if ($level == 3) $path = substr($num,2,1).'/'.substr($num,1,1).'/'.substr($num,0,1);
    3231. 

  3231. 	if (empty($withoutslash)) $path.='/';
    3232. 

  3232. 	return $path;
    3233. 

  3233. }
    3234. 

  3234. 

  3235. /**
    3236. 

  3236.  *	Creation of a directory (this can create recursive subdir)
    3237. 

  3237.  *
    3238. 

  3238.  *	@param	string	$dir		Directory to create (Separator must be '/'. Example: '/mydir/mysubdir')
    3239. 

  3239.  *	@param	string	$dataroot	Data root directory (To avoid having the data root in the loop. Using this will also lost the warning on first dir PHP has no permission when open_basedir is used)
    3240. 

  3240.  *	@return int         		< 0 if KO, 0 = already exists, > 0 if OK
    3241. 

  3241.  */
    3242. 

  3242. function dol_mkdir($dir, $dataroot='')
    3243. 

  3243. {
    3244. 

  3244. 	global $conf;
    3245. 

  3245. 

  3246. 	dol_syslog("functions.lib::dol_mkdir: dir=".$dir,LOG_INFO);
    3247. 

  3247. 

  3248. 	$dir_osencoded=dol_osencode($dir);
    3249. 

  3249. 	if (@is_dir($dir_osencoded)) return 0;
    3250. 

  3250. 

  3251. 	$nberr=0;
    3252. 

  3252. 	$nbcreated=0;
    3253. 

  3253. 

  3254. 	$ccdir='';
    3255. 

  3255. 	if (! empty($dataroot)) {
    3256. 

  3256. 		// Remove data root from loop
    3257. 

  3257. 		$dir = str_replace($dataroot.'/', '', $dir);
    3258. 

  3258. 		$ccdir = $dataroot.'/';
    3259. 

  3259. 	}
    3260. 

  3260. 

  3261. 	$cdir = explode("/", $dir);
    3262. 

  3262. 	$num=count($cdir);
    3263. 

  3263. 	for ($i = 0; $i < $num; $i++)
    3264. 

  3264. 	{
    3265. 

  3265. 		if ($i > 0) $ccdir .= '/'.$cdir[$i];
    3266. 

  3266. 		else $ccdir .= $cdir[$i];
    3267. 

  3267. 		if (preg_match("/^.:$/",$ccdir,$regs)) continue;	// Si chemin Windows incomplet, on poursuit par rep suivant
    3268. 

  3268. 

  3269. 		// Attention, le is_dir() peut echouer bien que le rep existe.
    3270. 

  3270. 		// (ex selon config de open_basedir)
    3271. 

  3271. 		if ($ccdir)
    3272. 

  3272. 		{
    3273. 

  3273. 			$ccdir_osencoded=dol_osencode($ccdir);
    3274. 

  3274. 			if (! @is_dir($ccdir_osencoded))
    3275. 

  3275. 			{
    3276. 

  3276. 				dol_syslog("functions.lib::dol_mkdir: Directory '".$ccdir."' does not exists or is outside open_basedir PHP setting.",LOG_DEBUG);
    3277. 

  3277. 

  3278. 				umask(0);
    3279. 

  3279. 				$dirmaskdec=octdec('0755');
    3280. 

  3280. 				if (! empty($conf->global->MAIN_UMASK)) $dirmaskdec=octdec($conf->global->MAIN_UMASK);
    3281. 

  3281. 				$dirmaskdec |= octdec('0111');  // Set x bit required for directories
    3282. 

  3282. 				if (! @mkdir($ccdir_osencoded, $dirmaskdec))
    3283. 

  3283. 				{
    3284. 

  3284. 					// Si le is_dir a renvoye une fausse info, alors on passe ici.
    3285. 

  3285. 					dol_syslog("functions.lib::dol_mkdir: Fails to create directory '".$ccdir."' or directory already exists.",LOG_WARNING);
    3286. 

  3286. 					$nberr++;
    3287. 

  3287. 				}
    3288. 

  3288. 				else
    3289. 

  3289. 				{
    3290. 

  3290. 					dol_syslog("functions.lib::dol_mkdir: Directory '".$ccdir."' created",LOG_DEBUG);
    3291. 

  3291. 					$nberr=0;	// On remet a zero car si on arrive ici, cela veut dire que les echecs precedents peuvent etre ignore
    3292. 

  3292. 					$nbcreated++;
    3293. 

  3293. 				}
    3294. 

  3294. 			}
    3295. 

  3295. 			else
    3296. 

  3296. 			{
    3297. 

  3297. 				$nberr=0;	// On remet a zero car si on arrive ici, cela veut dire que les echecs precedents peuvent etre ignores
    3298. 

  3298. 			}
    3299. 

  3299. 		}
    3300. 

  3300. 	}
    3301. 

  3301. 	return ($nberr ? -$nberr : $nbcreated);
    3302. 

  3302. }
    3303. 

  3303. 

  3304. 

  3305. /**
    3306. 

  3306.  *	Return picto saying a field is required
    3307. 

  3307.  *
    3308. 

  3308.  *	@return  string		Chaine avec picto obligatoire
    3309. 

  3309.  */
    3310. 

  3310. function picto_required()
    3311. 

  3311. {
    3312. 

  3312. 	return '<span class="fieldrequired">*</span>';
    3313. 

  3313. }
    3314. 

  3314. 

  3315. 

  3316. /**
    3317. 

  3317.  *	Clean a string from all HTML tags and entities
    3318. 

  3318.  *
    3319. 

  3319.  *	@param	string	$StringHtml			String to clean
    3320. 

  3320.  *	@param	string	$removelinefeed		Replace also all lines feeds by a space
    3321. 

  3321.  *  @param  string	$pagecodeto      	Encoding of input string
    3322. 

  3322.  *	@return string	    				String cleaned
    3323. 

  3323.  */
    3324. 

  3324. function dol_string_nohtmltag($StringHtml,$removelinefeed=1,$pagecodeto='UTF-8')
    3325. 

  3325. {
    3326. 

  3326. 	$pattern = "/<[^>]+>/";
    3327. 

  3327. 	$temp = dol_html_entity_decode($StringHtml,ENT_COMPAT,$pagecodeto);
    3328. 

  3328. 	$temp = preg_replace($pattern,"",$temp);
    3329. 

  3329. 

  3330. 	// Supprime aussi les retours
    3331. 

  3331. 	if ($removelinefeed) $temp=str_replace(array("\r\n","\r","\n")," ",$temp);
    3332. 

  3332. 

  3333. 	// et les espaces doubles
    3334. 

  3334. 	while(strpos($temp,"  "))
    3335. 

  3335. 	{
    3336. 

  3336. 		$temp = str_replace("  "," ",$temp);
    3337. 

  3337. 	}
    3338. 

  3338. 	$CleanString = trim($temp);
    3339. 

  3339. 	return $CleanString;
    3340. 

  3340. }
    3341. 

  3341. 

  3342. 

  3343. /**
    3344. 

  3344.  *	Replace CRLF in string with a HTML BR tag
    3345. 

  3345.  *
    3346. 

  3346.  *	@param	string	$stringtoencode		String to encode
    3347. 

  3347.  *	@param	string	$nl2brmode			0=Adding br before \n, 1=Replacing \n by br
    3348. 

  3348.  *  @param  string	$forxml             false=Use <br>, true=Use <br />
    3349. 

  3349.  *	@return	string						String encoded
    3350. 

  3350.  */
    3351. 

  3351. function dol_nl2br($stringtoencode,$nl2brmode=0,$forxml=false)
    3352. 

  3352. {
    3353. 

  3353. 	if (! $nl2brmode)
    3354. 

  3354. 	{
    3355. 

  3355. 		// We use @ to avoid warning on PHP4 that does not support entity encoding from UTF8;
    3356. 

  3356. 		if (version_compare(PHP_VERSION, '5.3.0') < 0) return @nl2br($stringtoencode);
    3357. 

  3357. 		else return @nl2br($stringtoencode,$forxml);
    3358. 

  3358. 	}
    3359. 

  3359. 	else
    3360. 

  3360. 	{
    3361. 

  3361. 		$ret=preg_replace('/(\r\n|\r|\n)/i',($forxml?'<br />':'<br>'),$stringtoencode);
    3362. 

  3362. 		return $ret;
    3363. 

  3363. 	}
    3364. 

  3364. }
    3365. 

  3365. 

  3366. /**
    3367. 

  3367.  *	This function is called to encode a string into a HTML string but differs from htmlentities because
    3368. 

  3368.  * 	all entities but &,<,> are converted. This permits to encode special chars to entities with no double
    3369. 

  3369.  *  encoding for already encoded HTML strings.
    3370. 

  3370.  * 	This function also remove last CR/BR.
    3371. 

  3371.  *  For PDF usage, you can show text by 2 ways:
    3372. 

  3372.  *              - writeHTMLCell -> param must be encoded into HTML.
    3373. 

  3373.  *              - MultiCell -> param must not be encoded into HTML.
    3374. 

  3374.  *              Because writeHTMLCell convert also \n into <br>, if function
    3375. 

  3375.  *              is used to build PDF, nl2brmode must be 1
    3376. 

  3376.  *
    3377. 

  3377.  *	@param	string	$stringtoencode		String to encode
    3378. 

  3378.  *	@param	int		$nl2brmode			0=Adding br before \n, 1=Replacing \n by br (for use with FPDF writeHTMLCell function for example)
    3379. 

  3379.  *  @param  string	$pagecodefrom       Pagecode stringtoencode is encoded
    3380. 

  3380.  *  @return	string						String encoded
    3381. 

  3381.  */
    3382. 

  3382. function dol_htmlentitiesbr($stringtoencode,$nl2brmode=0,$pagecodefrom='UTF-8')
    3383. 

  3383. {
    3384. 

  3384. 	if (dol_textishtml($stringtoencode))
    3385. 

  3385. 	{
    3386. 

  3386. 		$newstring=$stringtoencode;
    3387. 

  3387. 		$newstring=preg_replace('/<br(\s[\sa-zA-Z_="]*)?\/?>/i','<br>',$newstring);	// Replace "<br type="_moz" />" by "<br>". It's same and avoid pb with FPDF.
    3388. 

  3388. 		$newstring=preg_replace('/<br>$/i','',$newstring);	// Remove last <br>
    3389. 

  3389. 		$newstring=strtr($newstring,array('&'=>'__and__','<'=>'__lt__','>'=>'__gt__','"'=>'__dquot__'));
    3390. 

  3390. 		$newstring=dol_htmlentities($newstring,ENT_COMPAT,$pagecodefrom);	// Make entity encoding
    3391. 

  3391. 		$newstring=strtr($newstring,array('__and__'=>'&','__lt__'=>'<','__gt__'=>'>','__dquot__'=>'"'));
    3392. 

  3392. 		//$newstring=strtr($newstring,array('__li__'=>"<li>\n")); // Restore <li>\n
    3393. 

  3393. 	}
    3394. 

  3394. 	else
    3395. 

  3395. 	{
    3396. 

  3396. 		$newstring=dol_nl2br(dol_htmlentities($stringtoencode,ENT_COMPAT,$pagecodefrom),$nl2brmode);
    3397. 

  3397. 	}
    3398. 

  3398. 	// Other substitutions that htmlentities does not do
    3399. 

  3399. 	//$newstring=str_replace(chr(128),'&euro;',$newstring);	// 128 = 0x80. Not in html entity table.     // Seems useles with TCPDF. Make bug with UTF8 languages
    3400. 

  3400. 	return $newstring;
    3401. 

  3401. }
    3402. 

  3402. 

  3403. /**
    3404. 

  3404.  *	This function is called to decode a HTML string (it decodes entities and br tags)
    3405. 

  3405.  *
    3406. 

  3406.  *	@param	string	$stringtodecode		String to decode
    3407. 

  3407.  *	@param	string	$pagecodeto			Page code for result
    3408. 

  3408.  *	@return	string						String decoded
    3409. 

  3409.  */
    3410. 

  3410. function dol_htmlentitiesbr_decode($stringtodecode,$pagecodeto='UTF-8')
    3411. 

  3411. {
    3412. 

  3412. 	$ret=dol_html_entity_decode($stringtodecode,ENT_COMPAT,$pagecodeto);
    3413. 

  3413. 	$ret=preg_replace('/'."\r\n".'<br(\s[\sa-zA-Z_="]*)?\/?>/i',"<br>",$ret);
    3414. 

  3414. 	$ret=preg_replace('/<br(\s[\sa-zA-Z_="]*)?\/?>'."\r\n".'/i',"\r\n",$ret);
    3415. 

  3415. 	$ret=preg_replace('/<br(\s[\sa-zA-Z_="]*)?\/?>'."\n".'/i',"\n",$ret);
    3416. 

  3416. 	$ret=preg_replace('/<br(\s[\sa-zA-Z_="]*)?\/?>/i',"\n",$ret);
    3417. 

  3417. 	return $ret;
    3418. 

  3418. }
    3419. 

  3419. 

  3420. /**
    3421. 

  3421.  *	This function remove all ending \n and br at end
    3422. 

  3422.  *
    3423. 

  3423.  *	@param	string	$stringtodecode		String to decode
    3424. 

  3424.  *	@return	string						String decoded
    3425. 

  3425.  */
    3426. 

  3426. function dol_htmlcleanlastbr($stringtodecode)
    3427. 

  3427. {
    3428. 

  3428. 	$ret=preg_replace('/(<br>|<br(\s[\sa-zA-Z_="]*)?\/?>|'."\n".'|'."\r".')+$/i',"",$stringtodecode);
    3429. 

  3429. 	return $ret;
    3430. 

  3430. }
    3431. 

  3431. 

  3432. /**
    3433. 

  3433.  * Replace html_entity_decode functions to manage errors
    3434. 

  3434.  *
    3435. 

  3435.  * @param   string	$a		Operand a
    3436. 

  3436.  * @param   string	$b		Operand b
    3437. 

  3437.  * @param   string	$c		Operand c
    3438. 

  3438.  * @return  string			String decoded
    3439. 

  3439.  */
    3440. 

  3440. function dol_html_entity_decode($a,$b,$c='UTF-8')
    3441. 

  3441. {
    3442. 

  3442. 	// We use @ to avoid warning on PHP4 that does not support entity decoding to UTF8;
    3443. 

  3443. 	$ret=@html_entity_decode($a,$b,$c);
    3444. 

  3444. 	return $ret;
    3445. 

  3445. }
    3446. 

  3446. 

  3447. /**
    3448. 

  3448.  * Replace htmlentities functions to manage errors
    3449. 

  3449.  *
    3450. 

  3450.  * @param   string	$a		Operand a
    3451. 

  3451.  * @param   string	$b		Operand b
    3452. 

  3452.  * @param   string	$c		Operand c
    3453. 

  3453.  * @return  string      	String encoded
    3454. 

  3454.  */
    3455. 

  3455. function dol_htmlentities($a,$b,$c='UTF-8')
    3456. 

  3456. {
    3457. 

  3457. 	// We use @ to avoid warning on PHP4 that does not support entity decoding to UTF8;
    3458. 

  3458. 	$ret=@htmlentities($a,$b,$c);
    3459. 

  3459. 	return $ret;
    3460. 

  3460. }
    3461. 

  3461. 

  3462. 

  3463. /**
    3464. 

  3464.  *	Check if a string is a correct iso string
    3465. 

  3465.  *	If not, it will we considered not HTML encoded even if it is by FPDF.
    3466. 

  3466.  *	Example, if string contains euro symbol that has ascii code 128
    3467. 

  3467.  *
    3468. 

  3468.  *	@param	string	$s      String to check
    3469. 

  3469.  *	@return	int     		0 if bad iso, 1 if good iso
    3470. 

  3470.  */
    3471. 

  3471. function dol_string_is_good_iso($s)
    3472. 

  3472. {
    3473. 

  3473. 	$len=dol_strlen($s);
    3474. 

  3474. 	$ok=1;
    3475. 

  3475. 	for($scursor=0;$scursor<$len;$scursor++)
    3476. 

  3476. 	{
    3477. 

  3477. 		$ordchar=ord($s{$scursor});
    3478. 

  3478. 		//print $scursor.'-'.$ordchar.'<br>';
    3479. 

  3479. 		if ($ordchar < 32 && $ordchar != 13 && $ordchar != 10) { $ok=0; break; }
    3480. 

  3480. 		if ($ordchar > 126 && $ordchar < 160) { $ok=0; break; }
    3481. 

  3481. 	}
    3482. 

  3482. 	return $ok;
    3483. 

  3483. }
    3484. 

  3484. 

  3485. 

  3486. /**
    3487. 

  3487.  *	Return nb of lines of a clear text
    3488. 

  3488.  *
    3489. 

  3489.  *	@param	string	$s			String to check
    3490. 

  3490.  * 	@param	string	$maxchar	Not yet used
    3491. 

  3491.  *	@return	int					Number of lines
    3492. 

  3492.  */
    3493. 

  3493. function dol_nboflines($s,$maxchar=0)
    3494. 

  3494. {
    3495. 

  3495. 	if ($s == '') return 0;
    3496. 

  3496. 	$arraystring=explode("\n",$s);
    3497. 

  3497. 	$nb=count($arraystring);
    3498. 

  3498. 

  3499. 	return $nb;
    3500. 

  3500. }
    3501. 

  3501. 

  3502. 

  3503. /**
    3504. 

  3504.  *	Return nb of lines of a formated text with \n and <br> (we can't have both \n and br)
    3505. 

  3505.  *
    3506. 

  3506.  *	@param	string	$text      		Text
    3507. 

  3507.  *	@param	int		$maxlinesize  	Largeur de ligne en caracteres (ou 0 si pas de limite - defaut)
    3508. 

  3508.  * 	@param	string	$charset		Give the charset used to encode the $text variable in memory.
    3509. 

  3509.  *	@return int						Number of lines
    3510. 

  3510.  */
    3511. 

  3511. function dol_nboflines_bis($text,$maxlinesize=0,$charset='UTF-8')
    3512. 

  3512. {
    3513. 

  3513. 	$repTable = array("\t" => " ", "\n" => "<br>", "\r" => " ", "\0" => " ", "\x0B" => " ");
    3514. 

  3514. 	if (dol_textishtml($text)) $repTable = array("\t" => " ", "\n" => " ", "\r" => " ", "\0" => " ", "\x0B" => " ");
    3515. 

  3515. 

  3516. 	$text = strtr($text, $repTable);
    3517. 

  3517. 	if ($charset == 'UTF-8') { $pattern = '/(<br[^>]*>)/Uu'; }	// /U is to have UNGREEDY regex to limit to one html tag. /u is for UTF8 support
    3518. 

  3518. 	else $pattern = '/(<br[^>]*>)/U';							// /U is to have UNGREEDY regex to limit to one html tag.
    3519. 

  3519. 	$a = preg_split($pattern, $text, -1, PREG_SPLIT_DELIM_CAPTURE | PREG_SPLIT_NO_EMPTY);
    3520. 

  3520. 

  3521. 	$nblines = floor((count($a)+1)/2);
    3522. 

  3522. 	// count possible auto line breaks
    3523. 

  3523. 	if($maxlinesize)
    3524. 

  3524. 	{
    3525. 

  3525. 		foreach ($a as $line)
    3526. 

  3526. 		{
    3527. 

  3527. 			if (dol_strlen($line)>$maxlinesize)
    3528. 

  3528. 			{
    3529. 

  3529. 				//$line_dec = html_entity_decode(strip_tags($line));
    3530. 

  3530. 				$line_dec = html_entity_decode($line);
    3531. 

  3531. 				if(dol_strlen($line_dec)>$maxlinesize)
    3532. 

  3532. 				{
    3533. 

  3533. 					$line_dec=wordwrap($line_dec,$maxlinesize,'\n',true);
    3534. 

  3534. 					$nblines+=substr_count($line_dec,'\n');
    3535. 

  3535. 				}
    3536. 

  3536. 			}
    3537. 

  3537. 		}
    3538. 

  3538. 	}
    3539. 

  3539. 	return $nblines;
    3540. 

  3540. }
    3541. 

  3541. 

  3542. /**
    3543. 

  3543.  *	 Same function than microtime in PHP 5 but compatible with PHP4
    3544. 

  3544.  *
    3545. 

  3545.  *	 @return		float		Time (millisecondes) with microsecondes in decimal part
    3546. 

  3546.  */
    3547. 

  3547. function dol_microtime_float()
    3548. 

  3548. {
    3549. 

  3549. 	list($usec, $sec) = explode(" ", microtime());
    3550. 

  3550. 	return ((float) $usec + (float) $sec);
    3551. 

  3551. }
    3552. 

  3552. 

  3553. /**
    3554. 

  3554.  *	Return if a text is a html content
    3555. 

  3555.  *
    3556. 

  3556.  *	@param	string	$msg		Content to check
    3557. 

  3557.  *	@param	int		$option		0=Full detection, 1=Fast check
    3558. 

  3558.  *	@return	boolean				true/false
    3559. 

  3559.  *	@see	dol_concatdesc
    3560. 

  3560.  */
    3561. 

  3561. function dol_textishtml($msg,$option=0)
    3562. 

  3562. {
    3563. 

  3563. 	if ($option == 1)
    3564. 

  3564. 	{
    3565. 

  3565. 		if (preg_match('/<html/i',$msg))				return true;
    3566. 

  3566. 		elseif (preg_match('/<body/i',$msg))			return true;
    3567. 

  3567. 		elseif (preg_match('/<br/i',$msg))				return true;
    3568. 

  3568. 		return false;
    3569. 

  3569. 	}
    3570. 

  3570. 	else
    3571. 

  3571. 	{
    3572. 

  3572. 		if (preg_match('/<html/i',$msg))				return true;
    3573. 

  3573. 		elseif (preg_match('/<body/i',$msg))			return true;
    3574. 

  3574. 		elseif (preg_match('/<b>/i',$msg))				return true;
    3575. 

  3575. 		elseif (preg_match('/<br/i',$msg))				return true;
    3576. 

  3576. 		elseif (preg_match('/<div/i',$msg))				return true;
    3577. 

  3577. 		elseif (preg_match('/<em>/i',$msg))				return true;
    3578. 

  3578. 		elseif (preg_match('/<font/i',$msg))			return true;
    3579. 

  3579. 		elseif (preg_match('/<img/i',$msg))				return true;
    3580. 

  3580. 		elseif (preg_match('/<i>/i',$msg))				return true;
    3581. 

  3581. 		elseif (preg_match('/<li/i',$msg))				return true;
    3582. 

  3582. 		elseif (preg_match('/<span/i',$msg))			return true;
    3583. 

  3583. 		elseif (preg_match('/<strong/i',$msg))			return true;
    3584. 

  3584. 		elseif (preg_match('/<table/i',$msg))			return true;
    3585. 

  3585. 		elseif (preg_match('/&[A-Z0-9]{1,6};/i',$msg))	return true;    // Html entities names (http://www.w3schools.com/tags/ref_entities.asp)
    3586. 

  3586. 		elseif (preg_match('/&#[0-9]{2,3};/i',$msg))	return true;    // Html entities numbers (http://www.w3schools.com/tags/ref_entities.asp)
    3587. 

  3587. 		return false;
    3588. 

  3588. 	}
    3589. 

  3589. }
    3590. 

  3590. 

  3591. /**
    3592. 

  3592.  *  Concat 2 descriptions (second one after first one)
    3593. 

  3593.  *  text1 html + text2 html => text1 + '<br>' + text2
    3594. 

  3594.  *  text1 html + text2 txt  => text1 + '<br>' + dol_nl2br(text2)
    3595. 

  3595.  *  text1 txt  + text2 html => dol_nl2br(text1) + '<br>' + text2
    3596. 

  3596.  *  text1 txt  + text2 txt  => text1 + '\n' + text2
    3597. 

  3597.  *
    3598. 

  3598.  *  @param	string	$text1		Text 1
    3599. 

  3599.  *  @param	string	$text2		Text 2
    3600. 

  3600.  *  @param  string	$forxml     false=Use <br>, true=Use <br />
    3601. 

  3601.  *  @return	string				Text 1 + new line + Text2
    3602. 

  3602.  *  @see    dol_textishtml
    3603. 

  3603.  */
    3604. 

  3604. function dol_concatdesc($text1,$text2,$forxml=false)
    3605. 

  3605. {
    3606. 

  3606. 	$ret='';
    3607. 

  3607. 	$ret.= (! dol_textishtml($text1) && dol_textishtml($text2))?dol_nl2br($text1, 0, $forxml):$text1;
    3608. 

  3608. 	$ret.= (! empty($text1) && ! empty($text2)) ? ((dol_textishtml($text1) || dol_textishtml($text2))?($forxml?"<br \>\n":"<br>\n") : "\n") : "";
    3609. 

  3609. 	$ret.= (dol_textishtml($text1) && ! dol_textishtml($text2))?dol_nl2br($text2, 0, $forxml):$text2;
    3610. 

  3610. 	return $ret;
    3611. 

  3611. }
    3612. 

  3612. 

  3613. /**
    3614. 

  3614.  *  Make substition into a string
    3615. 

  3615.  *  There is two type of substitions:
    3616. 

  3616.  * 	- From $substitutionarray (oldval=>newval)
    3617. 

  3617.  * 	- From special constants (__XXX__=>f(objet->xxx)) by substitutions modules
    3618. 

  3618.  *
    3619. 

  3619.  *  @param	string	$chaine      			Source string in which we must do substitution
    3620. 

  3620.  *  @param  array	$substitutionarray		Array with key->val to substitute
    3621. 

  3621.  * 	@return string  		    			Output string after subsitutions
    3622. 

  3622.  *  @see	complete_substitutions_array
    3623. 

  3623.  */
    3624. 

  3624. function make_substitutions($chaine,$substitutionarray)
    3625. 

  3625. {
    3626. 

  3626. 	global $conf;
    3627. 

  3627. 

  3628. 	if (! is_array($substitutionarray)) return 'ErrorBadParameterSubstitutionArrayWhenCalling_make_substitutions';
    3629. 

  3629. 

  3630. 	// Make substitition
    3631. 

  3631. 	foreach ($substitutionarray as $key => $value)
    3632. 

  3632. 	{
    3633. 

  3633. 		if ($key == '__SIGNATURE__' && (! empty($conf->global->MAIN_MAIL_DO_NOT_USE_SIGN))) $value='';
    3634. 

  3634. 		$chaine=str_replace("$key","$value",$chaine);	// We must keep the " to work when value is 123.5 for example
    3635. 

  3635. 	}
    3636. 

  3636. 

  3637. 	return $chaine;
    3638. 

  3638. }
    3639. 

  3639. 

  3640. /**
    3641. 

  3641.  *  Complete the $substitutionarray with more entries
    3642. 

  3642.  *
    3643. 

  3643.  *  @param  array		&$substitutionarray		Array substitution old value => new value value
    3644. 

  3644.  *  @param  Translate	$outputlangs            If we want substitution from special constants, we provide a language
    3645. 

  3645.  *  @param  Object		$object                 If we want substitution from special constants, we provide data in a source object
    3646. 

  3646.  *  @param  Object/array  $parameters       Add more parameters (useful to pass product lines)
    3647. 

  3647.  *  @param  string              $callfunc               What is the name of the custom function that will be called? (default: completesubstitutionarray)
    3648. 

  3648.  *  @return	void
    3649. 

  3649.  *  @see 	make_substitutions
    3650. 

  3650.  */
    3651. 

  3651. function complete_substitutions_array(&$substitutionarray,$outputlangs,$object='',$parameters=null,$callfunc="completesubstitutionarray")
    3652. 

  3652. {
    3653. 

  3653. 	global $conf,$user;
    3654. 

  3654. 

  3655. 	require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
    3656. 

  3656. 

  3657. 	// Check if there is external substitution to do asked by plugins
    3658. 

  3658. 	$dirsubstitutions=array_merge(array(),(array) $conf->modules_parts['substitutions']);
    3659. 

  3659. 

  3660. 	foreach($dirsubstitutions as $reldir)
    3661. 

  3661. 	{
    3662. 

  3662. 		$dir=dol_buildpath($reldir,0);
    3663. 

  3663. 

  3664. 		// Check if directory exists
    3665. 

  3665. 		if (! dol_is_dir($dir)) continue;
    3666. 

  3666. 

  3667. 		$substitfiles=dol_dir_list($dir,'files',0,'functions_');
    3668. 

  3668. 		foreach($substitfiles as $substitfile)
    3669. 

  3669. 		{
    3670. 

  3670. 			if (preg_match('/functions_(.*)\.lib\.php/i',$substitfile['name'],$reg))
    3671. 

  3671. 			{
    3672. 

  3672. 				$module=$reg[1];
    3673. 

  3673. 

  3674. 				dol_syslog("Library functions_".$substitfile['name']." found into ".$dir);
    3675. 

  3675. 				// Include the user's functions file
    3676. 

  3676. 				require_once $dir.$substitfile['name'];
    3677. 

  3677. 				// Call the user's function, and only if it is defined
    3678. 

  3678. 				$function_name=$module."_".$callfunc;
    3679. 

  3679. 				if (function_exists($function_name)) $function_name($substitutionarray,$outputlangs,$object,$parameters);
    3680. 

  3680. 			}
    3681. 

  3681. 		}
    3682. 

  3682. 	}
    3683. 

  3683. }
    3684. 

  3684. 

  3685. /**
    3686. 

  3686.  *    Format output for start and end date
    3687. 

  3687.  *
    3688. 

  3688.  *    @param	timestamp	$date_start    Start date
    3689. 

  3689.  *    @param    timestamp	$date_end      End date
    3690. 

  3690.  *    @param    string		$format        Output format
    3691. 

  3691.  *    @param	Translate	$outputlangs   Output language
    3692. 

  3692.  *    @return	void
    3693. 

  3693.  */
    3694. 

  3694. function print_date_range($date_start,$date_end,$format = '',$outputlangs='')
    3695. 

  3695. {
    3696. 

  3696. 	print get_date_range($date_start,$date_end,$format,$outputlangs);
    3697. 

  3697. }
    3698. 

  3698. 

  3699. /**
    3700. 

  3700.  *    Format output for start and end date
    3701. 

  3701.  *
    3702. 

  3702.  *    @param	timestamp	$date_start    Start date
    3703. 

  3703.  *    @param    timestamp	$date_end      End date
    3704. 

  3704.  *    @param    string		$format        Output format
    3705. 

  3705.  *    @param	Translate	$outputlangs   Output language
    3706. 

  3706.  *    @return	string						String
    3707. 

  3707.  */
    3708. 

  3708. function get_date_range($date_start,$date_end,$format = '',$outputlangs='')
    3709. 

  3709. {
    3710. 

  3710. 	global $langs;
    3711. 

  3711. 

  3712. 	$out='';
    3713. 

  3713. 

  3714. 	if (! is_object($outputlangs)) $outputlangs=$langs;
    3715. 

  3715. 

  3716. 	if ($date_start && $date_end)
    3717. 

  3717. 	{
    3718. 

  3718. 		$out.= ' ('.$outputlangs->trans('DateFromTo',dol_print_date($date_start, $format, false, $outputlangs),dol_print_date($date_end, $format, false, $outputlangs)).')';
    3719. 

  3719. 	}
    3720. 

  3720. 	if ($date_start && ! $date_end)
    3721. 

  3721. 	{
    3722. 

  3722. 		$out.= ' ('.$outputlangs->trans('DateFrom',dol_print_date($date_start, $format, false, $outputlangs)).')';
    3723. 

  3723. 	}
    3724. 

  3724. 	if (! $date_start && $date_end)
    3725. 

  3725. 	{
    3726. 

  3726. 		$out.= ' ('.$outputlangs->trans('DateUntil',dol_print_date($date_end, $format, false, $outputlangs)).')';
    3727. 

  3727. 	}
    3728. 

  3728. 

  3729. 	return $out;
    3730. 

  3730. }
    3731. 

  3731. 

  3732. /**
    3733. 

  3733.  * Return firstname and lastname in correct order
    3734. 

  3734.  *
    3735. 

  3735.  * @param	string	$firstname		Firstname
    3736. 

  3736.  * @param	string	$lastname		Lastname
    3737. 

  3737.  * @param	int		$nameorder		-1=Auto, 0=Lastname+Firstname, 1=Firstname+Lastname
    3738. 

  3738.  * @return	string					Firstname + lastname or Lastname + firstname
    3739. 

  3739.  */
    3740. 

  3740. function dolGetFirstLastname($firstname,$lastname,$nameorder=-1)
    3741. 

  3741. {
    3742. 

  3742. 	global $conf;
    3743. 

  3743. 

  3744. 	$ret='';
    3745. 

  3745. 	// If order not defined, we use the setup
    3746. 

  3746. 	if ($nameorder < 0) $nameorder=(empty($conf->global->MAIN_FIRSTNAME_NAME_POSITION));
    3747. 

  3747. 	if ($nameorder)
    3748. 

  3748. 	{
    3749. 

  3749. 		$ret.=$firstname;
    3750. 

  3750. 		if ($firstname && $lastname) $ret.=' ';
    3751. 

  3751. 		$ret.=$lastname;
    3752. 

  3752. 	}
    3753. 

  3753. 	else
    3754. 

  3754. 	{
    3755. 

  3755. 		$ret.=$lastname;
    3756. 

  3756. 		if ($firstname && $lastname) $ret.=' ';
    3757. 

  3757. 		$ret.=$firstname;
    3758. 

  3758. 	}
    3759. 

  3759. 	return $ret;
    3760. 

  3760. }
    3761. 

  3761. 

  3762. 

  3763. /**
    3764. 

  3764.  *	Set event message in dol_events session
    3765. 

  3765.  *
    3766. 

  3766.  *	@param	mixed	$mesgs			Message string or array
    3767. 

  3767.  *  @param  string	$style      	Which style to use ('mesgs', 'warnings', 'errors')
    3768. 

  3768.  *  @return	void
    3769. 

  3769.  *  @see	dol_htmloutput_events
    3770. 

  3770.  */
    3771. 

  3771. function setEventMessage($mesgs, $style='mesgs')
    3772. 

  3772. {
    3773. 

  3773. 	if (! in_array((string) $style, array('mesgs','warnings','errors'))) dol_print_error('','Bad parameter for setEventMessage');
    3774. 

  3774. 	if (! is_array($mesgs))		// If mesgs is a string
    3775. 

  3775. 	{
    3776. 

  3776. 		if ($mesgs) $_SESSION['dol_events'][$style][] = $mesgs;
    3777. 

  3777. 	}
    3778. 

  3778. 	else						// If mesgs is an array
    3779. 

  3779. 	{
    3780. 

  3780. 		foreach($mesgs as $mesg)
    3781. 

  3781. 		{
    3782. 

  3782. 			if ($mesg) $_SESSION['dol_events'][$style][] = $mesg;
    3783. 

  3783. 		}
    3784. 

  3784. 	}
    3785. 

  3785. }
    3786. 

  3786. 

  3787. /**
    3788. 

  3788.  *	Print formated messages to output (Used to show messages on html output).
    3789. 

  3789.  *
    3790. 

  3790.  *  @return	void
    3791. 

  3791.  *  @see    dol_htmloutput_mesg
    3792. 

  3792.  */
    3793. 

  3793. function dol_htmloutput_events()
    3794. 

  3794. {
    3795. 

  3795. 	// Show mesgs
    3796. 

  3796. 	if (isset($_SESSION['dol_events']['mesgs'])) {
    3797. 

  3797. 		dol_htmloutput_mesg('', $_SESSION['dol_events']['mesgs']);
    3798. 

  3798. 		unset($_SESSION['dol_events']['mesgs']);
    3799. 

  3799. 	}
    3800. 

  3800. 

  3801. 	// Show errors
    3802. 

  3802. 	if (isset($_SESSION['dol_events']['errors'])) {
    3803. 

  3803. 		dol_htmloutput_mesg('', $_SESSION['dol_events']['errors'], 'error');
    3804. 

  3804. 		unset($_SESSION['dol_events']['errors']);
    3805. 

  3805. 	}
    3806. 

  3806. 

  3807. 	// Show warnings
    3808. 

  3808. 	if (isset($_SESSION['dol_events']['warnings'])) {
    3809. 

  3809. 		dol_htmloutput_mesg('', $_SESSION['dol_events']['warnings'], 'warning');
    3810. 

  3810. 		unset($_SESSION['dol_events']['warnings']);
    3811. 

  3811. 	}
    3812. 

  3812. }
    3813. 

  3813. 

  3814. /**
    3815. 

  3815.  *	Get formated messages to output (Used to show messages on html output).
    3816. 

  3816.  *
    3817. 

  3817.  *	@param	string		$mesgstring		Message string
    3818. 

  3818.  *	@param	array		$mesgarray      Messages array
    3819. 

  3819.  *  @param  string		$style          Style of message output ('ok' or 'error')
    3820. 

  3820.  *  @param  int			$keepembedded   Set to 1 in error message must be kept embedded into its html place (this disable jnotify)
    3821. 

  3821.  *	@return	string						Return html output
    3822. 

  3822.  *
    3823. 

  3823.  *  @see    dol_print_error
    3824. 

  3824.  *  @see    dol_htmloutput_errors
    3825. 

  3825.  */
    3826. 

  3826. function get_htmloutput_mesg($mesgstring='',$mesgarray='', $style='ok', $keepembedded=0)
    3827. 

  3827. {
    3828. 

  3828. 	global $conf, $langs;
    3829. 

  3829. 

  3830. 	$ret='';
    3831. 

  3831. 	$out='';
    3832. 

  3832. 	$divstart=$divend='';
    3833. 

  3833. 

  3834. 	// If inline message with no format, we add it.
    3835. 

  3835. 	if ((empty($conf->use_javascript_ajax) || ! empty($conf->global->MAIN_DISABLE_JQUERY_JNOTIFY) || $keepembedded) && ! preg_match('/<div class=".*">/i',$out))
    3836. 

  3836. 	{
    3837. 

  3837. 		$divstart='<div class="'.$style.'">';
    3838. 

  3838. 		$divend='</div>';
    3839. 

  3839. 	}
    3840. 

  3840. 

  3841. 	if ((is_array($mesgarray) && count($mesgarray)) || $mesgstring)
    3842. 

  3842. 	{
    3843. 

  3843. 		$langs->load("errors");
    3844. 

  3844. 		$out.=$divstart;
    3845. 

  3845. 		if (is_array($mesgarray) && count($mesgarray))
    3846. 

  3846. 		{
    3847. 

  3847. 			foreach($mesgarray as $message)
    3848. 

  3848. 			{
    3849. 

  3849. 				$ret++;
    3850. 

  3850. 				$out.= $langs->trans($message);
    3851. 

  3851. 				if ($ret < count($mesgarray)) $out.= "<br>\n";
    3852. 

  3852. 			}
    3853. 

  3853. 		}
    3854. 

  3854. 		if ($mesgstring)
    3855. 

  3855. 		{
    3856. 

  3856. 			$langs->load("errors");
    3857. 

  3857. 			$ret++;
    3858. 

  3858. 			$out.= $langs->trans($mesgstring);
    3859. 

  3859. 		}
    3860. 

  3860. 		$out.=$divend;
    3861. 

  3861. 	}
    3862. 

  3862. 

  3863. 	if ($out)
    3864. 

  3864. 	{
    3865. 

  3865. 		if (! empty($conf->use_javascript_ajax) && empty($conf->global->MAIN_DISABLE_JQUERY_JNOTIFY) && empty($keepembedded))
    3866. 

  3866. 		{
    3867. 

  3867. 			$return = '<script type="text/javascript">
    3868. 

  3868. 					$(document).ready(function() {
    3869. 

  3869. 						var block = '.(! empty($conf->global->MAIN_USE_JQUERY_BLOCKUI)?"true":"false").'
    3870. 

  3870. 						if (block) {
    3871. 

  3871. 							$.dolEventValid("","'.dol_escape_js($out).'");
    3872. 

  3872. 						} else {
    3873. 

  3873. 							$.jnotify("'.dol_escape_js($out).'",
    3874. 

  3874. 							"'.($style=="ok" ? 3000 : $style).'",
    3875. 

  3875. 							'.($style=="ok" ? "false" : "true").',
    3876. 

  3876. 							{ remove: function (){} } );
    3877. 

  3877. 						}
    3878. 

  3878. 					});
    3879. 

  3879. 				</script>';
    3880. 

  3880. 		}
    3881. 

  3881. 		else
    3882. 

  3882. 		{
    3883. 

  3883. 			$return = $out;
    3884. 

  3884. 		}
    3885. 

  3885. 	}
    3886. 

  3886. 

  3887. 	return $return;
    3888. 

  3888. }
    3889. 

  3889. 

  3890. /**
    3891. 

  3891.  *  Get formated error messages to output (Used to show messages on html output).
    3892. 

  3892.  *
    3893. 

  3893.  *  @param	string	$mesgstring         Error message
    3894. 

  3894.  *  @param  array	$mesgarray          Error messages array
    3895. 

  3895.  *  @param  int		$keepembedded       Set to 1 in error message must be kept embedded into its html place (this disable jnotify)
    3896. 

  3896.  *  @return string                		Return html output
    3897. 

  3897.  *
    3898. 

  3898.  *  @see    dol_print_error
    3899. 

  3899.  *  @see    dol_htmloutput_mesg
    3900. 

  3900.  */
    3901. 

  3901. function get_htmloutput_errors($mesgstring='', $mesgarray='', $keepembedded=0)
    3902. 

  3902. {
    3903. 

  3903. 	return get_htmloutput_mesg($mesgstring, $mesgarray,'error',$keepembedded);
    3904. 

  3904. }
    3905. 

  3905. 

  3906. /**
    3907. 

  3907.  *	Print formated messages to output (Used to show messages on html output).
    3908. 

  3908.  *
    3909. 

  3909.  *	@param	string	$mesgstring		 Message
    3910. 

  3910.  *	@param	array	$mesgarray       Messages array
    3911. 

  3911.  *  @param  string	$style           Which style to use ('ok', 'warning', 'error')
    3912. 

  3912.  *  @param  int		$keepembedded    Set to 1 if message must be kept embedded into its html place (this disable jnotify)
    3913. 

  3913.  *  @return	void
    3914. 

  3914.  *
    3915. 

  3915.  *  @see    dol_print_error
    3916. 

  3916.  *  @see    dol_htmloutput_errors
    3917. 

  3917.  */
    3918. 

  3918. function dol_htmloutput_mesg($mesgstring='',$mesgarray='', $style='ok', $keepembedded=0)
    3919. 

  3919. {
    3920. 

  3920. 	if (empty($mesgstring) && (! is_array($mesgarray) || count($mesgarray) == 0)) return;
    3921. 

  3921. 

  3922. 	$iserror=0;
    3923. 

  3923. 	$iswarning=0;
    3924. 

  3924. 	if (is_array($mesgarray))
    3925. 

  3925. 	{
    3926. 

  3926. 		foreach($mesgarray as $val)
    3927. 

  3927. 		{
    3928. 

  3928. 			if ($val && preg_match('/class="error"/i',$val)) { $iserror++; break; }
    3929. 

  3929. 			if ($val && preg_match('/class="warning"/i',$val)) { $iswarning++; break; }
    3930. 

  3930. 		}
    3931. 

  3931. 	}
    3932. 

  3932. 	else if ($mesgstring && preg_match('/class="error"/i',$mesgstring)) $iserror++;
    3933. 

  3933. 	else if ($mesgstring && preg_match('/class="warning"/i',$mesgstring)) $iswarning++;
    3934. 

  3934. 	if ($style=='error') $iserror++;
    3935. 

  3935. 	if ($style=='warning') $iswarning++;
    3936. 

  3936. 

  3937. 	if ($iserror || $iswarning)
    3938. 

  3938. 	{
    3939. 

  3939. 		// Remove div from texts
    3940. 

  3940. 		$mesgstring=preg_replace('/<\/div><div class="(error|warning)">/','<br>',$mesgstring);
    3941. 

  3941. 		$mesgstring=preg_replace('/<div class="(error|warning)">/','',$mesgstring);
    3942. 

  3942. 		$mesgstring=preg_replace('/<\/div>/','',$mesgstring);
    3943. 

  3943. 		// Remove div from texts array
    3944. 

  3944. 		if (is_array($mesgarray))
    3945. 

  3945. 		{
    3946. 

  3946. 			$newmesgarray=array();
    3947. 

  3947. 			foreach($mesgarray as $val)
    3948. 

  3948. 			{
    3949. 

  3949. 				$tmpmesgstring=preg_replace('/<\/div><div class="(error|warning)">/','<br>',$val);
    3950. 

  3950. 				$tmpmesgstring=preg_replace('/<div class="(error|warning)">/','',$tmpmesgstring);
    3951. 

  3951. 				$tmpmesgstring=preg_replace('/<\/div>/','',$tmpmesgstring);
    3952. 

  3952. 				$newmesgarray[]=$tmpmesgstring;
    3953. 

  3953. 			}
    3954. 

  3954. 			$mesgarray=$newmesgarray;
    3955. 

  3955. 		}
    3956. 

  3956. 		print get_htmloutput_mesg($mesgstring,$mesgarray,($iserror?'error':'warning'),$keepembedded);
    3957. 

  3957. 	}
    3958. 

  3958. 	else print get_htmloutput_mesg($mesgstring,$mesgarray,'ok',$keepembedded);
    3959. 

  3959. }
    3960. 

  3960. 

  3961. /**
    3962. 

  3962.  *  Print formated error messages to output (Used to show messages on html output).
    3963. 

  3963.  *
    3964. 

  3964.  *  @param	string	$mesgstring          Error message
    3965. 

  3965.  *  @param  array	$mesgarray           Error messages array
    3966. 

  3966.  *  @param  int		$keepembedded        Set to 1 in error message must be kept embedded into its html place (this disable jnotify)
    3967. 

  3967.  *  @return	void
    3968. 

  3968.  *
    3969. 

  3969.  *  @see    dol_print_error
    3970. 

  3970.  *  @see    dol_htmloutput_mesg
    3971. 

  3971.  */
    3972. 

  3972. function dol_htmloutput_errors($mesgstring='', $mesgarray='', $keepembedded=0)
    3973. 

  3973. {
    3974. 

  3974. 	dol_htmloutput_mesg($mesgstring, $mesgarray, 'error', $keepembedded);
    3975. 

  3975. }
    3976. 

  3976. 

  3977. /**
    3978. 

  3978.  * 	Advanced sort array by second index function, which produces ascending (default)
    3979. 

  3979.  *  or descending output and uses optionally natural case insensitive sorting (which
    3980. 

  3980.  *  can be optionally case sensitive as well).
    3981. 

  3981.  *
    3982. 

  3982.  *  @param      array		&$array      		Array to sort (array of array('key','otherkey1','otherkey2'...))
    3983. 

  3983.  *  @param      string		$index				Key in array to use for sorting criteria
    3984. 

  3984.  *  @param      int			$order				Sort order
    3985. 

  3985.  *  @param      int			$natsort			1=use "natural" sort (natsort), 0=use "standard sort (asort)
    3986. 

  3986.  *  @param      int			$case_sensitive		1=sort is case sensitive, 0=not case sensitive
    3987. 

  3987.  *  @return     array							Sorted array
    3988. 

  3988.  */
    3989. 

  3989. function dol_sort_array(&$array, $index, $order='asc', $natsort=0, $case_sensitive=0)
    3990. 

  3990. {
    3991. 

  3991. 	// Clean parameters
    3992. 

  3992. 	$order=strtolower($order);
    3993. 

  3993. 

  3994. 	$sizearray=count($array);
    3995. 

  3995. 	if (is_array($array) && $sizearray>0)
    3996. 

  3996. 	{
    3997. 

  3997. 		foreach(array_keys($array) as $key) $temp[$key]=$array[$key][$index];
    3998. 

  3998. 		if (!$natsort) ($order=='asc') ? asort($temp) : arsort($temp);
    3999. 

  3999. 		else
    4000. 

  4000. 		{
    4001. 

  4001. 			($case_sensitive) ? natsort($temp) : natcasesort($temp);
    4002. 

  4002. 			if($order!='asc') $temp=array_reverse($temp,TRUE);
    4003. 

  4003. 		}
    4004. 

  4004. 		foreach(array_keys($temp) as $key) (is_numeric($key))? $sorted[]=$array[$key] : $sorted[$key]=$array[$key];
    4005. 

  4005. 		return $sorted;
    4006. 

  4006. 	}
    4007. 

  4007. 	return $array;
    4008. 

  4008. }
    4009. 

  4009. 

  4010. 

  4011. /**
    4012. 

  4012.  *      Check if a string is in UTF8
    4013. 

  4013.  *
    4014. 

  4014.  *      @param	string	$str        String to check
    4015. 

  4015.  * 		@return	boolean				True if string is UTF8 or ISO compatible with UTF8, False if not (ISO with special char or Binary)
    4016. 

  4016.  */
    4017. 

  4017. function utf8_check($str)
    4018. 

  4018. {
    4019. 

  4019. 	// We must use here a binary strlen function (so not dol_strlen)
    4020. 

  4020. 	$strLength = dol_strlen($str);
    4021. 

  4021. 	for ($i=0; $i<$strLength; $i++)
    4022. 

  4022. 	{
    4023. 

  4023. 		if (ord($str[$i]) < 0x80) continue; // 0bbbbbbb
    4024. 

  4024. 		elseif ((ord($str[$i]) & 0xE0) == 0xC0) $n=1; // 110bbbbb
    4025. 

  4025. 		elseif ((ord($str[$i]) & 0xF0) == 0xE0) $n=2; // 1110bbbb
    4026. 

  4026. 		elseif ((ord($str[$i]) & 0xF8) == 0xF0) $n=3; // 11110bbb
    4027. 

  4027. 		elseif ((ord($str[$i]) & 0xFC) == 0xF8) $n=4; // 111110bb
    4028. 

  4028. 		elseif ((ord($str[$i]) & 0xFE) == 0xFC) $n=5; // 1111110b
    4029. 

  4029. 		else return false; // Does not match any model
    4030. 

  4030. 		for ($j=0; $j<$n; $j++) { // n bytes matching 10bbbbbb follow ?
    4031. 

  4031. 			if ((++$i == strlen($str)) || ((ord($str[$i]) & 0xC0) != 0x80))
    4032. 

  4032. 			return false;
    4033. 

  4033. 		}
    4034. 

  4034. 	}
    4035. 

  4035. 	return true;
    4036. 

  4036. }
    4037. 

  4037. 

  4038. 

  4039. /**
    4040. 

  4040.  *      Return an UTF-8 string encoded into OS filesystem encoding. This function is used to define
    4041. 

  4041.  * 	    value to pass to filesystem PHP functions.
    4042. 

  4042.  *
    4043. 

  4043.  *      @param	string	$str        String to encode (UTF-8)
    4044. 

  4044.  * 		@return	string				Encoded string (UTF-8, ISO-8859-1)
    4045. 

  4045.  */
    4046. 

  4046. function dol_osencode($str)
    4047. 

  4047. {
    4048. 

  4048. 	global $conf;
    4049. 

  4049. 

  4050. 	$tmp=ini_get("unicode.filesystem_encoding");						// Disponible avec PHP 6.0
    4051. 

  4051. 	if (empty($tmp) && ! empty($_SERVER["WINDIR"])) $tmp='iso-8859-1';	// By default for windows
    4052. 

  4052. 	if (empty($tmp)) $tmp='utf-8';										// By default for other
    4053. 

  4053. 	if (! empty($conf->global->MAIN_FILESYSTEM_ENCODING)) $tmp=$conf->global->MAIN_FILESYSTEM_ENCODING;
    4054. 

  4054. 

  4055. 	if ($tmp == 'iso-8859-1') return utf8_decode($str);
    4056. 

  4056. 	return $str;
    4057. 

  4057. }
    4058. 

  4058. 

  4059. 

  4060. /**
    4061. 

  4061.  *      Return an id or code from a code or id. Store Code-Id in a cache.
    4062. 

  4062.  *
    4063. 

  4063.  * 		@param	DoliDB	$db			Database handler
    4064. 

  4064.  * 		@param	string	$key		Code to get Id
    4065. 

  4065.  * 		@param	string	$tablename	Table name without prefix
    4066. 

  4066.  * 		@param	string	$fieldkey	Field for code
    4067. 

  4067.  * 		@param	string	$fieldid	Field for id
    4068. 

  4068.  *      @return int					Id of code
    4069. 

  4069.  */
    4070. 

  4070. function dol_getIdFromCode($db,$key,$tablename,$fieldkey='code',$fieldid='id')
    4071. 

  4071. {
    4072. 

  4072. 	global $cache_codes;
    4073. 

  4073. 

  4074. 	// If key empty
    4075. 

  4075. 	if ($key == '') return '';
    4076. 

  4076. 

  4077. 	// Check in cache
    4078. 

  4078. 	if (isset($cache_codes[$tablename][$key]))	// Can be defined to 0 or ''
    4079. 

  4079. 	{
    4080. 

  4080. 		return $cache_codes[$tablename][$key];   // Found in cache
    4081. 

  4081. 	}
    4082. 

  4082. 

  4083. 	$sql = "SELECT ".$fieldid." as id";
    4084. 

  4084. 	$sql.= " FROM ".MAIN_DB_PREFIX.$tablename;
    4085. 

  4085. 	$sql.= " WHERE ".$fieldkey." = '".$key."'";
    4086. 

  4086. 	dol_syslog('dol_getIdFromCode sql='.$sql,LOG_DEBUG);
    4087. 

  4087. 	$resql = $db->query($sql);
    4088. 

  4088. 	if ($resql)
    4089. 

  4089. 	{
    4090. 

  4090. 		$obj = $db->fetch_object($resql);
    4091. 

  4091. 		if ($obj) $cache_codes[$tablename][$key]=$obj->id;
    4092. 

  4092. 		else $cache_codes[$tablename][$key]='';
    4093. 

  4093. 		$db->free($resql);
    4094. 

  4094. 		return $cache_codes[$tablename][$key];
    4095. 

  4095. 	}
    4096. 

  4096. 	else
    4097. 

  4097. 	{
    4098. 

  4098. 		dol_syslog("dol_getIdFromCode error=".$db->lasterror(),LOG_ERR);
    4099. 

  4099. 		return -1;
    4100. 

  4100. 	}
    4101. 

  4101. }
    4102. 

  4102. 

  4103. /**
    4104. 

  4104.  * Verify if condition in string is ok or not
    4105. 

  4105.  *
    4106. 

  4106.  * @param 	string		$strRights		String with condition to check
    4107. 

  4107.  * @return 	boolean						True or False. Return true if strRights is ''
    4108. 

  4108.  */
    4109. 

  4109. function verifCond($strRights)
    4110. 

  4110. {
    4111. 

  4111. 	global $user,$conf,$langs;
    4112. 

  4112. 	global $leftmenu;
    4113. 

  4113. 	global $rights;    // To export to dol_eval function
    4114. 

  4114. 

  4115. 	//print $strRights."<br>\n";
    4116. 

  4116. 	$rights = true;
    4117. 

  4117. 	if ($strRights != '')
    4118. 

  4118. 	{
    4119. 

  4119. 		//$tab_rights = explode('&&', $strRights);
    4120. 

  4120. 		//$i = 0;
    4121. 

  4121. 		//while (($i < count($tab_rights)) && ($rights == true)) {
    4122. 

  4122. 		$str = 'if(!(' . $strRights . ')) { $rights = false; }';
    4123. 

  4123. 		dol_eval($str);
    4124. 

  4124. 		//	$i++;
    4125. 

  4125. 		//}
    4126. 

  4126. 	}
    4127. 

  4127. 	return $rights;
    4128. 

  4128. }
    4129. 

  4129. 

  4130. /**
    4131. 

  4131.  * Replace eval function to add more security.
    4132. 

  4132.  * This function is called by verifCond() or trans() and transnoentitiesnoconv().
    4133. 

  4133.  *
    4134. 

  4134.  * @param 	string	$s				String to evaluate
    4135. 

  4135.  * @param	int		$returnvalue	0=No return (used to execute $a=something). 1=Value of eval is returned (used to eval $something).
    4136. 

  4136.  * @return	mixed					Nothing or return of eval
    4137. 

  4137.  */
    4138. 

  4138. function dol_eval($s,$returnvalue=0)
    4139. 

  4139. {
    4140. 

  4140. 	// Only global variables can be changed by eval function and returned to caller
    4141. 

  4141. 	global $langs, $user, $conf;
    4142. 

  4142. 	global $leftmenu;
    4143. 

  4143. 	global $rights;
    4144. 

  4144. 

  4145. 	//print $s."<br>\n";
    4146. 

  4146. 	if ($returnvalue) return eval('return '.$s.';');
    4147. 

  4147. 	else eval($s);
    4148. 

  4148. }
    4149. 

  4149. 

  4150. /**
    4151. 

  4151. * Return if var element is ok
    4152. 

  4152. *
    4153. 

  4153. * @param   string      $element    Variable to check
    4154. 

  4154. * @return  boolean                 Return true of variable is not empty
    4155. 

  4155. */
    4156. 

  4156. function dol_validElement($element)
    4157. 

  4157. {
    4158. 

  4158. 	return (trim($element) != '');
    4159. 

  4159. }
    4160. 

  4160. 

  4161. /**
    4162. 

  4162.  * 	Return img flag of country for a language code or country code
    4163. 

  4163.  *
    4164. 

  4164.  * 	@param	string	$codelang	Language code (en_IN, fr_CA...) or Country code (IN, FR)
    4165. 

  4165.  * 	@return	string				HTML img string with flag.
    4166. 

  4166.  */
    4167. 

  4167. function picto_from_langcode($codelang)
    4168. 

  4168. {
    4169. 

  4169. 	global $langs;
    4170. 

  4170. 

  4171. 	if ($codelang == 'auto')
    4172. 

  4172. 	{
    4173. 

  4173. 		return img_picto_common($langs->trans('AutoDetectLang'), 'flags/int.png');
    4174. 

  4174. 	}
    4175. 

  4175. 

  4176. 	$langtocountryflag = array(
    4177. 

  4177. 		'ar_AR' => '',
    4178. 

  4178. 		'ca_ES' => 'catalonia',
    4179. 

  4179. 		'da_DA' => 'dk',
    4180. 

  4180. 		'fr_CA' => 'mq',
    4181. 

  4181. 		'sv_SV' => 'se'
    4182. 

  4182. 	);
    4183. 

  4183. 

  4184. 	if (isset($langtocountryflag[$codelang])) $flagImage = $langtocountryflag[$codelang];
    4185. 

  4185. 	else
    4186. 

  4186. 	{
    4187. 

  4187. 		$tmparray = explode('_', $codelang);
    4188. 

  4188. 		$flagImage = empty($tmparray[1]) ? $tmparray[0] : $tmparray[1];
    4189. 

  4189. 	}
    4190. 

  4190. 

  4191. 	return img_picto_common($codelang, 'flags/'.strtolower($flagImage).'.png');
    4192. 

  4192. }
    4193. 

  4193. 

  4194. /**
    4195. 

  4195.  *  Complete or removed entries into a head array (used to build tabs) with value added by external modules.
    4196. 

  4196.  *  Such values are declared into $conf->modules_parts['tab'].
    4197. 

  4197.  *
    4198. 

  4198.  *  @param	Conf		$conf           Object conf
    4199. 

  4199.  *  @param  Translate	$langs          Object langs
    4200. 

  4200.  *  @param  Object		$object         Object object
    4201. 

  4201.  *  @param  array		&$head          Object head
    4202. 

  4202.  *  @param  int			&$h             New position to fill
    4203. 

  4203.  *  @param  string		$type           Value for object where objectvalue can be
    4204. 

  4204.  *                              		'thirdparty'       to add a tab in third party view
    4205. 

  4205.  *		                              	'intervention'     to add a tab in intervention view
    4206. 

  4206.  *     		                         	'supplier_order'   to add a tab in supplier order view
    4207. 

  4207.  *          		                    'supplier_invoice' to add a tab in supplier invoice view
    4208. 

  4208.  *                  		            'invoice'          to add a tab in customer invoice view
    4209. 

  4209.  *                          		    'order'            to add a tab in customer order view
    4210. 

  4210.  *                      		        'product'          to add a tab in product view
    4211. 

  4211.  *                              		'propal'           to add a tab in propal view
    4212. 

  4212.  *                              		'user'             to add a tab in user view
    4213. 

  4213.  *                              		'group'            to add a tab in group view
    4214. 

  4214.  * 		        	                    'member'           to add a tab in fundation member view
    4215. 

  4215.  *      		                        'categories_x'	   to add a tab in category view ('x': type of category (0=product, 1=supplier, 2=customer, 3=member)
    4216. 

  4216.  *  @param  string		$mode  	        'add' to complete head, 'remove' to remove entries
    4217. 

  4217.  *	@return	void
    4218. 

  4218.  */
    4219. 

  4219. function complete_head_from_modules($conf,$langs,$object,&$head,&$h,$type,$mode='add')
    4220. 

  4220. {
    4221. 

  4221. 	if (isset($conf->modules_parts['tabs'][$type]) && is_array($conf->modules_parts['tabs'][$type]))
    4222. 

  4222. 	{
    4223. 

  4223. 		foreach ($conf->modules_parts['tabs'][$type] as $value)
    4224. 

  4224. 		{
    4225. 

  4225. 			$values=explode(':',$value);
    4226. 

  4226. 

  4227. 			if ($mode == 'add' && ! preg_match('/^\-/',$values[1]))
    4228. 

  4228. 			{
    4229. 

  4229. 				if (count($values) == 6)       // new declaration with permissions:  $value='objecttype:+tabname1:Title1:langfile@mymodule:$user->rights->mymodule->read:/mymodule/mynewtab1.php?id=__ID__'
    4230. 

  4230. 				{
    4231. 

  4231. 					if ($values[0] != $type) continue;
    4232. 

  4232. 

  4233. 					if (verifCond($values[4]))
    4234. 

  4234. 					{
    4235. 

  4235. 						if ($values[3]) $langs->load($values[3]);
    4236. 

  4236. 						$head[$h][0] = dol_buildpath(preg_replace('/__ID__/i', ((is_object($object) && ! empty($object->id))?$object->id:''), $values[5]), 1);
    4237. 

  4237. 						$head[$h][1] = $langs->trans($values[2]);
    4238. 

  4238. 						$head[$h][2] = str_replace('+','',$values[1]);
    4239. 

  4239. 						$h++;
    4240. 

  4240. 					}
    4241. 

  4241. 				}
    4242. 

  4242. 				else if (count($values) == 5)       // new declaration
    4243. 

  4243. 				{
    4244. 

  4244. 					if ($values[0] != $type) continue;
    4245. 

  4245. 					if ($values[3]) $langs->load($values[3]);
    4246. 

  4246. 					$head[$h][0] = dol_buildpath(preg_replace('/__ID__/i', ((is_object($object) && ! empty($object->id))?$object->id:''), $values[4]), 1);
    4247. 

  4247. 					$head[$h][1] = $langs->trans($values[2]);
    4248. 

  4248. 					$head[$h][2] = str_replace('+','',$values[1]);
    4249. 

  4249. 					$h++;
    4250. 

  4250. 				}
    4251. 

  4251. 				else if (count($values) == 4)   // old declaration, for backward compatibility
    4252. 

  4252. 				{
    4253. 

  4253. 					if ($values[0] != $type) continue;
    4254. 

  4254. 					if ($values[2]) $langs->load($values[2]);
    4255. 

  4255. 					$head[$h][0] = dol_buildpath(preg_replace('/__ID__/i', ((is_object($object) && ! empty($object->id))?$object->id:''), $values[3]), 1);
    4256. 

  4256. 					$head[$h][1] = $langs->trans($values[1]);
    4257. 

  4257. 					$head[$h][2] = 'tab'.$values[1];
    4258. 

  4258. 					$h++;
    4259. 

  4259. 				}
    4260. 

  4260. 			}
    4261. 

  4261. 			else if ($mode == 'remove' && preg_match('/^\-/',$values[1]))
    4262. 

  4262. 			{
    4263. 

  4263. 				if ($values[0] != $type) continue;
    4264. 

  4264. 				$tabname=str_replace('-','',$values[1]);
    4265. 

  4265. 				foreach($head as $key => $val)
    4266. 

  4266. 				{
    4267. 

  4267. 					$condition = (! empty($values[3]) ? verifCond($values[3]) : 1);
    4268. 

  4268. 					if ($head[$key][2]==$tabname && $condition)
    4269. 

  4269. 					{
    4270. 

  4270. 						unset($head[$key]);
    4271. 

  4271. 						break;
    4272. 

  4272. 					}
    4273. 

  4273. 				}
    4274. 

  4274. 			}
    4275. 

  4275. 		}
    4276. 

  4276. 	}
    4277. 

  4277. }
    4278. 

  4278. 

  4279. /**
    4280. 

  4280.  * Print common footer :
    4281. 

  4281.  * 		conf->global->MAIN_HTML_FOOTER
    4282. 

  4282.  * 		conf->global->MAIN_GOOGLE_AN_ID
    4283. 

  4283.  * 		DOL_TUNING
    4284. 

  4284.  * 		conf->logbuffer
    4285. 

  4285.  *
    4286. 

  4286.  * @param	string	$zone	'private' (for private pages) or 'public' (for public pages)
    4287. 

  4287.  * @return	void
    4288. 

  4288.  */
    4289. 

  4289. function printCommonFooter($zone='private')
    4290. 

  4290. {
    4291. 

  4291. 	global $conf;
    4292. 

  4292. 	global $micro_start_time;
    4293. 

  4293. 

  4294. 	if ($zone == 'private') print "\n".'<!-- Common footer for private page -->'."\n";
    4295. 

  4295. 	else print "\n".'<!-- Common footer for public page -->'."\n";
    4296. 

  4296. 

  4297. 	if (! empty($conf->global->MAIN_HTML_FOOTER)) print $conf->global->MAIN_HTML_FOOTER."\n";
    4298. 

  4298. 

  4299. 	// Google Analytics (need Google module)
    4300. 

  4300. 	if (! empty($conf->global->MAIN_GOOGLE_AN_ID))
    4301. 

  4301. 	{
    4302. 

  4302. 		print "\n";
    4303. 

  4303. 		print '<script type="text/javascript">'."\n";
    4304. 

  4304. 		print '  var _gaq = _gaq || [];'."\n";
    4305. 

  4305. 		print '  _gaq.push([\'_setAccount\', \''.$conf->global->MAIN_GOOGLE_AN_ID.'\']);'."\n";
    4306. 

  4306. 		print '  _gaq.push([\'_trackPageview\']);'."\n";
    4307. 

  4307. 		print ''."\n";
    4308. 

  4308. 		print '  (function() {'."\n";
    4309. 

  4309. 		print '    var ga = document.createElement(\'script\'); ga.type = \'text/javascript\'; ga.async = true;'."\n";
    4310. 

  4310. 		print '    ga.src = (\'https:\' == document.location.protocol ? \'https://ssl\' : \'http://www\') + \'.google-analytics.com/ga.js\';'."\n";
    4311. 

  4311. 		print '    var s = document.getElementsByTagName(\'script\')[0]; s.parentNode.insertBefore(ga, s);'."\n";
    4312. 

  4312. 		print '  })();'."\n";
    4313. 

  4313. 		print '</script>'."\n";
    4314. 

  4314. 	}
    4315. 

  4315. 

  4316. 	// End of tuning
    4317. 

  4317. 	if (! empty($_SERVER['DOL_TUNING']))
    4318. 

  4318. 	{
    4319. 

  4319. 		$micro_end_time=dol_microtime_float(true);
    4320. 

  4320. 		print "\n".'<script type="text/javascript">'."\n";
    4321. 

  4321. 		print 'window.console && console.log("';
    4322. 

  4322. 		if (! empty($conf->global->MEMCACHED_SERVER)) print 'MEMCACHED_SERVER='.$conf->global->MEMCACHED_SERVER.' - ';
    4323. 

  4323. 		print 'MAIN_OPTIMIZE_SPEED='.(isset($conf->global->MAIN_OPTIMIZE_SPEED)?$conf->global->MAIN_OPTIMIZE_SPEED:'off');
    4324. 

  4324. 		print ' - Build time: '.ceil(1000*($micro_end_time-$micro_start_time)).' ms';
    4325. 

  4325. 		if (function_exists("memory_get_usage"))
    4326. 

  4326. 		{
    4327. 

  4327. 			print ' - Mem: '.memory_get_usage();
    4328. 

  4328. 		}
    4329. 

  4329. 		if (function_exists("xdebug_memory_usage"))
    4330. 

  4330. 		{
    4331. 

  4331. 			print ' - XDebug time: '.ceil(1000*xdebug_time_index()).' ms';
    4332. 

  4332. 			print ' - XDebug mem: '.xdebug_memory_usage();
    4333. 

  4333. 			print ' - XDebug mem peak: '.xdebug_peak_memory_usage();
    4334. 

  4334. 		}
    4335. 

  4335. 		if (function_exists("zend_loader_file_encoded"))
    4336. 

  4336. 		{
    4337. 

  4337. 			print ' - Zend encoded file: '.(zend_loader_file_encoded()?'yes':'no');
    4338. 

  4338. 		}
    4339. 

  4339. 		print '");'."\n";
    4340. 

  4340. 		print '</script>'."\n";
    4341. 

  4341. 

  4342. 		// Add Xdebug coverage of code
    4343. 

  4343. 		if (defined('XDEBUGCOVERAGE')) {
    4344. 

  4344. 			var_dump(xdebug_get_code_coverage());
    4345. 

  4345. 		}
    4346. 

  4346. 	}
    4347. 

  4347. 

  4348. 	// If there is some logs in buffer to show
    4349. 

  4349. 	if (count($conf->logbuffer))
    4350. 

  4350. 	{
    4351. 

  4351. 		print "\n";
    4352. 

  4352. 		print "<!-- Start of log output\n";
    4353. 

  4353. 		//print '<div class="hidden">'."\n";
    4354. 

  4354. 		foreach($conf->logbuffer as $logline)
    4355. 

  4355. 		{
    4356. 

  4356. 			print $logline."<br>\n";
    4357. 

  4357. 		}
    4358. 

  4358. 		//print '</div>'."\n";
    4359. 

  4359. 		print "End of log output -->\n";
    4360. 

  4360. 	}
    4361. 

  4361. 

  4362. }
    4363. 

  4363. 

  4364. /**
    4365. 

  4365.  *	Convert an array with RGB value into hex RGB value
    4366. 

  4366.  *
    4367. 

  4367.  *  @param	array	$arraycolor			Array
    4368. 

  4368.  *  @param	string	$colorifnotfound	Color code to return if entry not defined
    4369. 

  4369.  *  @return	string						RGB hex value (without # before). For example: FF00FF
    4370. 

  4370.  */
    4371. 

  4371. function colorArrayToHex($arraycolor,$colorifnotfound='888888')
    4372. 

  4372. {
    4373. 

  4373. 	if (! is_array($arraycolor)) return $colorifnotfound;
    4374. 

  4374. 	return dechex($arraycolor[0]).dechex($arraycolor[1]).dechex($arraycolor[2]);
    4375. 

  4375. }
    4376. 

  4376. 

  4377. /**
    4378. 

  4378.  * Set focus onto field with selector
    4379. 

  4379.  *
    4380. 

  4380.  * @param 	string	$selector	Selector ('#id')
    4381. 

  4381.  * @return	string				HTML code to set focus
    4382. 

  4382.  */
    4383. 

  4383. function dol_set_focus($selector)
    4384. 

  4384. {
    4385. 

  4385. 	print '<!-- Set focus onto a specific field -->'."\n";
    4386. 

  4386. 	print '<script type="text/javascript" language="javascript">jQuery(document).ready(function() { jQuery("'.$selector.'").focus(); });</script>'."\n";
    4387. 

  4387. }
    4388. 

  4388. 

  4389. 

  4390. if (! function_exists('getmypid'))
    4391. 

  4391. {
    4392. 

  4392. 	/**
    4393. 

  4393. 	 * Return random PID
    4394. 

  4394. 	 * Some web hosts disable this php function for security reasons
    4395. 

  4395. 	 *
    4396. 

  4396. 	 * @return	int
    4397. 

  4397. 	 */
    4398. 

  4398. 	function getmypid()
    4399. 

  4399. 	{
    4400. 

  4400. 		return rand(1,32768);
    4401. 

  4401. 	}
    4402. 

  4402. }
    4403. 

  4403. 

  4404. ?>
    4405. 

  4405.