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); |
40 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout); |
Lines 1563-1568
sub checkpw {
Link Here
|
1563 |
sub checkpw_internal { |
1564 |
sub checkpw_internal { |
1564 |
my ( $dbh, $userid, $password ) = @_; |
1565 |
my ( $dbh, $userid, $password ) = @_; |
1565 |
|
1566 |
|
|
|
1567 |
$password = Encode::encode( 'UTF-8', $password ) |
1568 |
if Encode::is_utf8($password); |
1569 |
|
1566 |
if ( $userid && $userid eq C4::Context->config('user') ) { |
1570 |
if ( $userid && $userid eq C4::Context->config('user') ) { |
1567 |
if ( $password && $password eq C4::Context->config('pass') ) { |
1571 |
if ( $password && $password eq C4::Context->config('pass') ) { |
1568 |
# Koha superuser account |
1572 |
# Koha superuser account |