|
Lines 274-282
sub ldap_entry_2_hash {
Link Here
|
| 274 |
my $data = $memberhash{ lc($mapping{$key}->{is}) }; # Net::LDAP returns all names in lowercase |
274 |
my $data = $memberhash{ lc($mapping{$key}->{is}) }; # Net::LDAP returns all names in lowercase |
| 275 |
$debug and printf STDERR "mapping %20s ==> %-20s (%s)\n", $key, $mapping{$key}->{is}, $data; |
275 |
$debug and printf STDERR "mapping %20s ==> %-20s (%s)\n", $key, $mapping{$key}->{is}, $data; |
| 276 |
unless (defined $data) { |
276 |
unless (defined $data) { |
| 277 |
$data = $mapping{$key}->{content} || ''; # default or failsafe '' |
277 |
$data = $mapping{$key}->{content} || undef; |
| 278 |
} |
278 |
} |
| 279 |
$borrower{$key} = ($data ne '') ? $data : ' ' ; |
279 |
$borrower{$key} = $data; |
| 280 |
} |
280 |
} |
| 281 |
$borrower{initials} = $memberhash{initials} || |
281 |
$borrower{initials} = $memberhash{initials} || |
| 282 |
( substr($borrower{'firstname'},0,1) |
282 |
( substr($borrower{'firstname'},0,1) |
| 283 |
- |
|
|