From da0303c7cb313796d8868e187775ee6ad8d99451 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Tue, 27 Jan 2015 13:34:14 +0000 Subject: [PATCH] BUG 12027 [Followup]: Added missing documentation --- C4/Auth_with_shibboleth.pm | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) diff --git a/C4/Auth_with_shibboleth.pm b/C4/Auth_with_shibboleth.pm index 7dfe50b..6c38e03 100644 --- a/C4/Auth_with_shibboleth.pm +++ b/C4/Auth_with_shibboleth.pm @@ -47,7 +47,6 @@ sub shib_ok { return 0; } - # Logout from Shibboleth sub logout_shib { my ($query) = @_; @@ -290,6 +289,30 @@ 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 _get_uri + + _get_uri(); + +A sugar function to that simply returns the current page URI with appropriate protocal attached + +This routine is NOT exported + +=head2 _get_shib_config + + my $config = _get_shib_config(); + +A sugar function that checks for a valid sibboleth configuration, and if found returns a hashref of it's contents + +This routine is NOT exported + +=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 -- 2.1.4