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>
Signed-off-by: Wainui Witika-Park <wainuiwitikapark@catalyst.net.nz>
This commit is contained in:
Marcel de Rooy 2024-04-30 14:39:36 +00:00 committed by Wainui Witika-Park
parent de737eb279
commit 6f0281c79e
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

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

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