View | Details | Raw Unified | Return to bug 11790
Collapse All | Expand All

(-)a/C4/Charset.pm (-2 / +1 lines)
Lines 22-28 use warnings; Link Here
22
22
23
use MARC::Charset qw/marc8_to_utf8/;
23
use MARC::Charset qw/marc8_to_utf8/;
24
use Text::Iconv;
24
use Text::Iconv;
25
use C4::Context;
26
use C4::Debug;
25
use C4::Debug;
27
use Unicode::Normalize;
26
use Unicode::Normalize;
28
use Encode qw( decode encode is_utf8 );
27
use Encode qw( decode encode is_utf8 );
Lines 333-338 sub SetMarcUnicodeFlag { Link Here
333
        substr($leader, 9, 1) = 'a';
332
        substr($leader, 9, 1) = 'a';
334
        $marc_record->leader($leader); 
333
        $marc_record->leader($leader); 
335
    } elsif ($marc_flavour =~/UNIMARC/) {
334
    } elsif ($marc_flavour =~/UNIMARC/) {
335
        require C4::Context;
336
	my $defaultlanguage = C4::Context->preference("UNIMARCField100Language");
336
	my $defaultlanguage = C4::Context->preference("UNIMARCField100Language");
337
        $defaultlanguage = "fre" if (!$defaultlanguage || length($defaultlanguage) != 3);
337
        $defaultlanguage = "fre" if (!$defaultlanguage || length($defaultlanguage) != 3);
338
        my $string; 
338
        my $string; 
339
- 

Return to bug 11790