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

(-)a/C4/Auth_with_ldap.pm (-4 lines)
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
- 

Return to bug 10925