gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 41094: Fix search_anonymize_candidates, locked_account 

We should not allow anonymizing patrons with failed login attempts
when the pref FailedLoginAttempts has not been set.

Test plan:
Run the test again from the previous patch. This should pass now.
Choose a patron with a positive value (say 55) in borrowers.login_attempts
or modify one. (NOTE: This patron will be anonymized in the test plan.)
Empty pref value for FailedLoginAttempts.
Set PatronAnonymizeDelay to 1.
Fill dateexpiry for this patron to yesterday.
Run cleanupdatabase.pl -confirm -v and check if the patron was NOT anonymized.
* Anonymized 0 patrons

Now set FailedLoginAttempts to a value (say 55) so that the patron is
considered as locked. (This unrealistic value is for testing only.)
MAKE SURE that you will not be anonymizing more patrons than you like
in the next step! (Set login_attempts to value < 55 for all other patrons.)
Run cleanupdatabase.pl -confirm -v again and check if the patron was anonymized.
* Anonymized 1 patrons
Restore the changed pref values.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Martin Renvoize <martin.renvoize@openfifth.co.uk>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 291c2f103d)
Signed-off-by: Paul Derscheid <paul.derscheid@lmscloud.de>
This commit is contained in:
Marcel de Rooy 2025-10-24 13:06:23 +02:00 committed by Paul Derscheid
parent 9a2e2c3101
commit 2fb7dab4a4
No known key found for this signature in database
GPG Key ID: C25F9FD44CED595B
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Koha/Patron.pm
View File

@ -2013,8 +2013,9 @@ sub account_locked {
my $FailedLoginAttempts = C4::Context->preference('FailedLoginAttempts');
return 1
if $FailedLoginAttempts
and $self->login_attempts
and $self->login_attempts >= $FailedLoginAttempts;
&& $FailedLoginAttempts > 0
&& $self->login_attempts
&& $self->login_attempts >= $FailedLoginAttempts;
return 1 if ( $self->login_attempts || 0 ) < 0; # administrative lockout
return 0;
}

7
Koha/Patrons.pm
View File

@ -305,10 +305,13 @@ sub search_anonymize_candidates {
my $str = $parser->format_datetime($dt);
$cond->{dateexpiry} = { '<=' => $str };
$cond->{anonymized} = 0; # not yet done
if ( $params->{locked} ) {
my $fails = C4::Context->preference('FailedLoginAttempts') || 0;
my $fails = C4::Context->preference('FailedLoginAttempts');
if ( $params->{locked} && $fails && $fails > 0 ) { # $fails should actually not be negative btw
$cond->{login_attempts} =
[ -and => { '!=' => undef }, { -not_in => [ 0, 1 .. $fails - 1 ] } ]; # -not_in does not like undef
} elsif ( $params->{locked} ) {
$cond->{login_attempts} = -1;
}
return $class->search($cond);
}