Lines 392-410
if ( $op eq 'cud-save' || $op eq 'cud-insert' ) {
Link Here
|
392 |
push @errors, 'ERROR_password_too_weak' if $error eq 'too_weak'; |
392 |
push @errors, 'ERROR_password_too_weak' if $error eq 'too_weak'; |
393 |
push @errors, 'ERROR_password_has_whitespaces' if $error eq 'has_whitespaces'; |
393 |
push @errors, 'ERROR_password_has_whitespaces' if $error eq 'has_whitespaces'; |
394 |
} |
394 |
} |
395 |
|
395 |
|
396 |
# Check password history |
396 |
# Check password history |
397 |
if ($patron && $is_valid) { # Only check if other validations passed and we have a patron |
397 |
if ( $patron && $is_valid ) { # Only check if other validations passed and we have a patron |
398 |
my $is_used = Koha::PatronPasswordHistories->has_used_password({ |
398 |
my $is_used = Koha::PatronPasswordHistories->has_used_password( |
399 |
borrowernumber => $patron->borrowernumber, |
399 |
{ |
400 |
password => $password, |
400 |
borrowernumber => $patron->borrowernumber, |
401 |
current_password => $patron->password |
401 |
password => $password, |
402 |
}); |
402 |
current_password => $patron->password |
403 |
|
403 |
} |
|
|
404 |
); |
405 |
|
404 |
if ($is_used) { |
406 |
if ($is_used) { |
405 |
push @errors, 'ERROR_password_used_before'; |
407 |
push @errors, 'ERROR_password_used_before'; |
406 |
my $count = C4::Context->preference('PasswordHistoryCount') || 0; |
408 |
$template->param( password_history_count => $patron->category->effective_password_history_count ); |
407 |
$template->param( password_history_count => $count ); |
|
|
408 |
} |
409 |
} |
409 |
} |
410 |
} |
410 |
} |
411 |
} |
Lines 627-633
if ( ( !$nok ) and $nodouble and ( $op eq 'cud-insert' or $op eq 'cud-save' ) )
Link Here
|
627 |
} |
628 |
} |
628 |
} |
629 |
} |
629 |
|
630 |
|
630 |
# password validity has been checked above |
631 |
# password validity has been checked above |
631 |
my $password = $newdata{password}; |
632 |
my $password = $newdata{password}; |
632 |
if ( $password and $password ne '****' and $success ) { |
633 |
if ( $password and $password ne '****' and $success ) { |
633 |
$patron->set_password( { password => $password } ); |
634 |
$patron->set_password( { password => $password } ); |