installer/data/mysql/atomicupdate/bug_21336c.perl

   1 $DBversion = 'XXX';  # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3     $dbh->do( "UPDATE borrowers SET login_attempts = ? WHERE login_attempts > ?", undef, C4::Context->preference('FailedLoginAttempts'), C4::Context->preference('FailedLoginAttempts') );
   4     SetVersion( $DBversion );
   5     print "Upgrade to $DBversion done (Bug 21336 - Reset login_attempts)\n";
   6 }