arnisjuraga/HTML_UnEncode.sql

## HTML_UnEncode.sql
/*

Function converts encoded HTML entities back to HTML tags in pure MySQL

-- Original method: https://stackoverflow.com/a/41460016/1720476
-- @Balmiopour comment added https://stackoverflow.com/questions/3678980/is-there-a-mysql-function-to-decode-html-entities#comment71742861_41460016

Version history:


- added correct UTF8 encoding conversions
- changed Varchar to TEXT
- added &trade;, &ldquo;, &rdquo;
*/


DELIMITER $$
DROP FUNCTION IF EXISTS `HTML_UnEncode`$$
CREATE FUNCTION `HTML_UnEncode`(X TEXT CHARSET UTF8) RETURNS VARCHAR(255) CHARSET UTF8 DETERMINISTIC
BEGIN
    DECLARE TextString TEXT CHARSET UTF8;

    -- convert "double" ampersand encodings
    IF INSTR(X, '&amp;') THEN
        SET TextString = REPLACE(TextString, '&amp;', '&');
        SET X = REPLACE(X, '&amp;', '&');
    END IF;

    SET TextString = X;

    #quotation mark
    IF
        INSTR(X, '&quot;') THEN
        SET TextString =
                REPLACE(TextString, '&quot;', '"');
    END IF;
    #apostrophe
    IF INSTR(X, '&apos;')
    THEN
        SET TextString = REPLACE(TextString, '&apos;', '"') ;
    END IF;

    #ampersand
    IF
        INSTR(X, '&amp;') THEN
        SET TextString =
                REPLACE(TextString, '&amp;', '&');
    END IF;

    #less-than
    IF
        INSTR(X, '&lt;') THEN
        SET TextString =
                REPLACE(TextString, '&lt;', '<');
    END IF;

    #greater-than
    IF
        INSTR(X, '&gt;') THEN
        SET TextString =
                REPLACE(TextString, '&gt;', '>');
    END IF;


    #non-breaking space - double encoded
    IF
        INSTR(X, '&amp;nbsp;') THEN
        SET TextString =
                REPLACE(TextString, '&amp;nbsp;', 'X');
    END IF;

    #non-breaking space - double encoded
    IF
        INSTR(X, '&nbsp;') THEN
        SET TextString =
                REPLACE(TextString, '&nbsp;', ' ');
    END IF;

    #inverted exclamation mark
    IF
        INSTR(X, '&iexcl;') THEN
        SET TextString =
                REPLACE(TextString, '&iexcl;', '¡');
    END IF;

    #cent
    IF
        INSTR(X, '&cent;') THEN
        SET TextString =
                REPLACE(TextString, '&cent;', '¢');
    END IF;

    #pound
    IF
        INSTR(X, '&pound;') THEN
        SET TextString =
                REPLACE(TextString, '&pound;', '£');
    END IF;

    #currency
    IF
        INSTR(X, '&curren;') THEN
        SET TextString =
                REPLACE(TextString, '&curren;', '¤');
    END IF;

    #yen
    IF
        INSTR(X, '&yen;') THEN
        SET TextString =
                REPLACE(TextString, '&yen;', '¥');
    END IF;

    #broken vertical bar
    IF
        INSTR(X, '&brvbar;') THEN
        SET TextString =
                REPLACE(TextString, '&brvbar;', '¦');
    END IF;

    #section
    IF
        INSTR(X, '&sect;') THEN
        SET TextString =
                REPLACE(TextString, '&sect;', '§');
    END IF;

    #spacing diaeresis
    IF
        INSTR(X, '&uml;') THEN
        SET TextString =
                REPLACE(TextString, '&uml;', '¨');
    END IF;

    #copyright
    IF
        INSTR(X, '&copy;') THEN
        SET TextString =
                REPLACE(TextString, '&copy;', '©');
    END IF;

    #feminine ordinal indicator
    IF
        INSTR(X, '&ordf;') THEN
        SET TextString =
                REPLACE(TextString, '&ordf;', 'ª');
    END IF;

    #angle quotation mark (left)
    IF
        INSTR(X, '&laquo;') THEN
        SET TextString =
                REPLACE(TextString, '&laquo;', '«');
    END IF;

    #negation
    IF
        INSTR(X, '&not;') THEN
        SET TextString =
                REPLACE(TextString, '&not;', '¬');
    END IF;

    #soft hyphen
    IF
        INSTR(X, '&shy;') THEN
        SET TextString =
                REPLACE(TextString, '&shy;', '');
    END IF;

    #registered trademark
    IF
        INSTR(X, '&reg;') THEN
        SET TextString =
                REPLACE(TextString, '&reg;', '®');
    END IF;

    #spacing macron
    IF
        INSTR(X, '&macr;') THEN
        SET TextString =
                REPLACE(TextString, '&macr;', '¯');
    END IF;

    #degree
    IF
        INSTR(X, '&deg;') THEN
        SET TextString =
                REPLACE(TextString, '&deg;', '°');
    END IF;

    #plus-or-minus
    IF
        INSTR(X, '&plusmn;') THEN
        SET TextString =
                REPLACE(TextString, '&plusmn;', '±');
    END IF;

    #superscript 2
    IF
        INSTR(X, '&sup2;') THEN
        SET TextString =
                REPLACE(TextString, '&sup2;', '²');
    END IF;

    #superscript 3
    IF
        INSTR(X, '&sup3;') THEN
        SET TextString =
                REPLACE(TextString, '&sup3;', '³');
    END IF;

    #spacing acute
    IF
        INSTR(X, '&acute;') THEN
        SET TextString =
                REPLACE(TextString, '&acute;', '´');
    END IF;

    #micro
    IF
        INSTR(X, '&micro;') THEN
        SET TextString =
                REPLACE(TextString, '&micro;', 'µ');
    END IF;

    #paragraph
    IF
        INSTR(X, '&para;') THEN
        SET TextString =
                REPLACE(TextString, '&para;', '¶');
    END IF;

    #middle dot
    IF
        INSTR(X, '&middot;') THEN
        SET TextString =
                REPLACE(TextString, '&middot;', '·');
    END IF;

    #spacing cedilla
    IF
        INSTR(X, '&cedil;') THEN
        SET TextString =
                REPLACE(TextString, '&cedil;', '¸');
    END IF;

    #superscript 1
    IF
        INSTR(X, '&sup1;') THEN
        SET TextString =
                REPLACE(TextString, '&sup1;', '¹');
    END IF;

    #masculine ordinal indicator
    IF
        INSTR(X, '&ordm;') THEN
        SET TextString =
                REPLACE(TextString, '&ordm;', 'º');
    END IF;

    #angle quotation mark (right)
    IF
        INSTR(X, '&raquo;') THEN
        SET TextString =
                REPLACE(TextString, '&raquo;', '»');
    END IF;

    #fraction 1/4
    IF
        INSTR(X, '&frac14;') THEN
        SET TextString =
                REPLACE(TextString, '&frac14;', '¼');
    END IF;

    #fraction 1/2
    IF
        INSTR(X, '&frac12;') THEN
        SET TextString =
                REPLACE(TextString, '&frac12;', '½');
    END IF;

    #fraction 3/4
    IF
        INSTR(X, '&frac34;') THEN
        SET TextString =
                REPLACE(TextString, '&frac34;', '¾');
    END IF;

    #inverted question mark
    IF
        INSTR(X, '&iquest;') THEN
        SET TextString =
                REPLACE(TextString, '&iquest;', '¿');
    END IF;

    #multiplication
    IF
        INSTR(X, '&times;') THEN
        SET TextString =
                REPLACE(TextString, '&times;', '×');
    END IF;

    #division
    IF
        INSTR(X, '&divide;') THEN
        SET TextString =
                REPLACE(TextString, '&divide;', '÷');
    END IF;

    #capital a, grave accent
    IF
        INSTR(X, '&Agrave;') THEN
        SET TextString =
                REPLACE(TextString, '&Agrave;', 'À');
    END IF;

    #capital a, acute accent
    IF
        INSTR(X, '&Aacute;') THEN
        SET TextString =
                REPLACE(TextString, '&Aacute;', 'Á');
    END IF;

    #capital a, circumflex accent
    IF
        INSTR(X, '&Acirc;') THEN
        SET TextString =
                REPLACE(TextString, '&Acirc;', 'Â');
    END IF;

    #capital a, tilde
    IF
        INSTR(X, '&Atilde;') THEN
        SET TextString =
                REPLACE(TextString, '&Atilde;', 'Ã');
    END IF;

    #capital a, umlaut mark
    IF
        INSTR(X, '&Auml;') THEN
        SET TextString =
                REPLACE(TextString, '&Auml;', 'Ä');
    END IF;

    #capital a, ring
    IF
        INSTR(X, '&Aring;') THEN
        SET TextString =
                REPLACE(TextString, '&Aring;', 'Å');
    END IF;

    #capital ae
    IF
        INSTR(X, '&AElig;') THEN
        SET TextString =
                REPLACE(TextString, '&AElig;', 'Æ');
    END IF;

    #capital c, cedilla
    IF
        INSTR(X, '&Ccedil;') THEN
        SET TextString =
                REPLACE(TextString, '&Ccedil;', 'Ç');
    END IF;

    #capital e, grave accent
    IF
        INSTR(X, '&Egrave;') THEN
        SET TextString =
                REPLACE(TextString, '&Egrave;', 'È');
    END IF;

    #capital e, acute accent
    IF
        INSTR(X, '&Eacute;') THEN
        SET TextString =
                REPLACE(TextString, '&Eacute;', 'É');
    END IF;

    #capital e, circumflex accent
    IF
        INSTR(X, '&Ecirc;') THEN
        SET TextString =
                REPLACE(TextString, '&Ecirc;', 'Ê');
    END IF;

    #capital e, umlaut mark
    IF
        INSTR(X, '&Euml;') THEN
        SET TextString =
                REPLACE(TextString, '&Euml;', 'Ë');
    END IF;

    #capital i, grave accent
    IF
        INSTR(X, '&Igrave;') THEN
        SET TextString =
                REPLACE(TextString, '&Igrave;', 'Ì');
    END IF;

    #capital i, acute accent
    IF
        INSTR(X, '&Iacute;') THEN
        SET TextString =
                REPLACE(TextString, '&Iacute;', 'Í');
    END IF;

    #capital i, circumflex accent
    IF
        INSTR(X, '&Icirc;') THEN
        SET TextString =
                REPLACE(TextString, '&Icirc;', 'Î');
    END IF;

    #capital i, umlaut mark
    IF
        INSTR(X, '&Iuml;') THEN
        SET TextString =
                REPLACE(TextString, '&Iuml;', 'Ï');
    END IF;

    #capital eth, Icelandic
    IF
        INSTR(X, '&ETH;') THEN
        SET TextString =
                REPLACE(TextString, '&ETH;', 'Ð');
    END IF;

    #capital n, tilde
    IF
        INSTR(X, '&Ntilde;') THEN
        SET TextString =
                REPLACE(TextString, '&Ntilde;', 'Ñ');
    END IF;

    #capital o, grave accent
    IF
        INSTR(X, '&Ograve;') THEN
        SET TextString =
                REPLACE(TextString, '&Ograve;', 'Ò');
    END IF;

    #capital o, acute accent
    IF
        INSTR(X, '&Oacute;') THEN
        SET TextString =
                REPLACE(TextString, '&Oacute;', 'Ó');
    END IF;

    #capital o, circumflex accent
    IF
        INSTR(X, '&Ocirc;') THEN
        SET TextString =
                REPLACE(TextString, '&Ocirc;', 'Ô');
    END IF;

    #capital o, tilde
    IF
        INSTR(X, '&Otilde;') THEN
        SET TextString =
                REPLACE(TextString, '&Otilde;', 'Õ');
    END IF;

    #capital o, umlaut mark
    IF
        INSTR(X, '&Ouml;') THEN
        SET TextString =
                REPLACE(TextString, '&Ouml;', 'Ö');
    END IF;

    #capital o, slash
    IF
        INSTR(X, '&Oslash;') THEN
        SET TextString =
                REPLACE(TextString, '&Oslash;', 'Ø');
    END IF;

    #capital u, grave accent
    IF
        INSTR(X, '&Ugrave;') THEN
        SET TextString =
                REPLACE(TextString, '&Ugrave;', 'Ù');
    END IF;

    #capital u, acute accent
    IF
        INSTR(X, '&Uacute;') THEN
        SET TextString =
                REPLACE(TextString, '&Uacute;', 'Ú');
    END IF;

    #capital u, circumflex accent
    IF
        INSTR(X, '&Ucirc;') THEN
        SET TextString =
                REPLACE(TextString, '&Ucirc;', 'Û');
    END IF;

    #capital u, umlaut mark
    IF
        INSTR(X, '&Uuml;') THEN
        SET TextString =
                REPLACE(TextString, '&Uuml;', 'Ü');
    END IF;

    #capital y, acute accent
    IF
        INSTR(X, '&Yacute;') THEN
        SET TextString =
                REPLACE(TextString, '&Yacute;', 'Ý');
    END IF;

    #capital THORN, Icelandic
    IF
        INSTR(X, '&THORN;') THEN
        SET TextString =
                REPLACE(TextString, '&THORN;', 'Þ');
    END IF;

    #small sharp s, German
    IF
        INSTR(X, '&szlig;') THEN
        SET TextString =
                REPLACE(TextString, '&szlig;', 'ß');
    END IF;

    #small a, grave accent
    IF
        INSTR(X, '&agrave;') THEN
        SET TextString =
                REPLACE(TextString, '&agrave;', 'à');
    END IF;

    #small a, acute accent
    IF
        INSTR(X, '&aacute;') THEN
        SET TextString =
                REPLACE(TextString, '&aacute;', 'á');
    END IF;

    #small a, circumflex accent
    IF
        INSTR(X, '&acirc;') THEN
        SET TextString =
                REPLACE(TextString, '&acirc;', 'â');
    END IF;

    #small a, tilde
    IF
        INSTR(X, '&atilde;') THEN
        SET TextString =
                REPLACE(TextString, '&atilde;', 'ã');
    END IF;

    #small a, umlaut mark
    IF
        INSTR(X, '&auml;') THEN
        SET TextString =
                REPLACE(TextString, '&auml;', 'ä');
    END IF;

    #small a, ring
    IF
        INSTR(X, '&aring;') THEN
        SET TextString =
                REPLACE(TextString, '&aring;', 'å');
    END IF;

    #small ae
    IF
        INSTR(X, '&aelig;') THEN
        SET TextString =
                REPLACE(TextString, '&aelig;', 'æ');
    END IF;

    #small c, cedilla
    IF
        INSTR(X, '&ccedil;') THEN
        SET TextString =
                REPLACE(TextString, '&ccedil;', 'ç');
    END IF;

    #small e, grave accent
    IF
        INSTR(X, '&egrave;') THEN
        SET TextString =
                REPLACE(TextString, '&egrave;', 'è');
    END IF;

    #small e, acute accent
    IF
        INSTR(X, '&eacute;') THEN
        SET TextString =
                REPLACE(TextString, '&eacute;', 'é');
    END IF;

    #small e, circumflex accent
    IF
        INSTR(X, '&ecirc;') THEN
        SET TextString =
                REPLACE(TextString, '&ecirc;', 'ê');
    END IF;

    #small e, umlaut mark
    IF
        INSTR(X, '&euml;') THEN
        SET TextString =
                REPLACE(TextString, '&euml;', 'ë');
    END IF;

    #small i, grave accent
    IF
        INSTR(X, '&igrave;') THEN
        SET TextString =
                REPLACE(TextString, '&igrave;', 'ì');
    END IF;

    #small i, acute accent
    IF
        INSTR(X, '&iacute;') THEN
        SET TextString =
                REPLACE(TextString, '&iacute;', 'í');
    END IF;

    #small i, circumflex accent
    IF
        INSTR(X, '&icirc;') THEN
        SET TextString =
                REPLACE(TextString, '&icirc;', 'î');
    END IF;

    #small i, umlaut mark
    IF
        INSTR(X, '&iuml;') THEN
        SET TextString =
                REPLACE(TextString, '&iuml;', 'ï');
    END IF;

    #small eth, Icelandic
    IF
        INSTR(X, '&eth;') THEN
        SET TextString =
                REPLACE(TextString, '&eth;', 'ð');
    END IF;

    #small n, tilde
    IF
        INSTR(X, '&ntilde;') THEN
        SET TextString =
                REPLACE(TextString, '&ntilde;', 'ñ');
    END IF;

    #small o, grave accent
    IF
        INSTR(X, '&ograve;') THEN
        SET TextString =
                REPLACE(TextString, '&ograve;', 'ò');
    END IF;

    #small o, acute accent
    IF
        INSTR(X, '&oacute;') THEN
        SET TextString =
                REPLACE(TextString, '&oacute;', 'ó');
    END IF;

    #small o, circumflex accent
    IF
        INSTR(X, '&ocirc;') THEN
        SET TextString =
                REPLACE(TextString, '&ocirc;', 'ô');
    END IF;

    #small o, tilde
    IF
        INSTR(X, '&otilde;') THEN
        SET TextString =
                REPLACE(TextString, '&otilde;', 'õ');
    END IF;

    #small o, umlaut mark
    IF
        INSTR(X, '&ouml;') THEN
        SET TextString =
                REPLACE(TextString, '&ouml;', 'ö');
    END IF;

    #small o, slash
    IF
        INSTR(X, '&oslash;') THEN
        SET TextString =
                REPLACE(TextString, '&oslash;', 'ø');
    END IF;

    #small u, grave accent
    IF
        INSTR(X, '&ugrave;') THEN
        SET TextString =
                REPLACE(TextString, '&ugrave;', 'ù');
    END IF;

    #small u, acute accent
    IF
        INSTR(X, '&uacute;') THEN
        SET TextString =
                REPLACE(TextString, '&uacute;', 'ú');
    END IF;

    #small u, circumflex accent
    IF
        INSTR(X, '&ucirc;') THEN
        SET TextString =
                REPLACE(TextString, '&ucirc;', 'û');
    END IF;

    #small u, umlaut mark
    IF
        INSTR(X, '&uuml;') THEN
        SET TextString =
                REPLACE(TextString, '&uuml;', 'ü');
    END IF;

    #small y, acute accent
    IF
        INSTR(X, '&yacute;') THEN
        SET TextString =
                REPLACE(TextString, '&yacute;', 'ý');
    END IF;

    #small thorn, Icelandic
    IF
        INSTR(X, '&thorn;') THEN
        SET TextString =
                REPLACE(TextString, '&thorn;', 'þ');
    END IF;

    #small y, umlaut mark
    IF
        INSTR(X, '&yuml;') THEN
        SET TextString =
                REPLACE(TextString, '&yuml;', 'ÿ');
    END IF;

    # Additional
    IF
        INSTR(X, '&trade;') THEN
        SET TextString =
                REPLACE(TextString, '&trade;', '™');
    END IF;

    IF
        INSTR(X, '&ldquo;') THEN
        SET TextString =
                REPLACE(TextString, '&ldquo;', '“');
    END IF;

    IF
        INSTR(X, '&rdquo;') THEN
        SET TextString =
                REPLACE(TextString, '&rdquo;', '”');
    END IF;


    RETURN TextString;
