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