|
Lines 6-27
return {
Link Here
|
| 6 |
up => sub { |
6 |
up => sub { |
| 7 |
my ($args) = @_; |
7 |
my ($args) = @_; |
| 8 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
8 |
my ( $dbh, $out ) = @$args{qw(dbh out)}; |
| 9 |
$dbh->do( |
9 |
if ( !column_exists( 'vendor_edi_accounts', 'password' ) ) { |
| 10 |
q{ |
10 |
$dbh->do( |
|
|
11 |
q{ |
| 11 |
ALTER TABLE vendor_edi_accounts CHANGE COLUMN `password` `password` mediumtext COLLATE utf8mb4_unicode_ci DEFAULT NULL |
12 |
ALTER TABLE vendor_edi_accounts CHANGE COLUMN `password` `password` mediumtext COLLATE utf8mb4_unicode_ci DEFAULT NULL |
| 12 |
} |
13 |
} |
| 13 |
); |
14 |
); |
| 14 |
|
15 |
|
| 15 |
my $edi_vendors = |
16 |
my $edi_vendors = $dbh->selectall_arrayref( |
| 16 |
$dbh->selectall_arrayref( "SELECT * FROM vendor_edi_accounts", { Slice => {} } ); |
17 |
"SELECT * FROM vendor_edi_accounts", |
| 17 |
if (@$edi_vendors) { |
18 |
{ Slice => {} } |
| 18 |
require Koha::Encryption; |
19 |
); |
| 19 |
my $e = Koha::Encryption->new; |
20 |
if (@$edi_vendors) { |
| 20 |
for my $edi_vendor (@$edi_vendors) { |
21 |
require Koha::Encryption; |
| 21 |
my $id = $edi_vendor->{id}; |
22 |
my $e = Koha::Encryption->new; |
| 22 |
my $password = $edi_vendor->{password}; |
23 |
for my $edi_vendor (@$edi_vendors) { |
| 23 |
$password = $e->encrypt_hex($password); |
24 |
my $id = $edi_vendor->{id}; |
| 24 |
$dbh->do("UPDATE vendor_edi_accounts SET password = '$password' WHERE id = $id"); |
25 |
my $password = $edi_vendor->{password}; |
|
|
26 |
$password = $e->encrypt_hex($password); |
| 27 |
$dbh->do("UPDATE vendor_edi_accounts SET password = '$password' WHERE id = $id"); |
| 28 |
} |
| 25 |
} |
29 |
} |
| 26 |
} |
30 |
} |
| 27 |
}, |
31 |
}, |
| 28 |
- |
|
|