END$$

DELIMITER ;
	/*

	Function converts encoded HTML entities back to HTML tags in pure MySQL

	-- Original method: https://stackoverflow.com/a/41460016/1720476
	-- @Balmiopour comment added https://stackoverflow.com/questions/3678980/is-there-a-mysql-function-to-decode-html-entities#comment71742861_41460016

	Version history:


	- added correct UTF8 encoding conversions
	- changed Varchar to TEXT
	- added ™, “, ”
	*/


	DELIMITER $$
	DROP FUNCTION IF EXISTS `HTML_UnEncode`$$
	CREATE FUNCTION `HTML_UnEncode`(X TEXT CHARSET UTF8) RETURNS VARCHAR(255) CHARSET UTF8 DETERMINISTIC
	BEGIN
	DECLARE TextString TEXT CHARSET UTF8;

	-- convert "double" ampersand encodings
	IF INSTR(X, '&') THEN
	SET TextString = REPLACE(TextString, '&', '&');
	SET X = REPLACE(X, '&', '&');
	END IF;

	SET TextString = X;

	#quotation mark
	IF
	INSTR(X, '"') THEN
	SET TextString =
	REPLACE(TextString, '"', '"');
	END IF;
	#apostrophe
	IF INSTR(X, ''')
	THEN
	SET TextString = REPLACE(TextString, ''', '"') ;
	END IF;

	#ampersand
	IF
	INSTR(X, '&') THEN
	SET TextString =
	REPLACE(TextString, '&', '&');
	END IF;

	#less-than
	IF
	INSTR(X, '<') THEN
	SET TextString =
	REPLACE(TextString, '<', '<');
	END IF;

	#greater-than
	IF
	INSTR(X, '>') THEN
	SET TextString =
	REPLACE(TextString, '>', '>');
	END IF;


	#non-breaking space - double encoded
	IF
	INSTR(X, '&nbsp;') THEN
	SET TextString =
	REPLACE(TextString, '&nbsp;', 'X');
	END IF;

	#non-breaking space - double encoded
	IF
	INSTR(X, ' ') THEN
	SET TextString =
	REPLACE(TextString, ' ', ' ');
	END IF;

	#inverted exclamation mark
	IF
	INSTR(X, '¡') THEN
	SET TextString =
	REPLACE(TextString, '¡', '¡');
	END IF;

	#cent
	IF
	INSTR(X, '¢') THEN
	SET TextString =
	REPLACE(TextString, '¢', '¢');
	END IF;

	#pound
	IF
	INSTR(X, '£') THEN
	SET TextString =
	REPLACE(TextString, '£', '£');
	END IF;

	#currency
	IF
	INSTR(X, '¤') THEN
	SET TextString =
	REPLACE(TextString, '¤', '¤');
	END IF;

	#yen
	IF
	INSTR(X, '¥') THEN
	SET TextString =
	REPLACE(TextString, '¥', '¥');
	END IF;

	#broken vertical bar
	IF
	INSTR(X, '¦') THEN
	SET TextString =
	REPLACE(TextString, '¦', '¦');
	END IF;

	#section
	IF
	INSTR(X, '§') THEN
	SET TextString =
	REPLACE(TextString, '§', '§');
	END IF;

	#spacing diaeresis
	IF
	INSTR(X, '¨') THEN
	SET TextString =
	REPLACE(TextString, '¨', '¨');
	END IF;

	#copyright
	IF
	INSTR(X, '©') THEN
	SET TextString =
	REPLACE(TextString, '©', '©');
	END IF;

	#feminine ordinal indicator
	IF
	INSTR(X, 'ª') THEN
	SET TextString =
	REPLACE(TextString, 'ª', 'ª');
	END IF;

	#angle quotation mark (left)
	IF
	INSTR(X, '«') THEN
	SET TextString =
	REPLACE(TextString, '«', '«');
	END IF;

	#negation
	IF
	INSTR(X, '¬') THEN
	SET TextString =
	REPLACE(TextString, '¬', '¬');
	END IF;

	#soft hyphen
	IF
	INSTR(X, '') THEN
	SET TextString =
	REPLACE(TextString, '', '');
	END IF;

	#registered trademark
	IF
	INSTR(X, '®') THEN
	SET TextString =
	REPLACE(TextString, '®', '®');
	END IF;

	#spacing macron
	IF
	INSTR(X, '¯') THEN
	SET TextString =
	REPLACE(TextString, '¯', '¯');
	END IF;

	#degree
	IF
	INSTR(X, '°') THEN
	SET TextString =
	REPLACE(TextString, '°', '°');
	END IF;

	#plus-or-minus
	IF
	INSTR(X, '±') THEN
	SET TextString =
	REPLACE(TextString, '±', '±');
	END IF;

	#superscript 2
	IF
	INSTR(X, '²') THEN
	SET TextString =
	REPLACE(TextString, '²', '²');
	END IF;

	#superscript 3
	IF
	INSTR(X, '³') THEN
	SET TextString =
	REPLACE(TextString, '³', '³');
	END IF;

	#spacing acute
	IF
	INSTR(X, '´') THEN
	SET TextString =
	REPLACE(TextString, '´', '´');
	END IF;

	#micro
	IF
	INSTR(X, 'µ') THEN
	SET TextString =
	REPLACE(TextString, 'µ', 'µ');
	END IF;

	#paragraph
	IF
	INSTR(X, '¶') THEN
	SET TextString =
	REPLACE(TextString, '¶', '¶');
	END IF;

	#middle dot
	IF
	INSTR(X, '·') THEN
	SET TextString =
	REPLACE(TextString, '·', '·');
	END IF;

	#spacing cedilla
	IF
	INSTR(X, '¸') THEN
	SET TextString =
	REPLACE(TextString, '¸', '¸');
	END IF;

	#superscript 1
	IF
	INSTR(X, '¹') THEN
	SET TextString =
	REPLACE(TextString, '¹', '¹');
	END IF;

	#masculine ordinal indicator
	IF
	INSTR(X, 'º') THEN
	SET TextString =
	REPLACE(TextString, 'º', 'º');
	END IF;

	#angle quotation mark (right)
	IF
	INSTR(X, '»') THEN
	SET TextString =
	REPLACE(TextString, '»', '»');
	END IF;

	#fraction 1/4
	IF
	INSTR(X, '¼') THEN
	SET TextString =
	REPLACE(TextString, '¼', '¼');
	END IF;

	#fraction 1/2
	IF
	INSTR(X, '½') THEN
	SET TextString =
	REPLACE(TextString, '½', '½');
	END IF;

	#fraction 3/4
	IF
	INSTR(X, '¾') THEN
	SET TextString =
	REPLACE(TextString, '¾', '¾');
	END IF;

	#inverted question mark
	IF
	INSTR(X, '¿') THEN
	SET TextString =
	REPLACE(TextString, '¿', '¿');
	END IF;

	#multiplication
	IF
	INSTR(X, '×') THEN
	SET TextString =
	REPLACE(TextString, '×', '×');
	END IF;

	#division
	IF
	INSTR(X, '÷') THEN
	SET TextString =
	REPLACE(TextString, '÷', '÷');
	END IF;

	#capital a, grave accent
	IF
	INSTR(X, 'À') THEN
	SET TextString =
	REPLACE(TextString, 'À', 'À');
	END IF;

	#capital a, acute accent
	IF
	INSTR(X, 'Á') THEN
	SET TextString =
	REPLACE(TextString, 'Á', 'Á');
	END IF;

	#capital a, circumflex accent
	IF
	INSTR(X, 'Â') THEN
	SET TextString =
	REPLACE(TextString, 'Â', 'Â');
	END IF;

	#capital a, tilde
	IF
	INSTR(X, 'Ã') THEN
	SET TextString =
	REPLACE(TextString, 'Ã', 'Ã');
	END IF;

	#capital a, umlaut mark
	IF
	INSTR(X, 'Ä') THEN
	SET TextString =
	REPLACE(TextString, 'Ä', 'Ä');
	END IF;

	#capital a, ring
	IF
	INSTR(X, 'Å') THEN
	SET TextString =
	REPLACE(TextString, 'Å', 'Å');
	END IF;

	#capital ae
	IF
	INSTR(X, 'Æ') THEN
	SET TextString =
	REPLACE(TextString, 'Æ', 'Æ');
	END IF;

	#capital c, cedilla
	IF
	INSTR(X, 'Ç') THEN
	SET TextString =
	REPLACE(TextString, 'Ç', 'Ç');
	END IF;

	#capital e, grave accent
	IF
	INSTR(X, 'È') THEN
	SET TextString =
	REPLACE(TextString, 'È', 'È');
	END IF;

	#capital e, acute accent
	IF
	INSTR(X, 'É') THEN
	SET TextString =
	REPLACE(TextString, 'É', 'É');
	END IF;

	#capital e, circumflex accent
	IF
	INSTR(X, 'Ê') THEN
	SET TextString =
	REPLACE(TextString, 'Ê', 'Ê');
	END IF;

	#capital e, umlaut mark
	IF
	INSTR(X, 'Ë') THEN
	SET TextString =
	REPLACE(TextString, 'Ë', 'Ë');
	END IF;

	#capital i, grave accent
	IF
	INSTR(X, 'Ì') THEN
	SET TextString =
	REPLACE(TextString, 'Ì', 'Ì');
	END IF;

	#capital i, acute accent
	IF
	INSTR(X, 'Í') THEN
	SET TextString =
	REPLACE(TextString, 'Í', 'Í');
	END IF;

	#capital i, circumflex accent
	IF
	INSTR(X, 'Î') THEN
	SET TextString =
	REPLACE(TextString, 'Î', 'Î');
	END IF;

	#capital i, umlaut mark
	IF
	INSTR(X, 'Ï') THEN
	SET TextString =
	REPLACE(TextString, 'Ï', 'Ï');
	END IF;

	#capital eth, Icelandic
	IF
	INSTR(X, 'Ð') THEN
	SET TextString =
	REPLACE(TextString, 'Ð', 'Ð');
	END IF;

	#capital n, tilde
	IF
	INSTR(X, 'Ñ') THEN
	SET TextString =
	REPLACE(TextString, 'Ñ', 'Ñ');
	END IF;

	#capital o, grave accent
	IF
	INSTR(X, 'Ò') THEN
	SET TextString =
	REPLACE(TextString, 'Ò', 'Ò');
	END IF;

	#capital o, acute accent
	IF
	INSTR(X, 'Ó') THEN
	SET TextString =
	REPLACE(TextString, 'Ó', 'Ó');
	END IF;

	#capital o, circumflex accent
	IF
	INSTR(X, 'Ô') THEN
	SET TextString =
	REPLACE(TextString, 'Ô', 'Ô');
	END IF;

	#capital o, tilde
	IF
	INSTR(X, 'Õ') THEN
	SET TextString =
	REPLACE(TextString, 'Õ', 'Õ');
	END IF;

	#capital o, umlaut mark
	IF
	INSTR(X, 'Ö') THEN
	SET TextString =
	REPLACE(TextString, 'Ö', 'Ö');
	END IF;

	#capital o, slash
	IF
	INSTR(X, 'Ø') THEN
	SET TextString =
	REPLACE(TextString, 'Ø', 'Ø');
	END IF;

	#capital u, grave accent
	IF
	INSTR(X, 'Ù') THEN
	SET TextString =
	REPLACE(TextString, 'Ù', 'Ù');
	END IF;

	#capital u, acute accent
	IF
	INSTR(X, 'Ú') THEN
	SET TextString =
	REPLACE(TextString, 'Ú', 'Ú');
	END IF;

	#capital u, circumflex accent
	IF
	INSTR(X, 'Û') THEN
	SET TextString =
	REPLACE(TextString, 'Û', 'Û');
	END IF;

	#capital u, umlaut mark
	IF
	INSTR(X, 'Ü') THEN
	SET TextString =
	REPLACE(TextString, 'Ü', 'Ü');
	END IF;

	#capital y, acute accent
	IF
	INSTR(X, 'Ý') THEN
	SET TextString =
	REPLACE(TextString, 'Ý', 'Ý');
	END IF;

	#capital THORN, Icelandic
	IF
	INSTR(X, 'Þ') THEN
	SET TextString =
	REPLACE(TextString, 'Þ', 'Þ');
	END IF;

	#small sharp s, German
	IF
	INSTR(X, 'ß') THEN
	SET TextString =
	REPLACE(TextString, 'ß', 'ß');
	END IF;

	#small a, grave accent
	IF
	INSTR(X, 'à') THEN
	SET TextString =
	REPLACE(TextString, 'à', 'à');
	END IF;

	#small a, acute accent
	IF
	INSTR(X, 'á') THEN
	SET TextString =
	REPLACE(TextString, 'á', 'á');
	END IF;

	#small a, circumflex accent
	IF
	INSTR(X, 'â') THEN
	SET TextString =
	REPLACE(TextString, 'â', 'â');
	END IF;

	#small a, tilde
	IF
	INSTR(X, 'ã') THEN
	SET TextString =
	REPLACE(TextString, 'ã', 'ã');
	END IF;

	#small a, umlaut mark
	IF
	INSTR(X, 'ä') THEN
	SET TextString =
	REPLACE(TextString, 'ä', 'ä');
	END IF;

	#small a, ring
	IF
	INSTR(X, 'å') THEN
	SET TextString =
	REPLACE(TextString, 'å', 'å');
	END IF;

	#small ae
	IF
	INSTR(X, 'æ') THEN
	SET TextString =
	REPLACE(TextString, 'æ', 'æ');
	END IF;

	#small c, cedilla
	IF
	INSTR(X, 'ç') THEN
	SET TextString =
	REPLACE(TextString, 'ç', 'ç');
	END IF;

	#small e, grave accent
	IF
	INSTR(X, 'è') THEN
	SET TextString =
	REPLACE(TextString, 'è', 'è');
	END IF;

	#small e, acute accent
	IF
	INSTR(X, 'é') THEN
	SET TextString =
	REPLACE(TextString, 'é', 'é');
	END IF;

	#small e, circumflex accent
	IF
	INSTR(X, 'ê') THEN
	SET TextString =
	REPLACE(TextString, 'ê', 'ê');
	END IF;

	#small e, umlaut mark
	IF
	INSTR(X, 'ë') THEN
	SET TextString =
	REPLACE(TextString, 'ë', 'ë');
	END IF;

	#small i, grave accent
	IF
	INSTR(X, 'ì') THEN
	SET TextString =
	REPLACE(TextString, 'ì', 'ì');
	END IF;

	#small i, acute accent
	IF
	INSTR(X, 'í') THEN
	SET TextString =
	REPLACE(TextString, 'í', 'í');
	END IF;

	#small i, circumflex accent
	IF
	INSTR(X, 'î') THEN
	SET TextString =
	REPLACE(TextString, 'î', 'î');
	END IF;

	#small i, umlaut mark
	IF
	INSTR(X, 'ï') THEN
	SET TextString =
	REPLACE(TextString, 'ï', 'ï');
	END IF;

	#small eth, Icelandic
	IF
	INSTR(X, 'ð') THEN
	SET TextString =
	REPLACE(TextString, 'ð', 'ð');
	END IF;

	#small n, tilde
	IF
	INSTR(X, 'ñ') THEN
	SET TextString =
	REPLACE(TextString, 'ñ', 'ñ');
	END IF;

	#small o, grave accent
	IF
	INSTR(X, 'ò') THEN
	SET TextString =
	REPLACE(TextString, 'ò', 'ò');
	END IF;

	#small o, acute accent
	IF
	INSTR(X, 'ó') THEN
	SET TextString =
	REPLACE(TextString, 'ó', 'ó');
	END IF;

	#small o, circumflex accent
	IF
	INSTR(X, 'ô') THEN
	SET TextString =
	REPLACE(TextString, 'ô', 'ô');
	END IF;

	#small o, tilde
	IF
	INSTR(X, 'õ') THEN
	SET TextString =
	REPLACE(TextString, 'õ', 'õ');
	END IF;

	#small o, umlaut mark
	IF
	INSTR(X, 'ö') THEN
	SET TextString =
	REPLACE(TextString, 'ö', 'ö');
	END IF;

	#small o, slash
	IF
	INSTR(X, 'ø') THEN
	SET TextString =
	REPLACE(TextString, 'ø', 'ø');
	END IF;

	#small u, grave accent
	IF
	INSTR(X, 'ù') THEN
	SET TextString =
	REPLACE(TextString, 'ù', 'ù');
	END IF;

	#small u, acute accent
	IF
	INSTR(X, 'ú') THEN
	SET TextString =
	REPLACE(TextString, 'ú', 'ú');
	END IF;

	#small u, circumflex accent
	IF
	INSTR(X, 'û') THEN
	SET TextString =
	REPLACE(TextString, 'û', 'û');
	END IF;

	#small u, umlaut mark
	IF
	INSTR(X, 'ü') THEN
	SET TextString =
	REPLACE(TextString, 'ü', 'ü');
	END IF;

	#small y, acute accent
	IF
	INSTR(X, 'ý') THEN
	SET TextString =
	REPLACE(TextString, 'ý', 'ý');
	END IF;

	#small thorn, Icelandic
	IF
	INSTR(X, 'þ') THEN
	SET TextString =
	REPLACE(TextString, 'þ', 'þ');
	END IF;

	#small y, umlaut mark
	IF
	INSTR(X, 'ÿ') THEN
	SET TextString =
	REPLACE(TextString, 'ÿ', 'ÿ');
	END IF;

	# Additional
	IF
	INSTR(X, '™') THEN
	SET TextString =
	REPLACE(TextString, '™', '™');
	END IF;

	IF
	INSTR(X, '“') THEN
	SET TextString =
	REPLACE(TextString, '“', '“');
	END IF;

	IF
	INSTR(X, '”') THEN
	SET TextString =
	REPLACE(TextString, '”', '”');
	END IF;


	RETURN TextString;
	END$$

	DELIMITER ;