projects
/
migration-tools.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
improve marc_parses() test
[migration-tools.git]
/
sql
/
base
/
base.sql
diff --git
a/sql/base/base.sql
b/sql/base/base.sql
index
b033fe1
..
f0b5654
100644
(file)
--- a/
sql/base/base.sql
+++ b/
sql/base/base.sql
@@
-1636,7
+1636,10
@@
MARC::Charset->assume_unicode(1);
my $xml = shift;
-eval { my $r = MARC::Record->new_from_xml( $xml ); };
+eval {
+ my $r = MARC::Record->new_from_xml( $xml );
+ my $output_xml = $r->as_xml_record();
+};
if ($@) {
return 0;
} else {