diff --git a/admin/edi_accounts.pl b/admin/edi_accounts.pl index 9225b7ced8..fb7cddc49e 100755 --- a/admin/edi_accounts.pl +++ b/admin/edi_accounts.pl @@ -82,14 +82,17 @@ else { download_directory => scalar $input->param('download_directory'), san => scalar $input->param('san'), transport => scalar $input->param('transport'), - quotes_enabled => defined $input->param('quotes_enabled'), - invoices_enabled => defined $input->param('invoices_enabled'), - orders_enabled => defined $input->param('orders_enabled'), - responses_enabled => defined $input->param('responses_enabled'), - auto_orders => defined $input->param('auto_orders'), id_code_qualifier => scalar $input->param('id_code_qualifier'), plugin => scalar $input->param('plugin'), }; + # ensure all capability fields set to binary 0 or 1 + foreach my $capability + (qw( quotes_enabled invoices_enabled orders_enabled responses_enabled auto_orders)) { + $fields->{$capability} = defined $input->param($capability); + if ($fields->{$capability} != 1) { + $fields->{$capability} = 0; + } + } if ($id) { $schema->resultset('VendorEdiAccount')->search(