Open-ILS/src/sql/Pg/upgrade/0436.schema.multiple-rules.sql

   1 BEGIN;
   2
   3 INSERT INTO config.upgrade_log (version) VALUES ('0436'); -- miker
   4
   5 CREATE OR REPLACE FUNCTION vandelay.compile_profile ( incoming_xml TEXT ) RETURNS vandelay.compile_profile AS $_$
   6 DECLARE
   7     output              vandelay.compile_profile%ROWTYPE;
   8     profile             vandelay.merge_profile%ROWTYPE;
   9     profile_tmpl        TEXT;
  10     profile_tmpl_owner  TEXT;
  11     add_rule            TEXT := '';
  12     strip_rule          TEXT := '';
  13     replace_rule        TEXT := '';
  14     preserve_rule       TEXT := '';
  15
  16 BEGIN
  17
  18     profile_tmpl := (oils_xpath('//*[@tag="905"]/*[@code="t"]/text()',incoming_xml))[1];
  19     profile_tmpl_owner := (oils_xpath('//*[@tag="905"]/*[@code="o"]/text()',incoming_xml))[1];
  20
  21     IF profile_tmpl IS NOT NULL AND profile_tmpl <> '' AND profile_tmpl_owner IS NOT NULL AND profile_tmpl_owner <> '' THEN
  22         SELECT  p.* INTO profile
  23           FROM  vandelay.merge_profile p
  24                 JOIN actor.org_unit u ON (u.id = p.owner)
  25           WHERE p.name = profile_tmpl
  26                 AND u.shortname = profile_tmpl_owner;
  27
  28         IF profile.id IS NOT NULL THEN
  29             add_rule := COALESCE(profile.add_spec,'');
  30             strip_rule := COALESCE(profile.strip_spec,'');
  31             replace_rule := COALESCE(profile.replace_spec,'');
  32             preserve_rule := COALESCE(profile.preserve_spec,'');
  33         END IF;
  34     END IF;
  35
  36     add_rule := add_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="a"]/text()',incoming_xml),','),'');
  37     strip_rule := strip_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="d"]/text()',incoming_xml),','),'');
  38     replace_rule := replace_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="r"]/text()',incoming_xml),','),'');
  39     preserve_rule := preserve_rule || ',' || COALESCE(ARRAY_TO_STRING(oils_xpath('//*[@tag="905"]/*[@code="p"]/text()',incoming_xml),','),'');
  40
  41     output.add_rule := BTRIM(add_rule,',');
  42     output.replace_rule := BTRIM(replace_rule,',');
  43     output.strip_rule := BTRIM(strip_rule,',');
  44     output.preserve_rule := BTRIM(preserve_rule,',');
  45
  46     RETURN output;
  47 END;
  48 $_$ LANGUAGE PLPGSQL;
  49
  50 COMMIT;