From 6c13880e172da310f00d5131ecc84ab2de2f794c Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 20 Apr 2011 14:49:12 +0000 Subject: [PATCH] Reorder some functions to avoid creation failure on an empty db; remove unused (and installation-killing) tsvector aggregate git-svn-id: svn://svn.open-ils.org/ILS/trunk@20238 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/sql/Pg/000.functions.general.sql | 29 +++++-------------- .../src/sql/Pg/002.functions.aggregate.sql | 17 ----------- Open-ILS/src/sql/Pg/040.schema.asset.sql | 13 +++++++++ 3 files changed, 21 insertions(+), 38 deletions(-) diff --git a/Open-ILS/src/sql/Pg/000.functions.general.sql b/Open-ILS/src/sql/Pg/000.functions.general.sql index 5204ceee1e..2bf6340fff 100644 --- a/Open-ILS/src/sql/Pg/000.functions.general.sql +++ b/Open-ILS/src/sql/Pg/000.functions.general.sql @@ -7,6 +7,14 @@ BEGIN; CREATE SCHEMA evergreen; +CREATE OR REPLACE FUNCTION evergreen.change_db_setting(setting_name TEXT, settings TEXT[]) RETURNS VOID AS $$ +BEGIN + EXECUTE 'ALTER DATABASE ' || quote_ident(current_database()) || ' SET ' || quote_ident(setting_name) || ' = ' || array_to_string(settings, ','); +END; +$$ LANGUAGE plpgsql; + +SELECT evergreen.change_db_setting('search_path', ARRAY['evergreen','public','pg_catalog']); + CREATE OR REPLACE FUNCTION evergreen.lowercase( TEXT ) RETURNS TEXT AS $$ return lc(shift); $$ LANGUAGE PLPERLU STRICT IMMUTABLE; @@ -18,25 +26,4 @@ CREATE OR REPLACE FUNCTION evergreen.xml_escape(str TEXT) RETURNS text AS $$ '>', '>'); $$ LANGUAGE SQL IMMUTABLE; -CREATE OR REPLACE FUNCTION evergreen.change_db_setting(setting_name TEXT, settings TEXT[]) RETURNS VOID AS $$ -BEGIN -EXECUTE 'ALTER DATABASE ' || quote_ident(current_database()) || ' SET ' || quote_ident(setting_name) || ' = ' || array_to_string(settings, ','); -END; -$$ LANGUAGE plpgsql; - -CREATE OR REPLACE FUNCTION evergreen.fake_fkey_tgr () RETURNS TRIGGER AS $F$ -DECLARE - copy_id BIGINT; -BEGIN - EXECUTE 'SELECT ($1).' || quote_ident(TG_ARGV[0]) INTO copy_id USING NEW; - PERFORM * FROM asset.copy WHERE id = copy_id; - IF NOT FOUND THEN - RAISE EXCEPTION 'Key (%.%=%) does not exist in asset.copy', TG_TABLE_SCHEMA, TG_TABLE_NAME, copy_id; - END IF; - RETURN NULL; -END; -$F$ LANGUAGE PLPGSQL; - -SELECT evergreen.change_db_setting('search_path', ARRAY['evergreen','public','pg_catalog']); - COMMIT; diff --git a/Open-ILS/src/sql/Pg/002.functions.aggregate.sql b/Open-ILS/src/sql/Pg/002.functions.aggregate.sql index bf4fcfa387..41f80902e3 100644 --- a/Open-ILS/src/sql/Pg/002.functions.aggregate.sql +++ b/Open-ILS/src/sql/Pg/002.functions.aggregate.sql @@ -21,7 +21,6 @@ DROP AGGREGATE IF EXISTS array_accum(anyelement) CASCADE; DROP AGGREGATE IF EXISTS public.first(anyelement) CASCADE; DROP AGGREGATE IF EXISTS public.last(anyelement) CASCADE; DROP AGGREGATE IF EXISTS public.agg_text(text) CASCADE; -DROP AGGREGATE IF EXISTS public.agg_tsvector(pg_catalog.tsvector) CASCADE; CREATE AGGREGATE array_accum ( sfunc = array_append, @@ -66,22 +65,6 @@ CREATE AGGREGATE public.agg_text ( stype = text ); -CREATE OR REPLACE FUNCTION tsvector_concat ( tsvector, tsvector ) RETURNS pg_catalog.tsvector AS $$ -SELECT - CASE WHEN $1 IS NULL - THEN $2 - WHEN $2 IS NULL - THEN $1 - ELSE $1 || ' ' || $2 - END; -$$ LANGUAGE SQL STABLE; - -CREATE AGGREGATE public.agg_tsvector ( - sfunc = tsvector_concat, - basetype = pg_catalog.tsvector, - stype = pg_catalog.tsvector -); - CREATE OR REPLACE FUNCTION public.explode_array(anyarray) RETURNS SETOF anyelement AS $BODY$ SELECT ($1)[s] FROM generate_series(1, array_upper($1, 1)) AS s; $BODY$ diff --git a/Open-ILS/src/sql/Pg/040.schema.asset.sql b/Open-ILS/src/sql/Pg/040.schema.asset.sql index 6d1e41f6bf..591543f0e4 100644 --- a/Open-ILS/src/sql/Pg/040.schema.asset.sql +++ b/Open-ILS/src/sql/Pg/040.schema.asset.sql @@ -720,5 +720,18 @@ CREATE TRIGGER autogenerate_placeholder_barcode BEFORE INSERT OR UPDATE ON asset.copy FOR EACH ROW EXECUTE PROCEDURE asset.autogenerate_placeholder_barcode(); +CREATE OR REPLACE FUNCTION evergreen.fake_fkey_tgr () RETURNS TRIGGER AS $F$ +DECLARE + copy_id BIGINT; +BEGIN + EXECUTE 'SELECT ($1).' || quote_ident(TG_ARGV[0]) INTO copy_id USING NEW; + PERFORM * FROM asset.copy WHERE id = copy_id; + IF NOT FOUND THEN + RAISE EXCEPTION 'Key (%.%=%) does not exist in asset.copy', TG_TABLE_SCHEMA, TG_TABLE_NAME, copy_id; + END IF; + RETURN NULL; +END; +$F$ LANGUAGE PLPGSQL; + COMMIT; -- 2.43.2