Lines 34-39
use C4::VirtualShelves;
Link Here
|
34 |
use Koha::AuthUtils qw(hash_password); |
34 |
use Koha::AuthUtils qw(hash_password); |
35 |
use POSIX qw/strftime/; |
35 |
use POSIX qw/strftime/; |
36 |
use List::MoreUtils qw/ any /; |
36 |
use List::MoreUtils qw/ any /; |
|
|
37 |
use Encode qw( encode is_utf8); |
37 |
|
38 |
|
38 |
# use utf8; |
39 |
# use utf8; |
39 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login); |
40 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login); |
Lines 1650-1655
sub checkpw {
Link Here
|
1650 |
sub checkpw_internal { |
1651 |
sub checkpw_internal { |
1651 |
my ( $dbh, $userid, $password ) = @_; |
1652 |
my ( $dbh, $userid, $password ) = @_; |
1652 |
|
1653 |
|
|
|
1654 |
$password = Encode::encode( 'UTF-8', $password ) |
1655 |
if Encode::is_utf8($password); |
1656 |
|
1653 |
if ( $userid && $userid eq C4::Context->config('user') ) { |
1657 |
if ( $userid && $userid eq C4::Context->config('user') ) { |
1654 |
if ( $password && $password eq C4::Context->config('pass') ) { |
1658 |
if ( $password && $password eq C4::Context->config('pass') ) { |
1655 |
# Koha superuser account |
1659 |
# Koha superuser account |