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

(-)a/C4/Auth_with_ldap.pm (-1 / +2 lines)
Lines 51-56 sub ldapserver_error { Link Here
51
51
52
use vars qw($mapping @ldaphosts $base $ldapname $ldappassword);
52
use vars qw($mapping @ldaphosts $base $ldapname $ldappassword);
53
my $ldap = C4::Context->config("ldapserver") or die 'No "ldapserver" in server hash from KOHA_CONF: ' . $ENV{KOHA_CONF};
53
my $ldap = C4::Context->config("ldapserver") or die 'No "ldapserver" in server hash from KOHA_CONF: ' . $ENV{KOHA_CONF};
54
# since Bug 28278 we need to skip id in <ldapserver id="ldapserver"> which generates additional hash level
55
$ldap = $ldap->{ldapserver}         or die ldapserver_error('id="ldapserver"');
54
my $prefhost  = $ldap->{hostname}	or die ldapserver_error('hostname');
56
my $prefhost  = $ldap->{hostname}	or die ldapserver_error('hostname');
55
my $base      = $ldap->{base}		or die ldapserver_error('base');
57
my $base      = $ldap->{base}		or die ldapserver_error('base');
56
$ldapname     = $ldap->{user}		;
58
$ldapname     = $ldap->{user}		;
57
- 

Return to bug 28385