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

(-)a/installer/data/mysql/db_revs/221200041.pl (-16 / +19 lines)
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
            ALTER TABLE vendor_edi_accounts CHANGE COLUMN `password` `password` mediumtext COLLATE utf8mb4_unicode_ci DEFAULT NULL
11
                q{
12
        }
12
                    ALTER TABLE vendor_edi_accounts CHANGE COLUMN `password` `password` mediumtext COLLATE utf8mb4_unicode_ci DEFAULT NULL
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
- 

Return to bug 38489