anchor.diff:  		     {ok, SearchBase1} -> SearchBase1;
   		     none -> ""
   		 end,
  -    SearchResult = eldap:search(Handle, [{base, SearchBase},
  -					 {filter, Filter},
  -					 {attributes, Attributes}]),
  -    case SearchResult of
  +    case eldap:search(Handle, [{base, SearchBase},
  +			       {filter, Filter},
  +			       {attributes, Attributes}]) of
   	{ok, #eldap_search_result{entries = List}} ->
   	    case List of
   		[] ->
  
positive.code: %% Records
  %%--------------------------------------------------------------------
  -record(state, {
  	  handle,
  	  server,
  	  querycount
  	 }).
  -record(ldaphandle, {
  	  ref
  	 }).
  
  %%--------------------------------------------------------------------
  %% Macros
  %%--------------------------------------------------------------------
  -define(TIMEOUT, 2 * 1000).
  
  %%====================================================================
  %% External functions
  
negative.code: %% Function: init([Server])
  %%           Server = string()
  %% Descrip.: Initiates the server
  %% Returns : {ok, State}           |
  %%           {ok, State, ?TIMEOUT}
  %%--------------------------------------------------------------------
  init([Server]) ->
      Handle =
  	case Server of
  	    none ->
  		none;
  	    H when is_record(H, ldaphandle) ->
  		H;
  	    _ when is_list(Server) ->
  		case ldap_connect(Server) of
  		    H2 when is_record(H2, ldaphandle) ->
  			H2;
  		    {error, E} ->
  			logger:log(error, "LDAP client: Could not connect to LDAP server ~p "
  				   "at the moment : ~p", [Server, E]),
  			not_connected
  		end
  	end,
      State =
  	#state{handle     = Handle,
  	       server     = Server,
  	       querycount = 0,
  	       timeout    = ?TIMEOUT
  	      },
  
      case Handle of
  	none -> {ok, State};
  	_ ->    {ok, State, ?TIMEOUT}
      end.
  
  
  %%--------------------------------------------------------------------
  %% Function: handle_call(Msg, From, State)
  