Lines 56-61
if ( $op eq 'acct_form' ) {
Link Here
|
56 |
); |
56 |
); |
57 |
$template->param( vendors => \@vendors ); |
57 |
$template->param( vendors => \@vendors ); |
58 |
|
58 |
|
|
|
59 |
# Get available file transports for selection |
60 |
my @file_transports = $schema->resultset('FileTransport')->search( |
61 |
{}, |
62 |
{ order_by => { -asc => 'name' } } |
63 |
); |
64 |
$template->param( file_transports => \@file_transports ); |
65 |
|
59 |
if ( C4::Context->config("enable_plugins") ) { |
66 |
if ( C4::Context->config("enable_plugins") ) { |
60 |
my @plugins = Koha::Plugins->new()->GetPlugins( |
67 |
my @plugins = Koha::Plugins->new()->GetPlugins( |
61 |
{ |
68 |
{ |
Lines 71-99
if ( $op eq 'acct_form' ) {
Link Here
|
71 |
if ( $op eq 'cud-save' ) { |
78 |
if ( $op eq 'cud-save' ) { |
72 |
|
79 |
|
73 |
# validate & display |
80 |
# validate & display |
74 |
my $id = $input->param('id'); |
81 |
my $id = $input->param('id'); |
75 |
my $password = scalar $input->param('password'); |
|
|
76 |
$password = $crypt->encrypt_hex($password); |
77 |
my $fields = { |
82 |
my $fields = { |
78 |
description => scalar $input->param('description'), |
83 |
description => scalar $input->param('description'), |
79 |
host => scalar $input->param('host'), |
84 |
vendor_id => scalar $input->param('vendor_id'), |
80 |
username => scalar $input->param('username'), |
85 |
file_transport_id => scalar $input->param('file_transport_id') || undef, |
81 |
password => $password, |
86 |
san => scalar $input->param('san'), |
82 |
upload_port => scalar $input->param('upload_port') || $input->param('transport') eq 'FTP' ? 21 : 22, |
87 |
standard => scalar $input->param('standard'), |
83 |
download_port => scalar $input->param('download_port') || $input->param('transport') eq 'FTP' ? 21 : 22, |
88 |
quotes_enabled => $input->param('quotes_enabled') ? 1 : 0, |
84 |
vendor_id => scalar $input->param('vendor_id'), |
89 |
invoices_enabled => $input->param('invoices_enabled') ? 1 : 0, |
85 |
upload_directory => scalar $input->param('upload_directory'), |
90 |
orders_enabled => $input->param('orders_enabled') ? 1 : 0, |
86 |
download_directory => scalar $input->param('download_directory'), |
91 |
responses_enabled => $input->param('responses_enabled') ? 1 : 0, |
87 |
san => scalar $input->param('san'), |
92 |
auto_orders => $input->param('auto_orders') ? 1 : 0, |
88 |
standard => scalar $input->param('standard'), |
93 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
89 |
transport => scalar $input->param('transport'), |
94 |
plugin => scalar $input->param('plugin'), |
90 |
quotes_enabled => $input->param('quotes_enabled') ? 1 : 0, |
|
|
91 |
invoices_enabled => $input->param('invoices_enabled') ? 1 : 0, |
92 |
orders_enabled => $input->param('orders_enabled') ? 1 : 0, |
93 |
responses_enabled => $input->param('responses_enabled') ? 1 : 0, |
94 |
auto_orders => $input->param('auto_orders') ? 1 : 0, |
95 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
96 |
plugin => scalar $input->param('plugin'), |
97 |
}; |
95 |
}; |
98 |
|
96 |
|
99 |
if ($id) { |
97 |
if ($id) { |
Lines 163-169
sub show_account {
Link Here
|
163 |
my $acct_id = $input->param('id'); |
161 |
my $acct_id = $input->param('id'); |
164 |
if ($acct_id) { |
162 |
if ($acct_id) { |
165 |
my $acct = $schema->resultset('VendorEdiAccount')->find($acct_id); |
163 |
my $acct = $schema->resultset('VendorEdiAccount')->find($acct_id); |
166 |
$acct->password( $crypt->decrypt_hex( $acct->password ) ); |
|
|
167 |
if ($acct) { |
164 |
if ($acct) { |
168 |
$template->param( account => $acct ); |
165 |
$template->param( account => $acct ); |
169 |
} |
166 |
} |