From 11fa8e190810580e1879726e1d6695f405bfa0c6 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Tue, 27 Jan 2015 13:34:14 +0000
Subject: [PATCH] BUG 12027 [Followup]: Added missing documentation

https://bugs.koha-community.org/show_bug.cgi?id=12026
---
 C4/Auth_with_shibboleth.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/C4/Auth_with_shibboleth.pm b/C4/Auth_with_shibboleth.pm
index 456feda..a6ab055 100644
--- a/C4/Auth_with_shibboleth.pm
+++ b/C4/Auth_with_shibboleth.pm
@@ -49,7 +49,6 @@ sub shib_ok {
     return 0;
 }
 
-
 # Logout from Shibboleth
 sub logout_shib {
     my ($query) = @_;
@@ -309,6 +308,22 @@ Given a shib_login attribute, this routine checks for a matching local user and
 
   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( $config, $match );
-- 
2.1.4