Lines 26-32
use C4::Context;
Link Here
|
26 |
use C4::Members qw(AddMember changepassword); |
26 |
use C4::Members qw(AddMember changepassword); |
27 |
use C4::Members::Attributes; |
27 |
use C4::Members::Attributes; |
28 |
use C4::Members::AttributeTypes; |
28 |
use C4::Members::AttributeTypes; |
29 |
use C4::Utils qw( :all ); |
|
|
30 |
use List::MoreUtils qw( any ); |
29 |
use List::MoreUtils qw( any ); |
31 |
use Net::LDAP; |
30 |
use Net::LDAP; |
32 |
use Net::LDAP::Filter; |
31 |
use Net::LDAP::Filter; |
Lines 203-212
sub ldap_entry_2_hash {
Link Here
|
203 |
my %memberhash; |
202 |
my %memberhash; |
204 |
$userldapentry->exists('uid'); # This is bad, but required! By side-effect, this initializes the attrs hash. |
203 |
$userldapentry->exists('uid'); # This is bad, but required! By side-effect, this initializes the attrs hash. |
205 |
if ($debug) { |
204 |
if ($debug) { |
206 |
print STDERR "\nkeys(\%\$userldapentry) = " . join(', ', keys %$userldapentry), "\n", $userldapentry->dump(); |
|
|
207 |
foreach (keys %$userldapentry) { |
205 |
foreach (keys %$userldapentry) { |
208 |
print STDERR "\n\nLDAP key: $_\t", sprintf('(%s)', ref $userldapentry->{$_}), "\n"; |
206 |
print STDERR "\n\nLDAP key: $_\t", sprintf('(%s)', ref $userldapentry->{$_}), "\n"; |
209 |
hashdump("LDAP key: ",$userldapentry->{$_}); |
|
|
210 |
} |
207 |
} |
211 |
} |
208 |
} |
212 |
my $x = $userldapentry->{attrs} or return; |
209 |
my $x = $userldapentry->{attrs} or return; |
213 |
- |
|
|