|
Lines 1-6
Link Here
|
| 1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
| 2 |
|
2 |
|
| 3 |
# Copyright 2011,2014 Mark Gavillet & PTFS Europe Ltd |
3 |
# Copyright 2011,2014 Mark Gavillet & PTFS Europe Ltd |
|
|
4 |
# Copyright 2016 PTFS Europe Ltd |
| 4 |
# |
5 |
# |
| 5 |
# This file is part of Koha. |
6 |
# This file is part of Koha. |
| 6 |
# |
7 |
# |
|
Lines 78-95
else {
Link Here
|
| 78 |
description => scalar $input->param('description'), |
79 |
description => scalar $input->param('description'), |
| 79 |
host => scalar $input->param('host'), |
80 |
host => scalar $input->param('host'), |
| 80 |
username => scalar $input->param('username'), |
81 |
username => scalar $input->param('username'), |
| 81 |
password => $password, |
82 |
password => scalar $input->param('password'), |
| 82 |
vendor_id => scalar $input->param('vendor_id'), |
83 |
vendor_id => scalar $input->param('vendor_id'), |
| 83 |
upload_directory => scalar $input->param('upload_directory'), |
84 |
upload_directory => scalar $input->param('upload_directory'), |
| 84 |
download_directory => scalar $input->param('download_directory'), |
85 |
download_directory => scalar $input->param('download_directory'), |
| 85 |
san => scalar $input->param('san'), |
86 |
san => scalar $input->param('san'), |
| 86 |
standard => scalar $input->param('standard'), |
87 |
standard => scalar $input->param('standard'), |
| 87 |
transport => scalar $input->param('transport'), |
88 |
transport => scalar $input->param('transport'), |
| 88 |
quotes_enabled => $input->param('quotes_enabled') ? 1 : 0, |
89 |
quotes_enabled => defined $input->param('quotes_enabled'), |
| 89 |
invoices_enabled => $input->param('invoices_enabled') ? 1 : 0, |
90 |
invoices_enabled => defined $input->param('invoices_enabled'), |
| 90 |
orders_enabled => $input->param('orders_enabled') ? 1 : 0, |
91 |
orders_enabled => defined $input->param('orders_enabled'), |
| 91 |
responses_enabled => $input->param('responses_enabled') ? 1 : 0, |
92 |
responses_enabled => defined $input->param('responses_enabled'), |
| 92 |
auto_orders => $input->param('auto_orders') ? 1 : 0, |
93 |
auto_orders => defined $input->param('auto_orders'), |
| 93 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
94 |
id_code_qualifier => scalar $input->param('id_code_qualifier'), |
| 94 |
plugin => scalar $input->param('plugin'), |
95 |
plugin => scalar $input->param('plugin'), |
| 95 |
}; |
96 |
}; |
|
Lines 106-114
else {
Link Here
|
| 106 |
} |
107 |
} |
| 107 |
} |
108 |
} |
| 108 |
elsif ( $op eq 'delete_confirmed' ) { |
109 |
elsif ( $op eq 'delete_confirmed' ) { |
| 109 |
|
110 |
my $id = $input->param('id'); |
| 110 |
$schema->resultset('VendorEdiAccount') |
111 |
$schema->resultset('VendorEdiAccount')->search( { id => $id } )->delete_all; |
| 111 |
->search( { id => scalar $input->param('id'), } )->delete_all; |
|
|
| 112 |
} |
112 |
} |
| 113 |
|
113 |
|
| 114 |
# we do a default dispaly after deletes and saves |
114 |
# we do a default dispaly after deletes and saves |
| 115 |
- |
|
|