Lines 298-303
sub _handle_one_result {
Link Here
|
298 |
if( $servhref->{servertype} eq 'sru' ) { |
298 |
if( $servhref->{servertype} eq 'sru' ) { |
299 |
$marcrecord= MARC::Record->new_from_xml( $raw, 'UTF-8', |
299 |
$marcrecord= MARC::Record->new_from_xml( $raw, 'UTF-8', |
300 |
$servhref->{syntax} ); |
300 |
$servhref->{syntax} ); |
|
|
301 |
$marcrecord->encoding('UTF-8'); |
301 |
} else { |
302 |
} else { |
302 |
($marcrecord) = MarcToUTF8Record($raw, C4::Context->preference('marcflavour'), $servhref->{encoding} // "iso-5426" ); #ignores charset return values |
303 |
($marcrecord) = MarcToUTF8Record($raw, C4::Context->preference('marcflavour'), $servhref->{encoding} // "iso-5426" ); #ignores charset return values |
303 |
} |
304 |
} |
Lines 610-615
sub Z3950SearchAuth {
Link Here
|
610 |
my ($charset_result, $charset_errors); |
611 |
my ($charset_result, $charset_errors); |
611 |
if( $servers[$k]->{servertype} eq 'sru' ) { |
612 |
if( $servers[$k]->{servertype} eq 'sru' ) { |
612 |
$marcrecord = MARC::Record->new_from_xml( $marcdata, 'UTF-8', $servers[$k]->{syntax} ); |
613 |
$marcrecord = MARC::Record->new_from_xml( $marcdata, 'UTF-8', $servers[$k]->{syntax} ); |
|
|
614 |
$marcrecord->encoding('UTF-8'); |
613 |
} else { |
615 |
} else { |
614 |
( $marcrecord, $charset_result, $charset_errors ) = MarcToUTF8Record( $marcdata, $marc_type, $encoding[$k] ); |
616 |
( $marcrecord, $charset_result, $charset_errors ) = MarcToUTF8Record( $marcdata, $marc_type, $encoding[$k] ); |
615 |
} |
617 |
} |
616 |
- |
|
|