|
Lines 81-97
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 => $input->param('quotes_enabled') ? 1 : 0, |
| 85 |
invoices_enabled => $input->param('invoices_enabled') ? 1 : 0, |
| 86 |
orders_enabled => $input->param('orders_enabled') ? 1 : 0, |
| 87 |
responses_enabled => $input->param('responses_enabled') ? 1 : 0, |
| 88 |
auto_orders => $input->param('auto_orders') ? 1 : 0, |
| 84 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
89 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
| 85 |
plugin => scalar $input->param('plugin'), |
90 |
plugin => scalar $input->param('plugin'), |
| 86 |
}; |
91 |
}; |
| 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 |
} |
| 95 |
|
92 |
|
| 96 |
if ($id) { |
93 |
if ($id) { |
| 97 |
$schema->resultset('VendorEdiAccount')->search( |
94 |
$schema->resultset('VendorEdiAccount')->search( |
| 98 |
- |
|
|