@@ -, +, @@ --- 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(-) --- a/authorities/authorities.pl +++ a/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{}; #------------------------------------------------------------------------------------------------------------------------------ --- a/authorities/detail-biblio-search.pl +++ a/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 --- a/authorities/detail.pl +++ a/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']}); --- a/authorities/merge.pl +++ a/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; --- a/opac/opac-authoritiesdetail.pl +++ a/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=?" --