From 245ac8d71618c116e5d2b7d5e507135f3b54bc0e Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 3 May 2017 15:30:27 -0300 Subject: [PATCH] Bug 18152: Leader 9 for UNIMARC records must be blank --- C4/Charset.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/C4/Charset.pm b/C4/Charset.pm index 906321f..93b6caa 100644 --- a/C4/Charset.pm +++ b/C4/Charset.pm @@ -324,6 +324,7 @@ sub SetMarcUnicodeFlag { my $marc_record = shift; my $marc_flavour = shift; # || C4::Context->preference("marcflavour"); + $marc_record->encoding('UTF-8'); if ($marc_flavour eq 'MARC21' || $marc_flavour eq 'NORMARC') { my $leader = $marc_record->leader(); substr($leader, 9, 1) = 'a'; @@ -352,6 +353,11 @@ sub SetMarcUnicodeFlag { $marc_record->insert_grouped_field( MARC::Field->new( 100, '', '', "a" => $string ) ); } + + my $leader = $marc_record->leader(); + substr($leader, 9, 1) = ' '; + $marc_record->leader($leader); + $debug && warn "encodage: ", substr( $marc_record->subfield(100, 'a'), $encodingposition, 3 ); } else { warn "Unrecognized marcflavour: $marc_flavour"; -- 2.9.3