Lines 81-94
else {
Link Here
|
81 |
download_directory => scalar $input->param('download_directory'), |
81 |
download_directory => scalar $input->param('download_directory'), |
82 |
san => scalar $input->param('san'), |
82 |
san => scalar $input->param('san'), |
83 |
transport => scalar $input->param('transport'), |
83 |
transport => scalar $input->param('transport'), |
84 |
quotes_enabled => defined $input->param('quotes_enabled'), |
|
|
85 |
invoices_enabled => defined $input->param('invoices_enabled'), |
86 |
orders_enabled => defined $input->param('orders_enabled'), |
87 |
responses_enabled => defined $input->param('responses_enabled'), |
88 |
auto_orders => defined $input->param('auto_orders'), |
89 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
84 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
90 |
plugin => scalar $input->param('plugin'), |
85 |
plugin => scalar $input->param('plugin'), |
91 |
}; |
86 |
}; |
|
|
87 |
# ensure all capability fields set to binary 0 or 1 |
88 |
foreach my $capability |
89 |
(qw( quotes_enabled invoices_enabled orders_enabled responses_enabled auto_orders)) { |
90 |
$fields->{$capability} = defined $input->param($capability); |
91 |
if ($fields->{$capability} != 1) { |
92 |
$fields->{$capability} = 0; |
93 |
} |
94 |
} |
92 |
|
95 |
|
93 |
if ($id) { |
96 |
if ($id) { |
94 |
$schema->resultset('VendorEdiAccount')->search( |
97 |
$schema->resultset('VendorEdiAccount')->search( |
95 |
- |
|
|