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

(-)a/C4/Charset.pm (-1 / +6 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';
Lines 352-357 sub SetMarcUnicodeFlag { Link Here
352
            $marc_record->insert_grouped_field( 
353
            $marc_record->insert_grouped_field( 
353
                MARC::Field->new( 100, '', '', "a" => $string ) ); 
354
                MARC::Field->new( 100, '', '', "a" => $string ) ); 
354
        }
355
        }
356
357
        my $leader = $marc_record->leader();
358
        substr($leader, 9, 1) = ' ';
359
        $marc_record->leader($leader);
360
355
		$debug && warn "encodage: ", substr( $marc_record->subfield(100, 'a'), $encodingposition, 3 );
361
		$debug && warn "encodage: ", substr( $marc_record->subfield(100, 'a'), $encodingposition, 3 );
356
    } else {
362
    } else {
357
        warn "Unrecognized marcflavour: $marc_flavour";
363
        warn "Unrecognized marcflavour: $marc_flavour";
358
- 

Return to bug 18152