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

(-)a/C4/Auth_with_ldap.pm (-3 / +2 lines)
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} || undef;
277
            $data = $mapping{$key}->{content} || undef;
278
		}
278
		}
279
		$borrower{$key} = $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
- 

Return to bug 16719