|
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 |
- |
|
|