golden hour

/home/phakp/public_html/erp/core/lib

File/Folder	Size	Actions
accounting.lib.php	9.12 KB
admin.lib.php	66.42 KB
agenda.lib.php	18.22 KB
ajax.lib.php	31.31 KB
asset.lib.php	4.8 KB
bank.lib.php	12.94 KB
barcode.lib.php	15.26 KB
categories.lib.php	3.43 KB
company.lib.php	79.8 KB
contact.lib.php	4.51 KB
contract.lib.php	4.77 KB
cron.lib.php	4.69 KB
date.lib.php	37.78 KB
doc.lib.php	6.73 KB
doleditor.lib.php	3.93 KB
donation.lib.php	3.61 KB
ecm.lib.php	5.12 KB
emailing.lib.php	2.25 KB
eventorganization.lib.php	2.21 KB
expedition.lib.php	3.9 KB
expensereport.lib.php	5.6 KB
fichinter.lib.php	6.45 KB
files.lib.php	122.46 KB
fiscalyear.lib.php	1.86 KB
format_cards.lib.php	2.8 KB
fourn.lib.php	10.09 KB
functions.lib.php	429.39 KB
functions2.lib.php	91.31 KB
functions_ch.lib.php	3.66 KB
functionsnumtoword.lib.php	9.96 KB
geturl.lib.php	14.68 KB
holiday.lib.php	3.43 KB
hrm.lib.php	3.21 KB
images.lib.php	24.95 KB
import.lib.php	1.89 KB
intracommreport.lib.php	2.59 KB
invoice.lib.php	50.52 KB
invoice2.lib.php	9.16 KB
json.lib.php	10.92 KB
ldap.lib.php	5.37 KB
loan.lib.php	5.24 KB
mailmanspip.lib.php	1.24 KB
member.lib.php	10.23 KB
memory.lib.php	9.5 KB
modulebuilder.lib.php	13.56 KB
multicurrency.lib.php	2.07 KB
oauth.lib.php	5.73 KB
order.lib.php	9.82 KB
parsemd.lib.php	2.54 KB
payments.lib.php	17.44 KB
pdf.lib.php	104 KB
phpsessionindb.lib.php	8.28 KB
prelevement.lib.php	3.23 KB
price.lib.php	21.38 KB
product.lib.php	24.78 KB
project.lib.php	111.69 KB
propal.lib.php	9.38 KB
receiptprinter.lib.php	2.19 KB
reception.lib.php	4.69 KB
report.lib.php	3.84 KB
resource.lib.php	4.7 KB
salaries.lib.php	3.54 KB
security.lib.php	38.24 KB
security2.lib.php	18.07 KB
sendings.lib.php	16.55 KB
signature.lib.php	4.08 KB
stock.lib.php	3.6 KB
supplier_proposal.lib.php	4.82 KB
takepos.lib.php	2.18 KB
tax.lib.php	56.03 KB
ticket.lib.php	36.72 KB
treeview.lib.php	9.23 KB
trip.lib.php	1.98 KB
usergroups.lib.php	42.7 KB
vat.lib.php	2.6 KB
website.lib.php	53.39 KB
website2.lib.php	24.95 KB
ws.lib.php	3.34 KB
xcal.lib.php	16.9 KB

Edit: json.lib.php

<?php
/* Copyright (C) 2011-2012	Laurent Destailleur	<eldy@users.sourceforge.net>
 * Copyright (C) 2011-2012	Regis Houssin		<regis.houssin@inodbox.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 * or see https://www.gnu.org/
 */

/**
 *	    \file       htdocs/core/lib/json.lib.php
 *		\brief      Functions to emulate json function when there were not activated
 * 		\ingroup	core
 */

if (!function_exists('json_encode')) {
	/**
	 * Implement json_encode for PHP that does not have module enabled.
	 *
	 * @param	mixed	$elements		PHP Object to json encode
	 * @return 	string					Json encoded string
	 */
	function json_encode($elements)
	{
		return dol_json_encode($elements);
	}
}

/**
 * Implement json_encode for PHP that does not support it.
 * Use json_encode and json_decode in your code !
 *
 * @param	mixed	$elements		PHP Object to json encode
 * @return 	string					Json encoded string
 * @see json_encode()
 */
