From 1cdb537d79346f28170747582f1ab387c5611a12 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 30 Jul 2014 14:53:27 +0000 Subject: [PATCH] BUG 12026, Follow up: Added Documentation BUG 12026, Follow up: Updated to work with match point selection - The base bug that this patch enhances has added the ability to choose your match point in the configuration file. This patch adds code to take that change into account. --- C4/Auth_with_shibboleth.pm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/C4/Auth_with_shibboleth.pm b/C4/Auth_with_shibboleth.pm index 0383bb7..f30281f 100644 --- a/C4/Auth_with_shibboleth.pm +++ b/C4/Auth_with_shibboleth.pm @@ -104,10 +104,10 @@ sub checkpw_shib { return ( 1, $borrower->get_column('cardnumber'), $borrower->get_column('userid') ); } + # If we reach this point, the user is not yet a valid koha user if ( $config->{'autocreate'} ) { return _autocreate( $dbh, $config, $match ); } else { - # If we reach this point, the user is not a valid koha user $debug and warn "User with $config->{matchpoint} of $match is not a valid Koha user"; return 0; } @@ -282,6 +282,14 @@ Given a database handle and a shib_login attribute, this routine checks for a ma my ( $retval, $retcard, $retuserid ) = C4::Auth_with_shibboleth::checkpw_shib( $shib_login ); +=head2 _autocreate + + my ( $retval, $retcard, $retuserid ) = _autocreate( $dbh, $shib, $userid ); + +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 + +This routine is NOT exported + =head1 SEE ALSO =cut -- 1.7.10.4