|
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 |
- |
|
|