function dol_json_encode($elements)
{
	dol_syslog("For better performance, enable the native json in your PHP", LOG_WARNING);

$num = 0;
	if (is_object($elements)) {	// Count number of properties for an object
		foreach ($elements as $key => $value) {
			$num++;
		}
	} else {
		$num = count($elements);
	}
	//var_dump($num);

// determine type
	if (is_numeric(key($elements)) && key($elements) == 0) {
		// indexed (list)
		$keysofelements = array_keys($elements); // Elements array mus have key that does not start with 0 and end with num-1, so we will use this later.
		$output = '[';
		for ($i = 0, $last = ($num - 1); $i < $num; $i++) {
			if (!isset($elements[$keysofelements[$i]])) {
				continue;
			}
			if (is_array($elements[$keysofelements[$i]]) || is_object($elements[$keysofelements[$i]])) {
				$output .= json_encode($elements[$keysofelements[$i]]);
			} else {
				$output .= _val($elements[$keysofelements[$i]]);
			}
			if ($i !== $last) {
				$output .= ',';
			}
		}
		$output .= ']';
	} else {
		// associative (object)
		$output = '{';
		$last = $num - 1;
		$i = 0;
		$tmpelements = array();
		if (is_array($elements)) {
			$tmpelements = $elements;
		}
		if (is_object($elements)) {
			$tmpelements = get_object_vars($elements);
		}
		foreach ($tmpelements as $key => $value) {
			$output .= '"'.$key.'":';
			if (is_array($value)) {
				$output .= json_encode($value);
			} else {
				$output .= _val($value);
			}
			if ($i !== $last) {
				$output .= ',';
			}
			++$i;
		}
		$output .= '}';
	}

// return
	return $output;
}

/**
 * Return text according to type
 *
 * @param 	mixed	$val	Value to show
 * @return	string			Formated value
 */
function _val($val)
{
	if (is_string($val)) {
		// STRINGS ARE EXPECTED TO BE IN ASCII OR UTF-8 FORMAT
		$ascii = '';
		$strlen_var = strlen($val);

/*
		 * Iterate over every character in the string,
		 * escaping with a slash or encoding to UTF-8 where necessary
		 */
		for ($c = 0; $c < $strlen_var; ++$c) {
			$ord_var_c = ord($val[$c]);

switch (true) {
				case $ord_var_c == 0x08:
					$ascii .= '\b';
					break;
				case $ord_var_c == 0x09:
					$ascii .= '\t';
					break;
				case $ord_var_c == 0x0A:
					$ascii .= '\n';
					break;
				case $ord_var_c == 0x0C:
					$ascii .= '\f';
					break;
				case $ord_var_c == 0x0D:
					$ascii .= '\r';
					break;

case $ord_var_c == 0x22:
				case $ord_var_c == 0x2F:
				case $ord_var_c == 0x5C:
					// double quote, slash, slosh
					$ascii .= '\\'.$val[$c];
					break;

case (($ord_var_c >= 0x20) && ($ord_var_c <= 0x7F)):
					// characters U-00000000 - U-0000007F (same as ASCII)
					$ascii .= $val[$c];
					break;

case (($ord_var_c & 0xE0) == 0xC0):
					// characters U-00000080 - U-000007FF, mask 110XXXXX
					// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
					$char = pack('C*', $ord_var_c, ord($val[$c + 1]));
					$c += 1;
					$utf16 = utf82utf16($char);
					$ascii .= sprintf('\u%04s', bin2hex($utf16));
					break;

case (($ord_var_c & 0xF0) == 0xE0):
					// characters U-00000800 - U-0000FFFF, mask 1110XXXX
					// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
					$char = pack('C*', $ord_var_c, ord($val[$c + 1]), ord($val[$c + 2]));
					$c += 2;
					$utf16 = utf82utf16($char);
					$ascii .= sprintf('\u%04s', bin2hex($utf16));
					break;

case (($ord_var_c & 0xF8) == 0xF0):
					// characters U-00010000 - U-001FFFFF, mask 11110XXX
					// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
					$char = pack('C*', $ord_var_c, ord($val[$c + 1]), ord($val[$c + 2]), ord($val[$c + 3]));
					$c += 3;
					$utf16 = utf82utf16($char);
					$ascii .= sprintf('\u%04s', bin2hex($utf16));
					break;

case (($ord_var_c & 0xFC) == 0xF8):
					// characters U-00200000 - U-03FFFFFF, mask 111110XX
					// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
					$char = pack('C*', $ord_var_c, ord($val[$c + 1]), ord($val[$c + 2]), ord($val[$c + 3]), ord($val[$c + 4]));
					$c += 4;
					$utf16 = utf82utf16($char);
					$ascii .= sprintf('\u%04s', bin2hex($utf16));
					break;

case (($ord_var_c & 0xFE) == 0xFC):
					// characters U-04000000 - U-7FFFFFFF, mask 1111110X
					// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
					$char = pack('C*', $ord_var_c, ord($val[$c + 1]), ord($val[$c + 2]), ord($val[$c + 3]), ord($val[$c + 4]), ord($val[$c + 5]));
					$c += 5;
					$utf16 = utf82utf16($char);
					$ascii .= sprintf('\u%04s', bin2hex($utf16));
					break;
			}
		}

return '"'.$ascii.'"';
	} elseif (is_int($val)) {
		return sprintf('%d', $val);
	} elseif (is_float($val)) {
		return sprintf('%F', $val);
	} elseif (is_bool($val)) {
		return ($val ? 'true' : 'false');
	} else {
		return 'null';
	}
}

if (!function_exists('json_decode')) {
	/**
	 * Implement json_decode for PHP that does not support it
	 *
	 * @param	string	$json		Json encoded to PHP Object or Array
	 * @param	bool	$assoc		False return an object, true return an array
	 * @return 	mixed				Object or Array
	 */
	function json_decode($json, $assoc = false)
	{
		return dol_json_decode($json, $assoc);
	}
}

