From 678977460a686648a6999242511edd39619d98aa Mon Sep 17 00:00:00 2001 From: Thibaud Guillot Date: Tue, 29 Mar 2022 16:12:48 +0200 Subject: [PATCH] Bug 29173: Fixed pre-filling of the search form from the "Replace record with ZR39.50/SRU" (Authority page detail) Now this action has the same pre-filling behaviour as the "Edit" -> "Edit Record" -> "Replace Record via Z39.50/SRU Search" action. Author Personal - Author Meeting/Conf. - Uniform Title and Subject are filled in if the subfield contains data (like the "Edit->Replace" action). Unimarc and Marc21 specificities are supported. Test Plan : 1) You must have a Z39.50/SRU server for authorities 2) Go to an authority detail page (Author - Uniform title - Subject) 3) First go to "Edit"-> "Edit record" -> "Replace record via..." 4) See that form is prefilled with form data 5) Go back and now click on "Replace Record.." directly 6) See that form is also prefilled with data now --- cataloguing/z3950_auth_search.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/cataloguing/z3950_auth_search.pl b/cataloguing/z3950_auth_search.pl index 959eb0cd45..aaedb102f8 100755 --- a/cataloguing/z3950_auth_search.pl +++ b/cataloguing/z3950_auth_search.pl @@ -24,7 +24,6 @@ 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 C4::AuthoritiesMarc qw( GetAuthority); use MARC::Record; use Koha::Authorities; use Koha::Authority::Types; @@ -35,9 +34,9 @@ my $marcflavour = C4::Context->preference("marcflavour"); my $error = $input->param('error'); my $authid = $input->param('authid') || 0; -my $authority = Koha::Authorities->find($authid); +my $authority = Koha::Authorities->find($authid); my $record = $authority->record; -my $authtypecode = $authobj ? $authobj->authtypecode : ''; +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) : ''; -- 2.25.1