@@ -, +, @@ --- C4/Breeding.pm | 1 + C4/ImportBatch.pm | 1 + acqui/z3950_search.pl | 1 + cataloguing/z3950_search.pl | 1 + 4 files changed, 4 insertions(+), 0 deletions(-) --- a/C4/Breeding.pm +++ a/C4/Breeding.pm @@ -93,6 +93,7 @@ sub ImportBreeding { my ($marcrecord, $charset_result, $charset_errors); ($marcrecord, $charset_result, $charset_errors) = MarcToUTF8Record($marcarray[$i]."\x1D", C4::Context->preference("marcflavour"), $encoding); + SetUTF8Flag($marcrecord); # warn "$i : $marcarray[$i]"; # FIXME - currently this does nothing --- a/C4/ImportBatch.pm +++ a/C4/ImportBatch.pm @@ -330,6 +330,7 @@ sub BatchStageMarcRecords { } my ($marc_record, $charset_guessed, $char_errors) = MarcToUTF8Record($marc_blob, C4::Context->preference("marcflavour"), $encoding); + SetUTF8Flag($marc_record); $encoding = $charset_guessed unless $encoding; --- a/acqui/z3950_search.pl +++ a/acqui/z3950_search.pl @@ -273,6 +273,7 @@ warn "query ".$query if $DEBUG; my ($charset_result, $charset_errors); ($marcrecord, $charset_result, $charset_errors) = MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]); + SetUTF8Flag($marcrecord); ####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc ## In HEAD i change everything to UTF-8 # In rel2_2 i am not sure what encoding is so no character conversion is done here --- a/cataloguing/z3950_search.pl +++ a/cataloguing/z3950_search.pl @@ -241,6 +241,7 @@ warn "query ".$query if $DEBUG; my ($charset_result, $charset_errors); ($marcrecord, $charset_result, $charset_errors) = MarcToUTF8Record($marcdata, C4::Context->preference('marcflavour'), $encoding[$k]); + SetUTF8Flag($marcrecord); ####WARNING records coming from Z3950 clients are in various character sets MARC8,UTF8,UNIMARC etc ## In HEAD i change everything to UTF-8 # In rel2_2 i am not sure what encoding is so no character conversion is done here --