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

(-)a/C4/Charset.pm (-1 / +1 lines)
Lines 324-329 sub SetMarcUnicodeFlag { Link Here
324
    my $marc_record = shift;
324
    my $marc_record = shift;
325
    my $marc_flavour = shift; # || C4::Context->preference("marcflavour");
325
    my $marc_flavour = shift; # || C4::Context->preference("marcflavour");
326
326
327
    $marc_record->encoding('UTF-8');
327
    if ($marc_flavour eq 'MARC21' || $marc_flavour eq 'NORMARC') {
328
    if ($marc_flavour eq 'MARC21' || $marc_flavour eq 'NORMARC') {
328
        my $leader = $marc_record->leader();
329
        my $leader = $marc_record->leader();
329
        substr($leader, 9, 1) = 'a';
330
        substr($leader, 9, 1) = 'a';
330
- 

Return to bug 18910