projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(from parent 1:
8dbe445
)
improve marc_parses() test
author
Galen Charlton
<gmc@esilibrary.com>
Fri, 19 Oct 2012 14:10:29 +0000 (10:10 -0400)
committer
Galen Charlton
<gmc@esilibrary.com>
Fri, 19 Oct 2012 14:10:29 +0000 (10:10 -0400)
If the Leader/09 is not 'a' and the record has diacritics,
MARC::Record and friends don't complain until you try to
emit a MARCXML record.
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
sql/base/base.sql
patch
|
blob
|
history
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 {