Bug 21605: Ensure EDI acct fields set to boolean val

Validate the input to the fields indicating account
functionality. The only valid values are 1 and 0
non-integer (or integers other than 0/1) are invalid

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit c9c3fc4368)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit ae409c2fb3)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 4360ba1a24)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Colin Campbell 2018-10-26 10:42:13 +01:00 committed by Fridolin Somers
parent a4ca88816d
commit fc39a7a801
1 changed files with 8 additions and 5 deletions

View File

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