From c86f5df43109244bfadda66fd899588ced658e83 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 1 Feb 2008 23:23:51 -0600 Subject: [PATCH] charset: fixed bug that prevented ISO-5426 conversion Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Charset.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Charset.pm b/C4/Charset.pm index 329c416db4..54a1322ca0 100644 --- a/C4/Charset.pm +++ b/C4/Charset.pm @@ -193,6 +193,7 @@ sub MarcToUTF8Record { } elsif ($source_encoding =~ /marc-?8/i) { @errors = _marc_marc8_to_utf8($marc_record, $marc_flavour); } elsif ($source_encoding =~ /5426/) { + @errors = _marc_iso5426_to_utf8($marc_record, $marc_flavour); } else { # assume any other character encoding is for Text::Iconv @errors = _marc_to_utf8_via_text_iconv($marc_record, $marc_flavour, 'iso-8859-1'); @@ -234,7 +235,7 @@ sub SetMarcUnicodeFlag { substr($leader, 9, 1) = 'a'; $marc_record->leader($leader); } elsif ($marc_flavour eq "UNIMARC") { - if (my $field = $marc_record->fields('100')) { + if (my $field = $marc_record->field('100')) { my $sfa = $field->subfield('a'); substr($sfa, 26, 4) = '5050'; $field->update('a' => $sfa); -- 2.39.5