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