Lines 549-554
sub Z3950SearchAuth {
Link Here
|
549 |
my $query; |
549 |
my $query; |
550 |
my $nterms=0; |
550 |
my $nterms=0; |
551 |
|
551 |
|
|
|
552 |
my $xslh = Koha::XSLT::Base->new; |
552 |
my $marcflavour = C4::Context->preference('marcflavour'); |
553 |
my $marcflavour = C4::Context->preference('marcflavour'); |
553 |
my $marc_type = $marcflavour eq 'UNIMARC' ? 'UNIMARCAUTH' : $marcflavour; |
554 |
my $marc_type = $marcflavour eq 'UNIMARC' ? 'UNIMARCAUTH' : $marcflavour; |
554 |
my $authid= $pars->{authid}; |
555 |
my $authid= $pars->{authid}; |
Lines 615-620
sub Z3950SearchAuth {
Link Here
|
615 |
} else { |
616 |
} else { |
616 |
( $marcrecord, $charset_result, $charset_errors ) = MarcToUTF8Record( $marcdata, $marc_type, $encoding[$k] ); |
617 |
( $marcrecord, $charset_result, $charset_errors ) = MarcToUTF8Record( $marcdata, $marc_type, $encoding[$k] ); |
617 |
} |
618 |
} |
|
|
619 |
my $error; |
620 |
( $marcrecord, $error ) = _do_xslt_proc($marcrecord, $servers[$k], $xslh); |
618 |
my $heading; |
621 |
my $heading; |
619 |
my $heading_authtype_code; |
622 |
my $heading_authtype_code; |
620 |
$heading_authtype_code = GuessAuthTypeCode($marcrecord); |
623 |
$heading_authtype_code = GuessAuthTypeCode($marcrecord); |
621 |
- |
|
|