@@ -, +, @@ --- admin/edi_accounts.pl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) --- a/admin/edi_accounts.pl +++ a/admin/edi_accounts.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl # Copyright 2011,2014 Mark Gavillet & PTFS Europe Ltd +# Copyright 2016 PTFS Europe Ltd # # This file is part of Koha. # @@ -78,18 +79,18 @@ else { description => scalar $input->param('description'), host => scalar $input->param('host'), username => scalar $input->param('username'), - password => $password, + password => scalar $input->param('password'), vendor_id => scalar $input->param('vendor_id'), upload_directory => scalar $input->param('upload_directory'), download_directory => scalar $input->param('download_directory'), san => scalar $input->param('san'), standard => scalar $input->param('standard'), transport => scalar $input->param('transport'), - quotes_enabled => $input->param('quotes_enabled') ? 1 : 0, - invoices_enabled => $input->param('invoices_enabled') ? 1 : 0, - orders_enabled => $input->param('orders_enabled') ? 1 : 0, - responses_enabled => $input->param('responses_enabled') ? 1 : 0, - auto_orders => $input->param('auto_orders') ? 1 : 0, + 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'), }; @@ -106,9 +107,8 @@ else { } } elsif ( $op eq 'delete_confirmed' ) { - - $schema->resultset('VendorEdiAccount') - ->search( { id => scalar $input->param('id'), } )->delete_all; + my $id = $input->param('id'); + $schema->resultset('VendorEdiAccount')->search( { id => $id } )->delete_all; } # we do a default dispaly after deletes and saves --