4 * tis-620 encoding functions
6 * takes a string of unicode entities and converts it to a tis-620 encoded string
7 * Unsupported characters are replaced with ?.
9 * @copyright 2004-2013 The SquirrelMail Project Team
10 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
12 * @package squirrelmail
17 * Converts string to tis-620
18 * @param string $string text with numeric unicode entities
19 * @return string tis-620 encoded text
21 function charset_encode_tis_620 ($string) {
22 // don't run encoding function, if there is no encoded characters
23 if (! preg_match("'&#[0-9]+;'",$string) ) return $string;
25 $string=preg_replace_callback("/&#([0-9]+);/",'unicodetotis620',$string);
31 * Return tis-620 symbol when unicode character number is provided
33 * This function is used internally by charset_encode_tis_620
34 * function. It might be unavailable to other SquirrelMail functions.
35 * Don't use it or make sure, that functions/encode/tis_620.php is
38 * @param array $matches array with first element a decimal unicode value
39 * @return string tis-620 character
41 function unicodetotis620($matches) {
44 $tis620chars=array('3585' => "\xA1",
132 if (array_key_exists($var,$tis620chars)) {
133 $ret=$tis620chars[$var];