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

Bug 36575: (QA follow-up) Shibboleth POD and checkpw_internal call 

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
(cherry picked from commit 4cafd512cd31701fa3ee2a19abc4de4488b91e69)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Marcel de Rooy 2024-04-30 14:39:36 +00:00 committed by Fridolin Somers
parent bd2cb8582c
commit 245864a311
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C4/Auth.pm
View File

@ -2043,8 +2043,8 @@ sub checkpw {
# INTERNAL AUTH
@return = checkpw_internal( $userid, $password, $no_set_userenv );
$passwd_ok = 1 if $return[0] > 0; # 1 or 2
$patron = $return[3];
$passwd_ok = $return[0];
$patron = $passwd_ok ? $return[3] : undef;
}
if ( defined $userid && !$patron ) {

2
C4/Auth_with_shibboleth.pm
View File

@ -409,7 +409,7 @@ This routine is NOT exported
=head2 _autocreate
my ( $retval, $retcard, $retuserid ) = _autocreate( $config, $match );
my ( $retval, $retcard, $retuserid, $patron ) = _autocreate( $config, $match, $patron );
Given a shibboleth attribute reference and a userid this internal routine will add the given user to Koha and return their user credentials.