From b5b05dec44fcf90495d20d38f9dddc17de9fed2e Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Tue, 15 Oct 2013 15:09:08 +0100 Subject: [PATCH] [SIGNED-OFF] Bug 11054: Specify utf8 encoding when creating a child record When the only non-ascii characters in a new child record are latin + diacritic in the range covered by Latin-1 they are not being added to a new child record correctly encoded. Explicitly setting the record's encodiing ensures that they are interpreted correctly. see "Unicode Bug" in perldoc perlunicode for background on why these characters are special Signed-off-by: Bernardo Gonzalez Kriegel Works well. No koha-qa errors. Same test as before 1) with a record with diacritics in author/title, 2) press new child record, on new record 773adt with mangled accents 3) Apply patch 4) Repeat 2, now good results --- cataloguing/addbiblio.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index bfb62f0..5069af9 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -821,6 +821,7 @@ if ($hostbiblionumber) { if ($parentbiblio) { my $marcflavour = C4::Context->preference('marcflavour'); $record = MARC::Record->new(); + SetMarcUnicodeFlag($record, $marcflavour); my $hostfield = prepare_host_field($parentbiblio,$marcflavour); if ($hostfield) { $record->append_fields($hostfield); -- 1.7.9.5