Lines 104-113
sub checkpw_shib {
Link Here
|
104 |
return ( 1, $borrower->get_column('cardnumber'), $borrower->get_column('userid') ); |
104 |
return ( 1, $borrower->get_column('cardnumber'), $borrower->get_column('userid') ); |
105 |
} |
105 |
} |
106 |
|
106 |
|
|
|
107 |
# If we reach this point, the user is not yet a valid koha user |
107 |
if ( $config->{'autocreate'} ) { |
108 |
if ( $config->{'autocreate'} ) { |
108 |
return _autocreate( $dbh, $config, $match ); |
109 |
return _autocreate( $dbh, $config, $match ); |
109 |
} else { |
110 |
} else { |
110 |
# If we reach this point, the user is not a valid koha user |
|
|
111 |
$debug and warn "User with $config->{matchpoint} of $match is not a valid Koha user"; |
111 |
$debug and warn "User with $config->{matchpoint} of $match is not a valid Koha user"; |
112 |
return 0; |
112 |
return 0; |
113 |
} |
113 |
} |
Lines 282-287
Given a database handle and a shib_login attribute, this routine checks for a ma
Link Here
|
282 |
|
282 |
|
283 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_shibboleth::checkpw_shib( $shib_login ); |
283 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_shibboleth::checkpw_shib( $shib_login ); |
284 |
|
284 |
|
|
|
285 |
=head2 _autocreate |
286 |
|
287 |
my ( $retval, $retcard, $retuserid ) = _autocreate( $dbh, $shib, $userid ); |
288 |
|
289 |
Given a database handle, a shibboleth attribute reference and a userid this internal routine will add the given user to koha and return their user credentials |
290 |
|
291 |
This routine is NOT exported |
292 |
|
285 |
=head1 SEE ALSO |
293 |
=head1 SEE ALSO |
286 |
|
294 |
|
287 |
=cut |
295 |
=cut |
288 |
- |
|
|