Useful since you can't get unnormalized values out of metabib.full_rec
Signed-off-by: Jason Etheridge <jason@esilibrary.com>
END;
$$ LANGUAGE PLPGSQL STRICT VOLATILE;
+CREATE OR REPLACE FUNCTION migration_tools.get_marc_tag (TEXT, TEXT, TEXT) RETURNS TEXT AS $$
+ my ($marcxml, $tag, $subfield) = @_;
+
+ use MARC::Record;
+ use MARC::File::XML;
+ use MARC::Field;
+
+ my $field;
+ eval {
+ my $marc = MARC::Record->new_from_xml($marcxml, 'UTF-8');
+ $field = $marc->field($tag);
+ };
+ return $field->as_string($subfield);
+$$ LANGUAGE PLPERLU STABLE;
+