@@ -, +, @@ no mapping found for [0x2764] at position 4 in hell❤️ g0=ASCII_DEFAULT g1=EXTENDED_LATIN at /usr/share/perl5/MARC/Charset.pm line 308. --- t/lib/TestBuilder.pm | 7 +++++++ 1 file changed, 7 insertions(+) --- a/t/lib/TestBuilder.pm +++ a/t/lib/TestBuilder.pm @@ -155,7 +155,14 @@ sub build_sample_biblio { my $marcflavour = C4::Context->preference('marcflavour'); my $record = MARC::Record->new(); + + if ( $marcflavour eq 'MARC21' ) { + $record->leader(' nz a22 o 4500'); + C4::Charset::SetMarcUnicodeFlag( $record, 'MARC21' ); + } + my ( $tag, $subfield ) = $marcflavour eq 'UNIMARC' ? ( 200, 'a' ) : ( 245, 'a' ); + $record->append_fields( MARC::Field->new( $tag, ' ', ' ', $subfield => $title ), ); --