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