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

(-)a/C4/Auth_with_ldap.pm (-2 / +2 lines)
Lines 248-256 sub ldap_entry_2_hash { Link Here
248
		my  $data = $memberhash{ lc($mapping{$key}->{is}) }; # Net::LDAP returns all names in lowercase
248
		my  $data = $memberhash{ lc($mapping{$key}->{is}) }; # Net::LDAP returns all names in lowercase
249
		$debug and printf STDERR "mapping %20s ==> %-20s (%s)\n", $key, $mapping{$key}->{is}, $data;
249
		$debug and printf STDERR "mapping %20s ==> %-20s (%s)\n", $key, $mapping{$key}->{is}, $data;
250
		unless (defined $data) { 
250
		unless (defined $data) { 
251
			$data = $mapping{$key}->{content} || '';	# default or failsafe ''
251
			$data = $mapping{$key}->{content} || undef;	# default or undef (NULL)
252
		}
252
		}
253
		$borrower{$key} = ($data ne '') ? $data : ' ' ;
253
		$borrower{$key} = $data
254
	}
254
	}
255
	$borrower{initials} = $memberhash{initials} || 
255
	$borrower{initials} = $memberhash{initials} || 
256
		( substr($borrower{'firstname'},0,1)
256
		( substr($borrower{'firstname'},0,1)

Return to bug 16719