-- Name: remove_suffix(text, text, boolean); Type: FUNCTION; Schema: util; Owner: -

--

CREATE FUNCTION remove_suffix(suffix text, str text, require boolean DEFAULT true) RETURNS text

    LANGUAGE sql IMMUTABLE

    AS $$

SELECT CASE

WHEN substring(str from 1+(length(str)-length(suffix))) = suffix THEN

	substring(str from 1 for length(str)-length(suffix))

WHEN NOT require THEN str

ELSE

	util.raise('data_exception', 'str does not end with suffix '

	||quote_nullable(suffix)||': '||str)::text

END

$$;

--