use MARC::Charset qw/marc8_to_utf8/;
use Text::Iconv;
-use C4::Context;
use C4::Debug;
use Unicode::Normalize;
use Encode qw( decode encode is_utf8 );
substr($leader, 9, 1) = 'a';
$marc_record->leader($leader);
} elsif ($marc_flavour =~/UNIMARC/) {
+ require C4::Context;
my $defaultlanguage = C4::Context->preference("UNIMARCField100Language");
$defaultlanguage = "fre" if (!$defaultlanguage || length($defaultlanguage) != 3);
my $string;