Initial commit
This commit is contained in:
Luka Romih
@@ -0,0 +1,273 @@
|
||||
CREATE OR REPLACE FUNCTION jsonb_array_to_text_array(_js jsonb)
|
||||
RETURNS text[]
|
||||
LANGUAGE sql IMMUTABLE PARALLEL SAFE STRICT AS
|
||||
$$SELECT CASE WHEN _js = 'null' THEN NULL ELSE ARRAY(SELECT jsonb_array_elements_text(_js)) END$$;
|
||||
|
||||
-- Creates new dictionary from remote instance.
|
||||
CREATE OR REPLACE FUNCTION dictionary_remote_new (_dictionary JSONB, OUT _dictionary_id dictionary.id%type)
|
||||
LANGUAGE plpgsql AS $$
|
||||
DECLARE
|
||||
_domain_secondary_names JSONB[] := jsonb_array_to_text_array(_dictionary -> 'domain_secondary_names')::JSONB[];
|
||||
_domain_secondary_name JSONB;
|
||||
_domain_secondary_id domain_secondary.id%type;
|
||||
_language_codes VARCHAR[] := jsonb_array_to_text_array(_dictionary -> 'language_codes');
|
||||
_language_id language.id%type;
|
||||
|
||||
BEGIN
|
||||
-- Disable trigger from updating time_modified.
|
||||
SET LOCAL term_portal.skip_update_time_modified TO 'TRUE';
|
||||
|
||||
-- Create new dictionary.
|
||||
INSERT INTO dictionary (
|
||||
name_sl,
|
||||
name_sl_short,
|
||||
name_en,
|
||||
author,
|
||||
issn,
|
||||
domain_primary_id,
|
||||
time_created,
|
||||
time_modified,
|
||||
time_content_modified,
|
||||
status,
|
||||
description,
|
||||
entries_have_domain_labels,
|
||||
entries_have_label,
|
||||
entries_have_definition,
|
||||
entries_have_synonyms,
|
||||
entries_have_links,
|
||||
entries_have_other,
|
||||
entries_have_foreign_languages,
|
||||
entries_have_foreign_definitions,
|
||||
entries_have_foreign_synonyms,
|
||||
entries_have_images,
|
||||
entries_have_audio,
|
||||
entries_have_videos,
|
||||
entries_have_terminology_review_flag,
|
||||
entries_have_language_review_flag
|
||||
)
|
||||
VALUES (
|
||||
_dictionary ->> 'name_sl',
|
||||
_dictionary ->> 'name_sl_short',
|
||||
_dictionary ->> 'name_en',
|
||||
jsonb_array_to_text_array(_dictionary -> 'author'),
|
||||
_dictionary ->> 'issn',
|
||||
COALESCE(
|
||||
(SELECT id FROM domain_primary WHERE name_sl = _dictionary ->> 'domain_primary_name_sl'),
|
||||
(SELECT id FROM domain_primary WHERE name_sl = 'Neopredeljeno')
|
||||
),
|
||||
(_dictionary ->> 'time_created')::TIMESTAMPTZ,
|
||||
(_dictionary ->> 'time_modified')::TIMESTAMPTZ,
|
||||
(_dictionary ->> 'time_content_modified')::TIMESTAMPTZ,
|
||||
'published',
|
||||
_dictionary ->> 'description',
|
||||
(_dictionary ->> 'entries_have_domain_labels')::BOOL,
|
||||
(_dictionary ->> 'entries_have_label')::BOOL,
|
||||
(_dictionary ->> 'entries_have_definition')::BOOL,
|
||||
(_dictionary ->> 'entries_have_synonyms')::BOOL,
|
||||
(_dictionary ->> 'entries_have_links')::BOOL,
|
||||
(_dictionary ->> 'entries_have_other')::BOOL,
|
||||
(_dictionary ->> 'entries_have_foreign_languages')::BOOL,
|
||||
(_dictionary ->> 'entries_have_foreign_definitions')::BOOL,
|
||||
(_dictionary ->> 'entries_have_foreign_synonyms')::BOOL,
|
||||
(_dictionary ->> 'entries_have_images')::BOOL,
|
||||
(_dictionary ->> 'entries_have_audio')::BOOL,
|
||||
(_dictionary ->> 'entries_have_videos')::BOOL,
|
||||
(_dictionary ->> 'entries_have_terminology_review_flag')::BOOL,
|
||||
(_dictionary ->> 'entries_have_language_review_flag')::BOOL
|
||||
)
|
||||
RETURNING id
|
||||
INTO _dictionary_id;
|
||||
|
||||
-- Create and/or associate secondary domains.
|
||||
FOREACH _domain_secondary_name IN ARRAY _domain_secondary_names LOOP
|
||||
|
||||
SELECT id
|
||||
INTO _domain_secondary_id
|
||||
FROM domain_secondary
|
||||
WHERE name_sl = _domain_secondary_name ->> 'name_sl' AND name_en = _domain_secondary_name ->> 'name_en';
|
||||
|
||||
IF _domain_secondary_id IS NULL THEN
|
||||
INSERT INTO domain_secondary (name_sl, name_en)
|
||||
VALUES
|
||||
(_domain_secondary_name ->> 'name_sl', _domain_secondary_name ->> 'name_en')
|
||||
RETURNING id
|
||||
INTO _domain_secondary_id;
|
||||
END IF;
|
||||
|
||||
INSERT INTO dictionary_domain_secondary (dictionary_id, domain_secondary_id)
|
||||
VALUES (_dictionary_id, _domain_secondary_id);
|
||||
|
||||
END LOOP;
|
||||
|
||||
-- Associate languages.
|
||||
FOR i IN 1..COALESCE(array_length(_language_codes, 1), 0) LOOP
|
||||
|
||||
SELECT id INTO _language_id FROM language WHERE code = _language_codes[i];
|
||||
|
||||
IF _language_id IS NOT NULL THEN
|
||||
INSERT INTO dictionary_language (dictionary_id, language_id, selection_order)
|
||||
VALUES (_dictionary_id, _language_id, i);
|
||||
END IF;
|
||||
|
||||
END LOOP;
|
||||
|
||||
END
|
||||
$$;
|
||||
|
||||
-- Updates dictionary from remote instance.
|
||||
CREATE OR REPLACE FUNCTION dictionary_remote_update (_dictionary_id dictionary.id%type, _dictionary JSONB)
|
||||
RETURNS void
|
||||
LANGUAGE plpgsql AS $$
|
||||
DECLARE
|
||||
_domain_secondary_names JSONB[] := jsonb_array_to_text_array(_dictionary -> 'domain_secondary_names')::JSONB[];
|
||||
_domain_secondary_name JSONB;
|
||||
_domain_secondary_id domain_secondary.id%type;
|
||||
_language_codes VARCHAR[] := jsonb_array_to_text_array(_dictionary -> 'language_codes');
|
||||
_language_id language.id%type;
|
||||
|
||||
BEGIN
|
||||
-- Disable trigger from updating time_modified.
|
||||
SET LOCAL term_portal.skip_update_time_modified TO 'TRUE';
|
||||
|
||||
-- Update dictionary table.
|
||||
UPDATE dictionary
|
||||
SET
|
||||
name_sl = _dictionary ->> 'name_sl',
|
||||
name_sl_short = _dictionary ->> 'name_sl_short',
|
||||
name_en = _dictionary ->> 'name_en',
|
||||
author = jsonb_array_to_text_array(_dictionary -> 'author'),
|
||||
issn = _dictionary ->> 'issn',
|
||||
domain_primary_id = COALESCE(
|
||||
(SELECT id FROM domain_primary WHERE name_sl = _dictionary ->> 'domain_primary_name_sl'),
|
||||
(SELECT id FROM domain_primary WHERE name_sl = 'Neopredeljeno')
|
||||
),
|
||||
time_created = (_dictionary ->> 'time_created')::TIMESTAMPTZ,
|
||||
time_modified = (_dictionary ->> 'time_modified')::TIMESTAMPTZ,
|
||||
time_content_modified = (_dictionary ->> 'time_content_modified')::TIMESTAMPTZ,
|
||||
description = _dictionary ->> 'description',
|
||||
entries_have_domain_labels = (_dictionary ->> 'entries_have_domain_labels')::BOOL,
|
||||
entries_have_label = (_dictionary ->> 'entries_have_label')::BOOL,
|
||||
entries_have_definition = (_dictionary ->> 'entries_have_definition')::BOOL,
|
||||
entries_have_synonyms = (_dictionary ->> 'entries_have_synonyms')::BOOL,
|
||||
entries_have_links =(_dictionary ->> 'entries_have_links')::BOOL,
|
||||
entries_have_other = (_dictionary ->> 'entries_have_other')::BOOL,
|
||||
entries_have_foreign_languages = (_dictionary ->> 'entries_have_foreign_languages')::BOOL,
|
||||
entries_have_foreign_definitions = (_dictionary ->> 'entries_have_foreign_definitions')::BOOL,
|
||||
entries_have_foreign_synonyms = (_dictionary ->> 'entries_have_foreign_synonyms')::BOOL,
|
||||
entries_have_images = (_dictionary ->> 'entries_have_images')::BOOL,
|
||||
entries_have_audio = (_dictionary ->> 'entries_have_audio')::BOOL,
|
||||
entries_have_videos = (_dictionary ->> 'entries_have_videos')::BOOL,
|
||||
entries_have_terminology_review_flag = (_dictionary ->> 'entries_have_terminology_review_flag')::BOOL,
|
||||
entries_have_language_review_flag = (_dictionary ->> 'entries_have_language_review_flag')::BOOL
|
||||
WHERE id = _dictionary_id;
|
||||
|
||||
-- Delete all existing secondary domain associations.
|
||||
DELETE
|
||||
FROM dictionary_domain_secondary
|
||||
WHERE dictionary_id = _dictionary_id;
|
||||
|
||||
-- Create and/or associate new secondary domains, if any.
|
||||
FOREACH _domain_secondary_name IN ARRAY _domain_secondary_names LOOP
|
||||
|
||||
SELECT id
|
||||
INTO _domain_secondary_id
|
||||
FROM domain_secondary
|
||||
WHERE name_sl = _domain_secondary_name ->> 'name_sl' AND name_en = _domain_secondary_name ->> 'name_en';
|
||||
|
||||
IF _domain_secondary_id IS NULL THEN
|
||||
INSERT INTO domain_secondary (name_sl, name_en)
|
||||
VALUES
|
||||
(_domain_secondary_name ->> 'name_sl', _domain_secondary_name ->> 'name_en')
|
||||
RETURNING id
|
||||
INTO _domain_secondary_id;
|
||||
END IF;
|
||||
|
||||
INSERT INTO dictionary_domain_secondary (dictionary_id, domain_secondary_id)
|
||||
VALUES (_dictionary_id, _domain_secondary_id);
|
||||
|
||||
END LOOP;
|
||||
|
||||
-- Delete all existing language associations.
|
||||
DELETE
|
||||
FROM dictionary_language
|
||||
WHERE dictionary_id = _dictionary_id;
|
||||
|
||||
-- Associate new languages, if any.
|
||||
FOR i IN 1..COALESCE(array_length(_language_codes, 1), 0) LOOP
|
||||
|
||||
SELECT id INTO _language_id FROM language WHERE code = _language_codes[i];
|
||||
|
||||
IF _language_id IS NOT NULL THEN
|
||||
INSERT INTO dictionary_language (dictionary_id, language_id, selection_order)
|
||||
VALUES (_dictionary_id, _language_id, i);
|
||||
END IF;
|
||||
|
||||
END LOOP;
|
||||
|
||||
END
|
||||
$$;
|
||||
|
||||
-- Sync remote dictionaries (but not entries).
|
||||
CREATE OR REPLACE FUNCTION sync_remote_dictionaries (
|
||||
_linked_portal_id linked_portal.id%type,
|
||||
_dictionaries JSONB[]
|
||||
)
|
||||
RETURNS void
|
||||
LANGUAGE PLPGSQL
|
||||
AS $$
|
||||
DECLARE
|
||||
_dictionary JSONB;
|
||||
_source_dictionary_id linked_dictionary.source_dictionary_id%type;
|
||||
_target_dictionary_id linked_dictionary.target_dictionary_id%type;
|
||||
_remote_dictionary_ids VARCHAR[] := ARRAY[]::VARCHAR[];
|
||||
_time_modified_old dictionary.time_modified%type;
|
||||
_time_modified_new dictionary.time_modified%type;
|
||||
|
||||
BEGIN
|
||||
-- For each of the provided dictionaries: create | update | skip.
|
||||
FOREACH _dictionary IN ARRAY _dictionaries LOOP
|
||||
_source_dictionary_id := _dictionary ->> 'id';
|
||||
_remote_dictionary_ids = _remote_dictionary_ids || _source_dictionary_id;
|
||||
|
||||
SELECT target_dictionary_id INTO _target_dictionary_id FROM linked_dictionary WHERE source_dictionary_id = _source_dictionary_id;
|
||||
|
||||
-- Check if dictionary doesn't exist yet.
|
||||
IF _target_dictionary_id IS NULL THEN
|
||||
-- Create new dictionary.
|
||||
SELECT dictionary_remote_new(_dictionary) INTO _target_dictionary_id;
|
||||
|
||||
-- Create new linked dictionary.
|
||||
INSERT INTO linked_dictionary(name, linked_portal_id, source_dictionary_id, target_dictionary_id)
|
||||
VALUES (_dictionary ->> 'name_sl', _linked_portal_id, _source_dictionary_id, _target_dictionary_id);
|
||||
|
||||
ELSE
|
||||
-- Dictionary already exists.
|
||||
-- Compare modification times to determine if update is required.
|
||||
SELECT time_modified INTO _time_modified_old FROM dictionary WHERE id = _target_dictionary_id;
|
||||
_time_modified_new := _dictionary ->> 'time_modified';
|
||||
|
||||
-- Skip this dictionary, if modification times match.
|
||||
CONTINUE WHEN _time_modified_new = _time_modified_old;
|
||||
|
||||
-- Update dictionary.
|
||||
PERFORM dictionary_remote_update(_target_dictionary_id, _dictionary);
|
||||
|
||||
-- Update linked dictionary.
|
||||
UPDATE linked_dictionary
|
||||
SET name = _dictionary ->> 'name_sl'
|
||||
WHERE target_dictionary_id = _target_dictionary_id;
|
||||
|
||||
END IF;
|
||||
|
||||
END LOOP;
|
||||
|
||||
-- Delete any existing dictionaries that were not provided to be synced.
|
||||
DELETE FROM dictionary
|
||||
WHERE id IN (
|
||||
SELECT target_dictionary_id
|
||||
FROM linked_dictionary
|
||||
WHERE linked_portal_id = _linked_portal_id AND source_dictionary_id <> ALL (_remote_dictionary_ids)
|
||||
);
|
||||
|
||||
END
|
||||
$$;
|
||||
Reference in New Issue
Block a user