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

(-)a/C4/Auth.pm (-1 / +1 lines)
Lines 58-69 BEGIN { Link Here
58
    $shib        = C4::Context->config('useshibboleth') || 0;
58
    $shib        = C4::Context->config('useshibboleth') || 0;
59
    $caslogout   = C4::Context->preference('casLogout');
59
    $caslogout   = C4::Context->preference('casLogout');
60
    require C4::Auth_with_cas;             # no import
60
    require C4::Auth_with_cas;             # no import
61
    require C4::Auth_with_shibboleth;
62
    if ($ldap) {
61
    if ($ldap) {
63
    require C4::Auth_with_ldap;
62
    require C4::Auth_with_ldap;
64
    import C4::Auth_with_ldap qw(checkpw_ldap);
63
    import C4::Auth_with_ldap qw(checkpw_ldap);
65
    }
64
    }
66
    if ($shib) {
65
    if ($shib) {
66
        require C4::Auth_with_shibboleth;
67
        import C4::Auth_with_shibboleth
67
        import C4::Auth_with_shibboleth
68
          qw(shib_ok checkpw_shib logout_shib login_shib_url get_login_shib);
68
          qw(shib_ok checkpw_shib logout_shib login_shib_url get_login_shib);
69
69
(-)a/C4/Auth_with_shibboleth.pm (-2 / +1 lines)
Lines 17-24 package C4::Auth_with_shibboleth; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use C4::Debug;
22
use C4::Debug;
24
use C4::Context;
23
use C4::Context;
(-)a/t/Auth_with_shibboleth.t (-2 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
#
2
#
3
# This Koha test module is a stub!
4
# Add more tests here!!!
3
# Add more tests here!!!
5
4
6
use Modern::Perl;
5
use Modern::Perl;
7
- 

Return to bug 8446