Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

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

Browse source 
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Marcel de Rooy 2024-04-30 14:39:36 +00:00 committed by Katrin Fischer
parent eeb0f39686
commit 897b4a2c15
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834
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

@ -2039,8 +2039,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.