View | Details | Raw Unified | Return to bug 36575
Collapse All | Expand All

(-)a/C4/Auth.pm (-2 / +2 lines)
Lines 2043-2050 sub checkpw { Link Here
2043
2043
2044
        # INTERNAL AUTH
2044
        # INTERNAL AUTH
2045
        @return    = checkpw_internal( $userid, $password, $no_set_userenv );
2045
        @return    = checkpw_internal( $userid, $password, $no_set_userenv );
2046
        $passwd_ok = 1 if $return[0] > 0;                                       # 1 or 2
2046
        $passwd_ok = $return[0];
2047
        $patron    = $return[3];
2047
        $patron    = $passwd_ok ? $return[3] : undef;
2048
    }
2048
    }
2049
2049
2050
    if ( defined $userid && !$patron ) {
2050
    if ( defined $userid && !$patron ) {
(-)a/C4/Auth_with_shibboleth.pm (-2 / +1 lines)
Lines 409-415 This routine is NOT exported Link Here
409
409
410
=head2 _autocreate
410
=head2 _autocreate
411
411
412
  my ( $retval, $retcard, $retuserid ) = _autocreate( $config, $match );
412
  my ( $retval, $retcard, $retuserid, $patron ) = _autocreate( $config, $match, $patron );
413
413
414
Given a shibboleth attribute reference and a userid this internal routine will add the given user to Koha and return their user credentials.
414
Given a shibboleth attribute reference and a userid this internal routine will add the given user to Koha and return their user credentials.
415
415
416
- 

Return to bug 36575