rec_id THEN PERFORM * FROM authority.record_entry WHERE id = link::BIGINT; IF FOUND THEN aal.target := link::BIGINT; aal.field := acsaf.id; RETURN NEXT aal; END IF; END IF; END LOOP; END LOOP; END;]]> xfrm.name THEN -- Can't skip the transform IF xfrm.xslt <> '---' THEN transformed_xml := oils_xslt_process(marc, xfrm.xslt); ELSE transformed_xml := marc; END IF; prev_xfrm := xfrm.name; END IF; IF idx.thesaurus_xpath IS NOT NULL THEN base_thesaurus := ARRAY_TO_STRING(oils_xpath(idx.thesaurus_xpath, transformed_xml, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]]), ''); END IF; heading_node_list := oils_xpath( idx.heading_xpath, transformed_xml, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]] ); FOR heading_node IN SELECT x FROM unnest(heading_node_list) AS x LOOP CONTINUE WHEN heading_node !~ E'^\\s*<'; output_row.variant_type := NULL; output_row.related_type := NULL; output_row.thesaurus := NULL; output_row.heading := NULL; IF idx.heading_purpose = 'variant' AND idx.type_xpath IS NOT NULL THEN type_value := ARRAY_TO_STRING(oils_xpath(idx.type_xpath, heading_node, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]]), ''); BEGIN output_row.variant_type := type_value; EXCEPTION WHEN invalid_text_representation THEN RAISE NOTICE 'Do not recognize variant heading type %', type_value; END; END IF; IF idx.heading_purpose = 'related' AND idx.type_xpath IS NOT NULL THEN type_value := ARRAY_TO_STRING(oils_xpath(idx.type_xpath, heading_node, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]]), ''); BEGIN output_row.related_type := type_value; EXCEPTION WHEN invalid_text_representation THEN RAISE NOTICE 'Do not recognize related heading type %', type_value; END; END IF; IF idx.thesaurus_override_xpath IS NOT NULL THEN output_row.thesaurus := ARRAY_TO_STRING(oils_xpath(idx.thesaurus_override_xpath, heading_node, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]]), ''); END IF; IF output_row.thesaurus IS NULL THEN output_row.thesaurus := base_thesaurus; END IF; raw_text := NULL; -- now iterate over components of heading component_node_list := oils_xpath( idx.component_xpath, heading_node, ARRAY[ARRAY[xfrm.prefix, xfrm.namespace_uri]] ); FOR component_node IN SELECT x FROM unnest(component_node_list) AS x LOOP -- XXX much of this should be moved into oils_xpath_string... curr_text := ARRAY_TO_STRING(array_remove(array_remove( oils_xpath( '//text()', -- get the content of all the nodes within the main selected node REGEXP_REPLACE( component_node, E'\\s+', ' ', 'g' ) -- Translate adjacent whitespace to a single space ), ' '), ''), -- throw away morally empty (bankrupt?) strings joiner ); CONTINUE WHEN curr_text IS NULL OR curr_text = ''; IF raw_text IS NOT NULL THEN raw_text := raw_text || joiner; END IF; raw_text := COALESCE(raw_text,'') || curr_text; END LOOP; IF raw_text IS NOT NULL THEN output_row.heading := raw_text; normalized_text := raw_text; FOR normalizer IN SELECT n.func AS func, n.param_count AS param_count, m.params AS params FROM config.index_normalizer n JOIN authority.heading_field_norm_map m ON (m.norm = n.id) WHERE m.field = idx.id ORDER BY m.pos LOOP EXECUTE 'SELECT ' || normalizer.func || '(' || quote_literal( normalized_text ) || CASE WHEN normalizer.param_count > 0 THEN ',' || REPLACE(REPLACE(BTRIM(normalizer.params,'[]'),E'\'',E'\\\''),E'"',E'\'') ELSE '' END || ')' INTO normalized_text; END LOOP; output_row.normalized_heading := normalized_text; RETURN NEXT output_row; END IF; END LOOP; END LOOP; END;]]> 0 THEN FOR bib_field IN SELECT * FROM authority.control_set_bib_field WHERE authority_field = main_entry.id LOOP SELECT XMLELEMENT( -- XMLAGG avoids magical creation, but requires unnest subquery name datafield, XMLATTRIBUTES(bib_field.tag AS tag, auth_i1 AS ind1, auth_i2 AS ind2), XMLAGG(UNNEST) ) INTO tmp_data FROM UNNEST(XPATH('//*[local-name()="subfield"]', auth_field[1])); replace_data := replace_data || tmp_data; replace_rules := replace_rules || ( bib_field.tag || main_entry.sf_list || E'[0~\\)' || auth_id || '$]' ); tmp_data = NULL; END LOOP; EXIT; END IF; END LOOP; SELECT XMLAGG(UNNEST) INTO tmp_data FROM UNNEST(replace_data); RETURN XMLELEMENT( name record, XMLATTRIBUTES('http://www.loc.gov/MARC21/slim' AS xmlns), XMLELEMENT( name leader, '00881nam a2200193 4500'), tmp_data, XMLELEMENT( name datafield, XMLATTRIBUTES( '905' AS tag, ' ' AS ind1, ' ' AS ind2), XMLELEMENT( name subfield, XMLATTRIBUTES('r' AS code), ARRAY_TO_STRING(replace_rules,',') ) ) )::TEXT; END;]]> old_heading THEN PERFORM authority.propagate_changes(auth.id); END IF; IF NOT insert_only THEN DELETE FROM authority.authority_linking WHERE source = auth.id; DELETE FROM authority.simple_heading WHERE record = auth.id; END IF; INSERT INTO authority.authority_linking (source, target, field) SELECT source, target, field FROM authority.calculate_authority_linking( auth.id, auth.control_set, auth.marc::XML ); FOR ashs IN SELECT * FROM authority.simple_heading_set(auth.marc) LOOP INSERT INTO authority.simple_heading (record,atag,value,sort_value,thesaurus) VALUES (ashs.record, ashs.atag, ashs.value, ashs.sort_value, ashs.thesaurus); ash_id := CURRVAL('authority.simple_heading_id_seq'::REGCLASS); SELECT INTO mbe_row * FROM metabib.browse_entry WHERE value = ashs.value AND sort_value = ashs.sort_value; IF FOUND THEN mbe_id := mbe_row.id; ELSE INSERT INTO metabib.browse_entry ( value, sort_value ) VALUES ( ashs.value, ashs.sort_value ); mbe_id := CURRVAL('metabib.browse_entry_id_seq'::REGCLASS); END IF; INSERT INTO metabib.browse_entry_simple_heading_map (entry,simple_heading) VALUES (mbe_id,ash_id); END LOOP; -- Flatten and insert the afr data PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_authority_full_rec' AND enabled; IF NOT FOUND THEN PERFORM authority.reingest_authority_full_rec(auth.id); PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_authority_rec_descriptor' AND enabled; IF NOT FOUND THEN PERFORM authority.reingest_authority_rec_descriptor(auth.id); END IF; END IF; PERFORM * FROM config.internal_flag WHERE name = 'ingest.disable_symspell_reification' AND enabled; IF NOT FOUND THEN PERFORM search.symspell_dictionary_reify(); END IF; RETURN TRUE; EXCEPTION WHEN OTHERS THEN GET STACKED DIAGNOSTICS diag_detail = PG_EXCEPTION_DETAIL, diag_context = PG_EXCEPTION_CONTEXT; RAISE WARNING '%\n%', diag_detail, diag_context; RETURN FALSE; END;]]> [^<]*?\\))' || source_record || '<', E'\\1' || target_record || '<', 'g' ) WHERE id = bib_rec.id; moved_objects := moved_objects + 1; END LOOP; -- 2. Grab the current value of reingest on same MARC flag SELECT enabled INTO ingest_same FROM config.internal_flag WHERE name = 'ingest.reingest.force_on_same_marc' ; -- 3. Temporarily set reingest on same to TRUE UPDATE config.internal_flag SET enabled = TRUE WHERE name = 'ingest.reingest.force_on_same_marc' ; -- 4. Make a harmless update to target_record to trigger auto-update -- in linked bibliographic records UPDATE authority.record_entry SET deleted = FALSE WHERE id = target_record; -- 5. "Delete" source_record DELETE FROM authority.record_entry WHERE id = source_record; -- 6. Set "reingest on same MARC" flag back to initial value UPDATE config.internal_flag SET enabled = ingest_same WHERE name = 'ingest.reingest.force_on_same_marc' ; RETURN moved_objects; END;]]> '' THEN heading_text := heading_text || E'\u2021' || sf || ' ' || tmp_text; END IF; END LOOP; EXIT WHEN heading_text <> ''; END LOOP; EXIT WHEN heading_text <> ''; END LOOP; IF heading_text <> '' THEN IF no_thesaurus IS TRUE THEN heading_text := tag_used || ' ' || public.naco_normalize(heading_text); ELSE thes_code := authority.extract_thesaurus(marcxml); heading_text := tag_used || '_' || COALESCE(nfi_used,'-') || '_' || thes_code || ' ' || public.naco_normalize(heading_text); END IF; ELSE heading_text := 'NOHEADING_' || thes_code || ' ' || MD5(marcxml); END IF; RETURN heading_text; END;]]> 0 THEN alimit := alimit + 1; END IF; ELSE blimit := pagesize; alimit := blimit; boffset := pagesize / 2; aoffset := boffset; IF pagesize % 2 <> 0 THEN boffset := boffset + 1; END IF; END IF; IF page <= 0 THEN RETURN QUERY -- "bottom" half of the browse results SELECT id FROM ( SELECT ash.id, row_number() over () FROM authority.simple_heading ash WHERE ash.atag = ANY (atag_list) AND CASE thesauruses WHEN '' THEN TRUE ELSE ash.thesaurus = ANY(regexp_split_to_array(thesauruses, ',')) END AND ash.sort_value < pivot_sort_value ORDER BY ash.sort_value DESC LIMIT blimit OFFSET ABS(page) * pagesize - boffset ) x ORDER BY row_number DESC; END IF; IF page >= 0 THEN RETURN QUERY -- "bottom" half of the browse results SELECT ash.id FROM authority.simple_heading ash WHERE ash.atag = ANY (atag_list) AND CASE thesauruses WHEN '' THEN TRUE ELSE ash.thesaurus = ANY(regexp_split_to_array(thesauruses, ',')) END AND ash.sort_value >= pivot_sort_value ORDER BY ash.sort_value LIMIT alimit OFFSET ABS(page) * pagesize - aoffset; END IF; END;]]> = 0 THEN RETURN QUERY -- "bottom" half of the browse results SELECT ash.id FROM authority.simple_heading ash WHERE ash.atag = ANY (atag_list) AND CASE thesauruses WHEN '' THEN TRUE ELSE ash.thesaurus = ANY(regexp_split_to_array(thesauruses, ',')) END AND ash.sort_value >= pivot_sort_value ORDER BY ash.sort_value LIMIT pagesize OFFSET ABS(page) * pagesize ; END IF; END;]]> = t_term AND CASE thesauruses WHEN '' THEN TRUE ELSE ash.thesaurus = ANY(regexp_split_to_array(thesauruses, ',')) END ORDER BY rank DESC, ash.sort_value LIMIT 1; SELECT CASE WHEN ash.sort_value LIKE t_term || '%' THEN 1 ELSE 0 END + CASE WHEN ash.value LIKE t_term || '%' THEN 1 ELSE 0 END AS rank, ash.sort_value INTO value_row FROM authority.simple_heading ash WHERE ash.atag = ANY (a) AND ash.value >= t_term AND CASE thesauruses WHEN '' THEN TRUE ELSE ash.thesaurus = ANY(regexp_split_to_array(thesauruses, ',')) END ORDER BY rank DESC, ash.sort_value LIMIT 1; IF value_row.rank > sort_value_row.rank THEN RETURN value_row.sort_value; ELSE RETURN sort_value_row.sort_value; END IF; END;]]> '' THEN res.value := heading_text; res.sort_value := public.naco_normalize(sort_text); res.index_vector = to_tsvector('keyword'::regconfig, res.sort_value); RETURN NEXT res; END IF; END LOOP; ELSE FOR heading_row IN SELECT * FROM authority.extract_headings(marcxml, ARRAY[acsaf.heading_field]) LOOP res.value := heading_row.heading; res.sort_value := heading_row.normalized_heading; res.index_vector = to_tsvector('keyword'::regconfig, res.sort_value); RETURN NEXT res; END LOOP; END IF; END LOOP; RETURN; END;]]>