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

(-)a/cataloguing/z3950_auth_search.pl (-1 / +10 lines)
Lines 24-34 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 MARC::Record;
28
use Koha::Authorities;
29
use Koha::Authority::Types;
27
30
28
my $input        = CGI->new;
31
my $input        = CGI->new;
29
my $dbh          = C4::Context->dbh;
32
my $dbh          = C4::Context->dbh;
30
my $error         = $input->param('error');
33
my $error         = $input->param('error');
31
my $authid  = $input->param('authid') || 0;
34
my $authid  = $input->param('authid') || 0;
35
36
my $authority      = Koha::Authorities->find($authid);
37
my $record         = $authority->record;
38
my $authtypecode   = $authority ? $authority->authtypecode : '';
39
my $authority_type = Koha::Authority::Types->find($authtypecode);
40
my $authtag        = $authority_type->auth_tag_to_report;
41
my $authfields     = $authtag ? $record->field($authtag) : '';
32
my $nameany     = $input->param('nameany');
42
my $nameany     = $input->param('nameany');
33
my $authorany     = $input->param('authorany');
43
my $authorany     = $input->param('authorany');
34
my $authorcorp     = $input->param('authorcorp');
44
my $authorcorp     = $input->param('authorcorp');
35
- 

Return to bug 29173