Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Bug 17600: Fix GetTagsLabels imports

Browse source 
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2021-08-03 14:35:18 +02:00
parent aeae221495
commit dec0a22a63
5 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
authorities/authorities.pl
View file

@ -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{};
#------------------------------------------------------------------------------------------------------------------------------

4
authorities/detail-biblio-search.pl
View file

@ -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

4
authorities/detail.pl
View file

@ -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']});

2
authorities/merge.pl
View file

@ -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;

4
opac/opac-authoritiesdetail.pl
View file

@ -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=?"