@@ -, +, @@ "Replace record with ZR39.50/SRU" (Authority page detail) --- cataloguing/z3950_auth_search.pl | 10 ++++++++++ 1 file changed, 10 insertions(+) --- a/cataloguing/z3950_auth_search.pl +++ a/cataloguing/z3950_auth_search.pl @@ -24,11 +24,21 @@ use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Breeding qw( Z3950Search Z3950SearchAuth ); +use MARC::Record; +use Koha::Authorities; +use Koha::Authority::Types; my $input = CGI->new; my $dbh = C4::Context->dbh; my $error = $input->param('error'); my $authid = $input->param('authid') || 0; + +my $authority = Koha::Authorities->find($authid); +my $record = $authority->record; +my $authtypecode = $authority ? $authority->authtypecode : ''; +my $authority_type = Koha::Authority::Types->find($authtypecode); +my $authtag = $authority_type->auth_tag_to_report; +my $authfields = $authtag ? $record->field($authtag) : ''; my $nameany = $input->param('nameany'); my $authorany = $input->param('authorany'); my $authorcorp = $input->param('authorcorp'); --