View | Details | Raw Unified | Return to bug 21605
Collapse All | Expand All

(-)a/admin/edi_accounts.pl (-9 / +5 lines)
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
- 

Return to bug 21605