Lines 75-99
if ( $op eq 'acct_form' ) {
Link Here
|
75 |
my $password = scalar $input->param('password'); |
75 |
my $password = scalar $input->param('password'); |
76 |
$password = $crypt->encrypt_hex($password); |
76 |
$password = $crypt->encrypt_hex($password); |
77 |
my $fields = { |
77 |
my $fields = { |
78 |
description => scalar $input->param('description'), |
78 |
description => scalar $input->param('description'), |
79 |
host => scalar $input->param('host'), |
79 |
host => scalar $input->param('host'), |
80 |
username => scalar $input->param('username'), |
80 |
username => scalar $input->param('username'), |
81 |
password => $password, |
81 |
password => $password, |
82 |
upload_port => scalar $input->param('upload_port') || $input->param('transport') eq 'FTP' ? 21 : 22, |
82 |
upload_port => scalar $input->param('upload_port') || $input->param('transport') eq 'FTP' ? 21 : 22, |
83 |
download_port => scalar $input->param('download_port') || $input->param('transport') eq 'FTP' ? 21 : 22, |
83 |
download_port => scalar $input->param('download_port') || $input->param('transport') eq 'FTP' ? 21 : 22, |
84 |
vendor_id => scalar $input->param('vendor_id'), |
84 |
vendor_id => scalar $input->param('vendor_id'), |
85 |
upload_directory => scalar $input->param('upload_directory'), |
85 |
upload_directory => scalar $input->param('upload_directory'), |
86 |
download_directory => scalar $input->param('download_directory'), |
86 |
download_directory => scalar $input->param('download_directory'), |
87 |
san => scalar $input->param('san'), |
87 |
san => scalar $input->param('san'), |
88 |
standard => scalar $input->param('standard'), |
88 |
standard => scalar $input->param('standard'), |
89 |
transport => scalar $input->param('transport'), |
89 |
transport => scalar $input->param('transport'), |
90 |
quotes_enabled => $input->param('quotes_enabled') ? 1 : 0, |
90 |
quotes_enabled => $input->param('quotes_enabled') ? 1 : 0, |
91 |
invoices_enabled => $input->param('invoices_enabled') ? 1 : 0, |
91 |
invoices_enabled => $input->param('invoices_enabled') ? 1 : 0, |
92 |
orders_enabled => $input->param('orders_enabled') ? 1 : 0, |
92 |
orders_enabled => $input->param('orders_enabled') ? 1 : 0, |
93 |
responses_enabled => $input->param('responses_enabled') ? 1 : 0, |
93 |
responses_enabled => $input->param('responses_enabled') ? 1 : 0, |
94 |
auto_orders => $input->param('auto_orders') ? 1 : 0, |
94 |
auto_orders => $input->param('auto_orders') ? 1 : 0, |
95 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
95 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
96 |
plugin => scalar $input->param('plugin'), |
96 |
plugin => scalar $input->param('plugin'), |
|
|
97 |
basket_name_source => scalar $input->param('basket_name_source') || 'filename', |
97 |
}; |
98 |
}; |
98 |
|
99 |
|
99 |
if ($id) { |
100 |
if ($id) { |