From dec0a22a63fa48ec627c49d2c30fa940558580c4 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Tue, 3 Aug 2021 14:35:18 +0200
Subject: [PATCH] Bug 17600: Fix GetTagsLabels imports

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 authorities/authorities.pl          | 6 +++---
 authorities/detail-biblio-search.pl | 4 ++--
 authorities/detail.pl               | 4 ++--
 authorities/merge.pl                | 2 +-
 opac/opac-authoritiesdetail.pl      | 4 ++--
 5 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/authorities/authorities.pl b/authorities/authorities.pl
index 33c37aaf4f..11e60ef3ea 100755
--- a/authorities/authorities.pl
+++ b/authorities/authorities.pl
@@ -23,7 +23,7 @@ use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Auth qw( get_template_and_user );
 use C4::Output qw( output_html_with_http_headers );
-use C4::AuthoritiesMarc qw( GetAuthority );
+use C4::AuthoritiesMarc qw( GetAuthority GetTagsLabels GetAuthMARCFromKohaField );
 use C4::ImportBatch qw( GetImportRecordMarc );
 use C4::Context;
 use Date::Calc qw( Today );
@@ -600,8 +600,8 @@ my ($oldauthtypetagfield,$oldauthtypetagsubfield);
 $is_a_modif=0;
 if ($authid) {
     $is_a_modif=1;
-    ($oldauthnumtagfield,$oldauthnumtagsubfield) = &GetAuthMARCFromKohaField("auth_header.authid",$authtypecode);
-    ($oldauthtypetagfield,$oldauthtypetagsubfield) = &GetAuthMARCFromKohaField("auth_header.authtypecode",$authtypecode);
+    ($oldauthnumtagfield,$oldauthnumtagsubfield) = GetAuthMARCFromKohaField("auth_header.authid",$authtypecode);
+    ($oldauthtypetagfield,$oldauthtypetagsubfield) = GetAuthMARCFromKohaField("auth_header.authtypecode",$authtypecode);
 }
 $op ||= q{};
 #------------------------------------------------------------------------------------------------------------------------------
diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl
index 0eb510ad9c..2e8ea40e9a 100755
--- a/authorities/detail-biblio-search.pl
+++ b/authorities/detail-biblio-search.pl
@@ -39,7 +39,7 @@ parameters tables.
 use Modern::Perl;
 
 use C4::Auth qw( get_template_and_user );
-use C4::AuthoritiesMarc qw( GetAuthority );
+use C4::AuthoritiesMarc qw( GetAuthority GetTagsLabels );
 use C4::Context;
 use C4::Output qw( output_html_with_http_headers );
 use CGI qw ( -utf8 );
@@ -56,7 +56,7 @@ my $dbh=C4::Context->dbh;
 my $authid = $query->param('authid');
 my $index = $query->param('index');
 my $authtypecode = Koha::Authorities->find($authid)->authtypecode;
-my $tagslib = &GetTagsLabels(1,$authtypecode);
+my $tagslib = GetTagsLabels(1,$authtypecode);
 
 my $record =GetAuthority($authid);
 # open template
diff --git a/authorities/detail.pl b/authorities/detail.pl
index 1fefaa9547..a95460958b 100755
--- a/authorities/detail.pl
+++ b/authorities/detail.pl
@@ -39,7 +39,7 @@ parameters tables.
 use Modern::Perl;
 
 use C4::Auth qw( get_template_and_user );
-use C4::AuthoritiesMarc qw( GetAuthority GenerateHierarchy );
+use C4::AuthoritiesMarc qw( GetAuthority GenerateHierarchy GetTagsLabels );
 use C4::Context;
 use C4::Output qw( output_html_with_http_headers );
 use CGI qw ( -utf8 );
@@ -181,7 +181,7 @@ my $authid = $query->param('authid');
 
 my $authobj = Koha::Authorities->find($authid);
 my $authtypecode = $authobj ? $authobj->authtypecode : q{};
-$tagslib = &GetTagsLabels(1,$authtypecode);
+$tagslib = GetTagsLabels(1,$authtypecode);
 
 # Build list of authtypes for showing them
 my $authority_types = Koha::Authority::Types->search({}, { order_by => ['authtypetext']});
diff --git a/authorities/merge.pl b/authorities/merge.pl
index 9b29f06ee6..d9af163e79 100755
--- a/authorities/merge.pl
+++ b/authorities/merge.pl
@@ -21,7 +21,7 @@ use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Output qw( output_html_with_http_headers );
 use C4::Auth qw( get_template_and_user );
-use C4::AuthoritiesMarc qw( GetAuthority ModAuthority DelAuthority );
+use C4::AuthoritiesMarc qw( GetAuthority ModAuthority DelAuthority GetTagsLabels );
 use C4::Biblio qw( TransformHtmlToMarc );
 
 use Koha::Authority::MergeRequests;
diff --git a/opac/opac-authoritiesdetail.pl b/opac/opac-authoritiesdetail.pl
index 1accfa9c7f..9acacb16be 100755
--- a/opac/opac-authoritiesdetail.pl
+++ b/opac/opac-authoritiesdetail.pl
@@ -42,7 +42,7 @@ use C4::Auth qw( get_template_and_user );
 use C4::Biblio qw( GetMarcUrls );
 use C4::Context;
 use C4::Output qw( output_html_with_http_headers );
-use C4::AuthoritiesMarc qw( GetAuthority BuildSummary );
+use C4::AuthoritiesMarc qw( GetAuthority BuildSummary GetTagsLabels );
 use CGI qw ( -utf8 );
 use C4::Koha;
 
@@ -98,7 +98,7 @@ $template->param(
 
 # find the marc field/subfield used in biblio by this authority
 if ($show_marc) {
-    my $tagslib = &GetTagsLabels( 0, $authtypecode );
+    my $tagslib = GetTagsLabels( 0, $authtypecode );
     my $sth =
         $dbh->prepare(
                 "select distinct tagfield from marc_subfield_structure where authtypecode=?"
-- 
2.39.5