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

(-)a/C4/Auth_with_ldap.pm (-2 / +1 lines)
Lines 210-216 sub ldap_entry_2_hash ($$) { Link Here
210
	$debug and print STDERR "Finsihed \%memberhash has ", scalar(keys %memberhash), " keys\n",
210
	$debug and print STDERR "Finsihed \%memberhash has ", scalar(keys %memberhash), " keys\n",
211
					"Referencing \%mapping with ", scalar(keys %mapping), " keys\n";
211
					"Referencing \%mapping with ", scalar(keys %mapping), " keys\n";
212
	foreach my $key (keys %mapping) {
212
	foreach my $key (keys %mapping) {
213
		my  $data = $memberhash{$mapping{$key}->{is}}; 
213
		my  $data = $memberhash{ lc($mapping{$key}->{is}) }; # Net::LDAP returns all names in lowercase
214
		$debug and printf STDERR "mapping %20s ==> %-20s (%s)\n", $key, $mapping{$key}->{is}, $data;
214
		$debug and printf STDERR "mapping %20s ==> %-20s (%s)\n", $key, $mapping{$key}->{is}, $data;
215
		unless (defined $data) { 
215
		unless (defined $data) { 
216
			$data = $mapping{$key}->{content} || '';	# default or failsafe ''
216
			$data = $mapping{$key}->{content} || '';	# default or failsafe ''
217
- 

Return to bug 4994