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

(-)a/C4/Charset.pm (-2 lines)
Lines 324-330 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');
328
    if ($marc_flavour eq 'MARC21' || $marc_flavour eq 'NORMARC') {
327
    if ($marc_flavour eq 'MARC21' || $marc_flavour eq 'NORMARC') {
329
        my $leader = $marc_record->leader();
328
        my $leader = $marc_record->leader();
330
        substr($leader, 9, 1) = 'a';
329
        substr($leader, 9, 1) = 'a';
331
- 

Return to bug 18152