3 INSERT INTO config.upgrade_log (version) VALUES ('0436'); -- miker
5 CREATE OR REPLACE FUNCTION vandelay.compile_profile ( incoming_xml TEXT ) RETURNS vandelay.compile_profile AS $_$
7 output vandelay.compile_profile%ROWTYPE;
8 profile vandelay.merge_profile%ROWTYPE;
10 profile_tmpl_owner TEXT;
12 strip_rule TEXT := '';
13 replace_rule TEXT := '';
14 preserve_rule TEXT := '';
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];
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;
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,'');
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),','),'');
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,',');