a quality of life function to make it easier to modify the fixed fields in a biblio...

[migration-tools.git] / sql / base / 21-fixed-fields.sql

diff --git a/sql/base/21-fixed-fields.sql b/sql/base/21-fixed-fields.sql
index fe9c3d0..b771c05 100644 (file)
--- a/sql/base/21-fixed-fields.sql
+++ b/sql/base/21-fixed-fields.sql
@@ -64,7 +64,7 @@ BEGIN
         );
     END IF;
     IF rmarc IS NULL THEN
-        SELECT marc INTO rmarc FROM biblio_record_entry_legacy WHERE id = rid;
+        SELECT marc INTO rmarc FROM m_biblio_record_entry_legacy WHERE id = rid;
     END IF;
 
     FOR attr_def IN SELECT * FROM config.record_attr_definition WHERE NOT composite AND name = ANY( attr_list ) ORDER BY format LOOP
@@ -265,7 +265,7 @@ BEGIN
        SELECT ARRAY_AGG(code) FROM config.coded_value_map WHERE id IN (SELECT UNNEST(vlist)) 
                AND ctype = 'search_format' INTO search;
 
-       UPDATE biblio_record_entry_legacy SET x_search_format = search  WHERE id = rid;
+       UPDATE m_biblio_record_entry_legacy SET x_search_format = search  WHERE id = rid;
 END;
 $func$ LANGUAGE PLPGSQL;
 
@@ -294,7 +294,7 @@ BEGIN
     SELECT ARRAY_AGG(code) FROM config.coded_value_map WHERE id IN (SELECT UNNEST(vlist))
         AND ctype = 'search_format' INTO search;
 
-    UPDATE biblio_record_entry_legacy SET x_after_search_format = search WHERE id = rid;
+    UPDATE m_biblio_record_entry_legacy SET x_after_search_format = search WHERE id = rid;
 END;
 $func$ LANGUAGE PLPGSQL;
 
@@ -305,14 +305,14 @@ DECLARE
     y   TEXT;
     w   TEXT[];
 BEGIN
-       SELECT circ_mods FROM biblio_record_entry_legacy WHERE id = rid INTO cms;
+       SELECT circ_mods FROM m_biblio_record_entry_legacy WHERE id = rid INTO cms;
     IF cms IS NOT NULL THEN
        FOREACH y IN ARRAY cms LOOP
                w := w || (SELECT sf1 FROM circ_mod_to_sf_map WHERE circ_mod = y);
             w := w || (SELECT sf2 FROM circ_mod_to_sf_map WHERE circ_mod = y);
             w := w || (SELECT sf3 FROM circ_mod_to_sf_map WHERE circ_mod = y);
         END LOOP;
-       UPDATE biblio_record_entry_legacy SET expected_sfs = w WHERE id = rid;
+       UPDATE m_biblio_record_entry_legacy SET expected_sfs = w WHERE id = rid;
     END IF;
 END;
 $func$ LANGUAGE PLPGSQL;
@@ -347,8 +347,8 @@ BEGIN
        ELSE
                ysrform_exclude := '';
        END IF;
-    SELECT migration_tools.modify_fixed_fields(marc,xcode,xitype,xiform,xphy,xphyv,xphyp,xbiblevel,yiform_exclude,ysrform_exclude) FROM biblio_record_entry_legacy WHERE id = bib_id INTO r;
-    UPDATE biblio_record_entry_legacy SET marc = r WHERE id = bib_id;
+    SELECT migration_tools.modify_fixed_fields(marc,xcode,xitype,xiform,xphy,xphyv,xphyp,xbiblevel,yiform_exclude,ysrform_exclude) FROM m_biblio_record_entry_legacy WHERE id = bib_id INTO r;
+    UPDATE m_biblio_record_entry_legacy SET marc = r WHERE id = bib_id;
     RETURN TRUE;
 END;
 $function$;
@@ -473,3 +473,38 @@ my $zzs_str;
 return $marc->as_xml_record;
 $function$;
 
+DROP FUNCTION IF EXISTS migration_tools.modify_biblio_fixed_fields (BIGINT,TEXT);
+CREATE OR REPLACE FUNCTION migration_tools.modify_biblio_fixed_fields (bib_id BIGINT, xcode TEXT)
+ RETURNS BOOLEAN
+ LANGUAGE plpgsql
+AS $function$
+DECLARE
+    r           TEXT;
+    xitype      CHAR(1);
+    xiform      CHAR(1);
+    xphy        CHAR(1);
+    xphyv       CHAR(1);
+    xphyp       SMALLINT;
+    xbiblevel   CHAR(1);
+    xiform_exclude      CHAR(1)[];
+    xsrform_exclude     CHAR(1)[];
+    yiform_exclude      TEXT;
+    ysrform_exclude     TEXT;
+BEGIN
+    SELECT itype, iform, phy, phyv, phyp, biblevel, iform_exclude, srform_exclude FROM migration_tools.search_format_map WHERE code = xcode
+        INTO xitype, xiform, xphy, xphyv, xphyp, xbiblevel, xiform_exclude, xsrform_exclude;
+    IF xiform_exclude IS NOT NULL THEN
+        yiform_exclude := ARRAY_TO_STRING(xiform_exclude,',');
+    ELSE
+        yiform_exclude := '';
+    END IF;
+    IF xsrform_exclude IS NOT NULL THEN
+        ysrform_exclude := ARRAY_TO_STRING(ysrform_exclude,',');
+    ELSE
+        ysrform_exclude := '';
+    END IF;
+    SELECT migration_tools.modify_fixed_fields(marc,xcode,xitype,xiform,xphy,xphyv,xphyp,xbiblevel,yiform_exclude,ysrform_exclude) FROM biblio.record_entry WHERE id = bib_id INTO r;
+    UPDATE biblio.record_entry SET marc = r WHERE id = bib_id;
+    RETURN TRUE;
+END;
+$function$;