-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-- SIU - PREINSCRIPCIÓN 
-- Versión de creación / revisión: 3.7.0
-- Function: f_limpiar_acentos
--
-- Quita los tildes de una cadena de caracteres
--
-- Recibe:  Text - Cadena a quitar los tildes
-- Retorna: Text - Texto sin tildes
-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

-- Creo la extensión unaccent
CREATE EXTENSION IF NOT EXISTS unaccent;

-- DROP FUNCTION f_limpiar_acentos(text);
CREATE OR REPLACE FUNCTION f_limpiar_acentos(text)
RETURNS text
IMMUTABLE
STRICT
LANGUAGE SQL
AS $$
SELECT REPLACE(REPLACE(unaccent(REPLACE(REPLACE($1, 'Ñ', '%enie_may%'), 'ñ', '%enie_min%')), '%enie_may%', 'Ñ'), '%enie_min%', 'ñ');
$$;

GRANT EXECUTE ON FUNCTION f_limpiar_acentos(text) to public;