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

(-)a/installer/data/mysql/atomicupdate/bug_28772_api_keys.perl (-3 / +4 lines)
Lines 19-26 if( CheckVersion( $DBversion ) ) { Link Here
19
    });
19
    });
20
20
21
    foreach my $api_key (@$results) {
21
    foreach my $api_key (@$results) {
22
        my $digest = Koha::AuthUtils::hash_password( $api_key->{secret} );
22
        unless ( $api_key->{secret} =~ m/^\$2a\$08\$/ ) {
23
        $sth->execute( $digest, $api_key->{client_id} );
23
            my $digest = Koha::AuthUtils::hash_password( $api_key->{secret} );
24
            $sth->execute( $digest, $api_key->{client_id} );
25
        }
24
    }
26
    }
25
27
26
    NewVersion( $DBversion, 28772, "Store hashed API key secrets" );
28
    NewVersion( $DBversion, 28772, "Store hashed API key secrets" );
27
- 

Return to bug 28772