-- Generation Time: Jun 12, 2007
-- Last update: Oct 16, 2007
-- Database: `flib`
--
-- BY JULIO RAFFO (EPFL/CEMI)
--
-- --------------------------------------------------------


DELIMITER $$

DROP FUNCTION IF EXISTS flib.noaccents $$
CREATE FUNCTION  flib.noaccents(dirtystring VARCHAR(500)) RETURNS varchar(500) CHARSET utf8
BEGIN

  DECLARE tempstring varchar(500);

  set tempstring = dirtystring;

  set tempstring=replace(tempstring,'Á','A');
  set tempstring=replace(tempstring,'á','a');
  set tempstring=replace(tempstring,'Á','A');
  set tempstring=replace(tempstring,'à','a');
  set tempstring=replace(tempstring,'À','A');
  set tempstring=replace(tempstring,'â','a');
  set tempstring=replace(tempstring,'Â','A');
  set tempstring=replace(tempstring,'Ã','A');
  set tempstring=replace(tempstring,'ã','a');
  set tempstring=replace(tempstring,'Å','A');
  set tempstring=replace(tempstring,'å','a');
  set tempstring=replace(tempstring,'Ä','A');
  set tempstring=replace(tempstring,'ä','a');
  set tempstring=replace(tempstring,'Æ','AE');
  set tempstring=replace(tempstring,'æ','ae');
  set tempstring=replace(tempstring,'Ç','C');
  set tempstring=replace(tempstring,'ç','c');
  set tempstring=replace(tempstring,'é','e');
  set tempstring=replace(tempstring,'É','E');
  set tempstring=replace(tempstring,'È','E');
  set tempstring=replace(tempstring,'è','e');
  set tempstring=replace(tempstring,'Ê','E');
  set tempstring=replace(tempstring,'ë','e');
  set tempstring=replace(tempstring,'Ë','E');
  set tempstring=replace(tempstring,'Í','I');
  set tempstring=replace(tempstring,'í','i');
  set tempstring=replace(tempstring,'ï','i');
  set tempstring=replace(tempstring,'Ï','I');
  set tempstring=replace(tempstring,'Ñ','N');
  set tempstring=replace(tempstring,'ñ','n');
  set tempstring=replace(tempstring,'ó','o');
  set tempstring=replace(tempstring,'Ó','O');
  set tempstring=replace(tempstring,'Ò','O');
  set tempstring=replace(tempstring,'Ô','O');
  set tempstring=replace(tempstring,'ô','o');
  set tempstring=replace(tempstring,'Õ','O');
  set tempstring=replace(tempstring,'Ø','O');
  set tempstring=replace(tempstring,'ø','o');
  set tempstring=replace(tempstring,'ö','o');
  set tempstring=replace(tempstring,'Ö','O');
  set tempstring=replace(tempstring,'ú','u');
  set tempstring=replace(tempstring,'Ú','U');
  set tempstring=replace(tempstring,'ù','u');
  set tempstring=replace(tempstring,'Û','U');
  set tempstring=replace(tempstring,'Ü','U');
  set tempstring=replace(tempstring,'ü','u');

RETURN tempstring;

END;

 $$

DELIMITER ;