Unnamed

    CREATE OR REPLACE FUNCTION marc_check_error (TEXT) RETURNS TEXT AS $$            use MARC::Record;            use MARC::File::XML (BinaryEncoding => 'UTF-8');            my $record;            eval {                    $record = MARC::Record->new_from_xml($_[0])            };            return $@;    $$ LANGUAGE plperlu;