Lines 18077-18083
VALUES
Link Here
|
18077 |
|
18077 |
|
18078 |
$DBversion = '18.12.00.051'; |
18078 |
$DBversion = '18.12.00.051'; |
18079 |
if( CheckVersion( $DBversion ) ) { |
18079 |
if( CheckVersion( $DBversion ) ) { |
18080 |
$dbh->do( "UPDATE borrowers SET login_attempts = ? WHERE login_attempts > ?", undef, C4::Context->preference('FailedLoginAttempts'), C4::Context->preference('FailedLoginAttempts') ); |
18080 |
my $failed_attempts = C4::Context->preference('FailedLoginAttempts'); |
|
|
18081 |
$dbh->do( "UPDATE borrowers SET login_attempts = ? WHERE login_attempts > ?", undef, $failed_attempts, $failed_attempts ) if $failed_attempts && $failed_attempts > 0; |
18081 |
SetVersion( $DBversion ); |
18082 |
SetVersion( $DBversion ); |
18082 |
print "Upgrade to $DBversion done (Bug 21336 - Reset login_attempts)\n"; |
18083 |
print "Upgrade to $DBversion done (Bug 21336 - Reset login_attempts)\n"; |
18083 |
} |
18084 |
} |
18084 |
- |
|
|