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