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

(-)a/cataloguing/z3950_auth_search.pl (-4 / +2 lines)
Lines 24-30 use C4::Auth qw( get_template_and_user ); Link Here
24
use C4::Output qw( output_html_with_http_headers );
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Breeding qw( Z3950Search Z3950SearchAuth );
26
use C4::Breeding qw( Z3950Search Z3950SearchAuth );
27
use C4::AuthoritiesMarc qw( GetAuthority);
28
use MARC::Record;
27
use MARC::Record;
29
use Koha::Authorities;
28
use Koha::Authorities;
30
use Koha::Authority::Types;
29
use Koha::Authority::Types;
Lines 35-43 my $marcflavour = C4::Context->preference("marcflavour"); Link Here
35
my $error         = $input->param('error');
34
my $error         = $input->param('error');
36
my $authid  = $input->param('authid') || 0;
35
my $authid  = $input->param('authid') || 0;
37
36
38
my $authority        = Koha::Authorities->find($authid);
37
my $authority      = Koha::Authorities->find($authid);
39
my $record         = $authority->record;
38
my $record         = $authority->record;
40
my $authtypecode   = $authobj ? $authobj->authtypecode : '';
39
my $authtypecode   = $authority ? $authority->authtypecode : '';
41
my $authority_type = Koha::Authority::Types->find($authtypecode);
40
my $authority_type = Koha::Authority::Types->find($authtypecode);
42
my $authtag        = $authority_type->auth_tag_to_report;
41
my $authtag        = $authority_type->auth_tag_to_report;
43
my $authfields     = $authtag ? $record->field($authtag) : '';
42
my $authfields     = $authtag ? $record->field($authtag) : '';
44
- 

Return to bug 29173