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

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

Return to bug 16514