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

(-)a/C4/Breeding.pm (-2 / +3 lines)
Lines 294-304 sub _handle_one_result { Link Here
294
            $servhref->{syntax} );
294
            $servhref->{syntax} );
295
        $marcrecord->encoding('UTF-8');
295
        $marcrecord->encoding('UTF-8');
296
    } else {
296
    } else {
297
        ($marcrecord) = MarcToUTF8Record($raw, C4::Context->preference('marcflavour'), $servhref->{encoding} // "iso-5426" ); #ignores charset return values
297
        my $marcflavour = $servhref->{syntax} eq 'UNIMARC' ? 'UNIMARC' : 'MARC21';
298
        ($marcrecord) = MarcToUTF8Record($raw, $marcflavour, $servhref->{encoding} // "iso-5426" ); #ignores charset return values
298
    }
299
    }
299
    SetUTF8Flag($marcrecord);
300
    SetUTF8Flag($marcrecord);
300
    my $error;
301
    my $error;
301
    ( $marcrecord, $error ) = _do_xslt_proc($marcrecord, $servhref, $xslh);
302
    ( $marcrecord, $error ) = _do_xslt_proc($marcrecord, $servhref, $xslh);
303
    C4::Charset::SetMarcUnicodeFlag($marcrecord, C4::Context->preference('marcflavour'));
302
304
303
    my $batch_id = GetZ3950BatchId($servhref->{servername});
305
    my $batch_id = GetZ3950BatchId($servhref->{servername});
304
    my $breedingid = AddBiblioToBatch($batch_id, $seq, $marcrecord, 'UTF-8', 0);
306
    my $breedingid = AddBiblioToBatch($batch_id, $seq, $marcrecord, 'UTF-8', 0);
305
- 

Return to bug 17791