/**
 * Implement json_decode for PHP that does not support it
 * Use json_encode and json_decode in your code !
 *
 * @param	string	$json		Json encoded to PHP Object or Array
 * @param	bool	$assoc		False return an object, true return an array. Try to always use it with true !
 * @return 	mixed				Object or Array or false on error
 * @see json_decode()
 */
function dol_json_decode($json, $assoc = false)
{
	dol_syslog("For better performance, enable the native json in your PHP", LOG_WARNING);

$comment = false;

$out = '';
	$strLength = strlen($json); // Must stay strlen and not dol_strlen because we want technical length, not visible length
	for ($i = 0; $i < $strLength; $i++) {
		if (!$comment) {
			if (($json[$i] == '{') || ($json[$i] == '[')) {
				$out .= 'array(';
			} elseif (($json[$i] == '}') || ($json[$i] == ']')) {
				$out .= ')';
			} elseif ($json[$i] == ':') {
				$out .= ' => ';
			} else {
				$out .= $json[$i];
			}
		} else {
			$out .= $json[$i];
		}
		if ($json[$i] == '"' && $json[($i - 1)] != "\\") {
			$comment = !$comment;
		}
	}

$out = _unval($out);

$array = array();

// Return an array
	if ($out != '') {
		try {
			eval('$array = '.$out.';');
		} catch (Exception $e) {
			$array = array();
		}
	}

// Return an object
	if (!$assoc) {
		if (!empty($array)) {
			$object = false;
			if (count($array) > 0) {
				$object = (object) array();
			}
			foreach ($array as $key => $value) {
				if ($key) {
					$object->{$key} = $value;
				}
			}

return $object;
		}

return false;
	}

return $array;
}

/**
 * Return text according to type
 *
 * @param   string  $val    Value to decode
 * @return  string          Formated value
 */
function _unval($val)
{
	$reg = array();
	while (preg_match('/\\\u([0-9A-F]{2})([0-9A-F]{2})/i', $val, $reg)) {
		// single, escaped unicode character
		$utf16 = chr(hexdec($reg[1])).chr(hexdec($reg[2]));
		$utf8  = utf162utf8($utf16);
		$val = preg_replace('/\\\u'.$reg[1].$reg[2].'/i', $utf8, $val);
	}
	return $val;
}

/**
 * Convert a string from one UTF-16 char to one UTF-8 char
 *
 * Normally should be handled by mb_convert_encoding, but
 * provides a slower PHP-only method for installations
 * that lack the multibye string extension.
 *
 * @param    string  $utf16		UTF-16 character
 * @return   string  			UTF-8 character
 */
function utf162utf8($utf16)
{
	// oh please oh please oh please oh please oh please
	if (function_exists('mb_convert_encoding')) {
		return mb_convert_encoding($utf16, 'UTF-8', 'UTF-16');
	}

$bytes = (ord($utf16[0]) << 8) | ord($utf16[1]);

switch (true) {
		case ((0x7F & $bytes) == $bytes):
			// this case should never be reached, because we are in ASCII range
			// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
			return chr($bytes);

case (0x07FF & $bytes) == $bytes:
			// return a 2-byte UTF-8 character
			// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
			return chr(0xC0 | (($bytes >> 6) & 0x1F))
		. chr(0x80 | ($bytes & 0x3F));

case (0xFFFF & $bytes) == $bytes:
			// return a 3-byte UTF-8 character
			// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
			return chr(0xE0 | (($bytes >> 12) & 0x0F))
		. chr(0x80 | (($bytes >> 6) & 0x3F))
		. chr(0x80 | ($bytes & 0x3F));
	}

// ignoring UTF-32 for now, sorry
	return '';
}

/**
 * Convert a string from one UTF-8 char to one UTF-16 char
 *
 * Normally should be handled by mb_convert_encoding, but
 * provides a slower PHP-only method for installations
 * that lack the multibye string extension.
 *
 * @param    string  $utf8		UTF-8 character
 * @return   string  			UTF-16 character
 */
function utf82utf16($utf8)
{
	// oh please oh please oh please oh please oh please
	if (function_exists('mb_convert_encoding')) {
		return mb_convert_encoding($utf8, 'UTF-16', 'UTF-8');
	}

switch (strlen($utf8)) {
		case 1:
			// this case should never be reached, because we are in ASCII range
			// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
			return $utf8;

case 2:
			// return a UTF-16 character from a 2-byte UTF-8 char
			// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
			return chr(0x07 & (ord($utf8[0]) >> 2)).chr((0xC0 & (ord($utf8[0]) << 6)) | (0x3F & ord($utf8[1])));

case 3:
			// return a UTF-16 character from a 3-byte UTF-8 char
			// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
			return chr((0xF0 & (ord($utf8[0]) << 4)) | (0x0F & (ord($utf8[1]) >> 2))).chr((0xC0 & (ord($utf8[1]) << 6)) | (0x7F & ord($utf8[2])));
	}

// ignoring UTF-32 for now, sorry
	return '';
}