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