View | Details | Raw Unified | Return to bug 17600
Collapse All | Expand All

(-)a/authorities/authorities.pl (-3 / +3 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::AuthoritiesMarc qw( GetAuthority );
26
use C4::AuthoritiesMarc qw( GetAuthority GetTagsLabels GetAuthMARCFromKohaField );
27
use C4::ImportBatch qw( GetImportRecordMarc );
27
use C4::ImportBatch qw( GetImportRecordMarc );
28
use C4::Context;
28
use C4::Context;
29
use Date::Calc qw( Today );
29
use Date::Calc qw( Today );
Lines 600-607 my ($oldauthtypetagfield,$oldauthtypetagsubfield); Link Here
600
$is_a_modif=0;
600
$is_a_modif=0;
601
if ($authid) {
601
if ($authid) {
602
    $is_a_modif=1;
602
    $is_a_modif=1;
603
    ($oldauthnumtagfield,$oldauthnumtagsubfield) = &GetAuthMARCFromKohaField("auth_header.authid",$authtypecode);
603
    ($oldauthnumtagfield,$oldauthnumtagsubfield) = GetAuthMARCFromKohaField("auth_header.authid",$authtypecode);
604
    ($oldauthtypetagfield,$oldauthtypetagsubfield) = &GetAuthMARCFromKohaField("auth_header.authtypecode",$authtypecode);
604
    ($oldauthtypetagfield,$oldauthtypetagsubfield) = GetAuthMARCFromKohaField("auth_header.authtypecode",$authtypecode);
605
}
605
}
606
$op ||= q{};
606
$op ||= q{};
607
#------------------------------------------------------------------------------------------------------------------------------
607
#------------------------------------------------------------------------------------------------------------------------------
(-)a/authorities/detail-biblio-search.pl (-2 / +2 lines)
Lines 39-45 parameters tables. Link Here
39
use Modern::Perl;
39
use Modern::Perl;
40
40
41
use C4::Auth qw( get_template_and_user );
41
use C4::Auth qw( get_template_and_user );
42
use C4::AuthoritiesMarc qw( GetAuthority );
42
use C4::AuthoritiesMarc qw( GetAuthority GetTagsLabels );
43
use C4::Context;
43
use C4::Context;
44
use C4::Output qw( output_html_with_http_headers );
44
use C4::Output qw( output_html_with_http_headers );
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
Lines 56-62 my $dbh=C4::Context->dbh; Link Here
56
my $authid = $query->param('authid');
56
my $authid = $query->param('authid');
57
my $index = $query->param('index');
57
my $index = $query->param('index');
58
my $authtypecode = Koha::Authorities->find($authid)->authtypecode;
58
my $authtypecode = Koha::Authorities->find($authid)->authtypecode;
59
my $tagslib = &GetTagsLabels(1,$authtypecode);
59
my $tagslib = GetTagsLabels(1,$authtypecode);
60
60
61
my $record =GetAuthority($authid);
61
my $record =GetAuthority($authid);
62
# open template
62
# open template
(-)a/authorities/detail.pl (-2 / +2 lines)
Lines 39-45 parameters tables. Link Here
39
use Modern::Perl;
39
use Modern::Perl;
40
40
41
use C4::Auth qw( get_template_and_user );
41
use C4::Auth qw( get_template_and_user );
42
use C4::AuthoritiesMarc qw( GetAuthority GenerateHierarchy );
42
use C4::AuthoritiesMarc qw( GetAuthority GenerateHierarchy GetTagsLabels );
43
use C4::Context;
43
use C4::Context;
44
use C4::Output qw( output_html_with_http_headers );
44
use C4::Output qw( output_html_with_http_headers );
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
Lines 181-187 my $authid = $query->param('authid'); Link Here
181
181
182
my $authobj = Koha::Authorities->find($authid);
182
my $authobj = Koha::Authorities->find($authid);
183
my $authtypecode = $authobj ? $authobj->authtypecode : q{};
183
my $authtypecode = $authobj ? $authobj->authtypecode : q{};
184
$tagslib = &GetTagsLabels(1,$authtypecode);
184
$tagslib = GetTagsLabels(1,$authtypecode);
185
185
186
# Build list of authtypes for showing them
186
# Build list of authtypes for showing them
187
my $authority_types = Koha::Authority::Types->search({}, { order_by => ['authtypetext']});
187
my $authority_types = Koha::Authority::Types->search({}, { order_by => ['authtypetext']});
(-)a/authorities/merge.pl (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Output qw( output_html_with_http_headers );
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
24
use C4::AuthoritiesMarc qw( GetAuthority ModAuthority DelAuthority );
24
use C4::AuthoritiesMarc qw( GetAuthority ModAuthority DelAuthority GetTagsLabels );
25
use C4::Biblio qw( TransformHtmlToMarc );
25
use C4::Biblio qw( TransformHtmlToMarc );
26
26
27
use Koha::Authority::MergeRequests;
27
use Koha::Authority::MergeRequests;
(-)a/opac/opac-authoritiesdetail.pl (-3 / +2 lines)
Lines 42-48 use C4::Auth qw( get_template_and_user ); Link Here
42
use C4::Biblio qw( GetMarcUrls );
42
use C4::Biblio qw( GetMarcUrls );
43
use C4::Context;
43
use C4::Context;
44
use C4::Output qw( output_html_with_http_headers );
44
use C4::Output qw( output_html_with_http_headers );
45
use C4::AuthoritiesMarc qw( GetAuthority BuildSummary );
45
use C4::AuthoritiesMarc qw( GetAuthority BuildSummary GetTagsLabels );
46
use CGI qw ( -utf8 );
46
use CGI qw ( -utf8 );
47
use C4::Koha;
47
use C4::Koha;
48
48
Lines 98-104 $template->param( Link Here
98
98
99
# find the marc field/subfield used in biblio by this authority
99
# find the marc field/subfield used in biblio by this authority
100
if ($show_marc) {
100
if ($show_marc) {
101
    my $tagslib = &GetTagsLabels( 0, $authtypecode );
101
    my $tagslib = GetTagsLabels( 0, $authtypecode );
102
    my $sth =
102
    my $sth =
103
        $dbh->prepare(
103
        $dbh->prepare(
104
                "select distinct tagfield from marc_subfield_structure where authtypecode=?"
104
                "select distinct tagfield from marc_subfield_structure where authtypecode=?"
105
- 

Return to bug 17600