|
Lines 26-44
use Koha::AdditionalFields;
Link Here
|
| 26 |
|
26 |
|
| 27 |
my $input = new CGI; |
27 |
my $input = new CGI; |
| 28 |
|
28 |
|
|
|
29 |
my %flagsrequired; |
| 30 |
$flagsrequired{parameters} = 'manage_additional_fields'; |
| 31 |
|
| 32 |
my $tablename = $input->param('tablename'); |
| 33 |
my $op = $input->param('op') // ( $tablename ? 'list' : 'list_tables' ); |
| 34 |
|
| 35 |
if( $op ne 'list_tables' ){ |
| 36 |
$flagsrequired{acquisition} = 'order_manage' if $tablename eq 'aqbasket'; |
| 37 |
$flagsrequired{serials} = 'edit_subscription' if $tablename eq 'subscription'; |
| 38 |
} |
| 39 |
|
| 29 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
40 |
my ( $template, $loggedinuser, $cookie ) = get_template_and_user( |
| 30 |
{ |
41 |
{ |
| 31 |
template_name => "admin/additional-fields.tt", |
42 |
template_name => "admin/additional-fields.tt", |
| 32 |
query => $input, |
43 |
query => $input, |
| 33 |
type => "intranet", |
44 |
type => "intranet", |
| 34 |
authnotrequired => 0, |
45 |
authnotrequired => 0, |
| 35 |
flagsrequired => { parameters => 1 }, |
46 |
flagsrequired => \%flagsrequired, |
| 36 |
debug => 1, |
47 |
debug => 1, |
| 37 |
} |
48 |
} |
| 38 |
); |
49 |
); |
| 39 |
|
50 |
|
| 40 |
my $tablename = $input->param('tablename'); |
|
|
| 41 |
my $op = $input->param('op') // ( $tablename ? 'list' : 'list_tables' ); |
| 42 |
my $field_id = $input->param('field_id'); |
51 |
my $field_id = $input->param('field_id'); |
| 43 |
my @messages; |
52 |
my @messages; |
| 44 |
|
53 |
|