From d4726c71328c156be519f0f5cf2190a5d6c5c900 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Wed, 26 Dec 2018 12:42:28 -0300 Subject: [PATCH] Bug 22047: Fix opac/opac-passwd.pl call Signed-off-by: Kyle M Hall Signed-off-by: Josef Moravec Signed-off-by: Nick Clemens --- Koha/Patron.pm | 2 +- opac/opac-passwd.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index b10b116e0f..870cb6b819 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -708,7 +708,7 @@ sub set_password { my $password_length = length($password); Koha::Exceptions::Password::TooShort->throw( - { length => $password_length, min_length => $min_length } ); + length => $password_length, min_length => $min_length ); } elsif ( $error eq 'has_whitespaces' ) { Koha::Exceptions::Password::WhitespaceCharacters->throw(); diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl index 60d79f61c3..4c72d30c5c 100755 --- a/opac/opac-passwd.pl +++ b/opac/opac-passwd.pl @@ -60,7 +60,7 @@ if ( C4::Context->preference("OpacPasswordChange") ) { $template->param( 'passwords_mismatch' => '1' ); } else { try { - $patron->set_password( $new_password ); + $patron->set_password({ password => $new_password }); $template->param( 'password_updated' => '1' ); $template->param( 'borrowernumber' => $borrowernumber ); } -- 2.39.5