italoveloso/MySQL function for replacing HTML entities with their actual characters

## MySQL function for replacing HTML entities with their actual characters
DELIMITER $$

DROP FUNCTION IF EXISTS `database`.`HTML_UnEncode`$$
CREATE DEFINER=`root`@`127.0.0.1` FUNCTION `HTML_UnEncode`(x VARCHAR(255)) RETURNS varchar(255) CHARSET latin1
BEGIN

DECLARE TextString VARCHAR(255) ;
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
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 ;

RETURN TextString ;

END$$

DELIMITER ;
	DELIMITER $$

	DROP FUNCTION IF EXISTS `database`.`HTML_UnEncode`$$
	CREATE DEFINER=`root`@`127.0.0.1` FUNCTION `HTML_UnEncode`(x VARCHAR(255)) RETURNS varchar(255) CHARSET latin1
	BEGIN

	DECLARE TextString VARCHAR(255) ;
	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
	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 ;

	RETURN TextString ;

	END$$

	DELIMITER ;