anchor.diff:      ldap_fsm:set_bind(From, BindDN),
       success.
   
  -%% @doc @todo
  +%% @doc Process SearchRequest
   search(undefined,_BaseObject,_Scope,_SizeLimit,_Filter,_Attributes) ->
       insufficientAccessRights;
   search(_BindDN, BaseObject, Scope, SizeLimit, Filter, Attributes) ->
  
positive.code: 		      {'PartialAttribute', bitstring_to_list(Name), [bitstring_to_list(V)]}
  	      end, Value).
  
  %% @doc @todo
  attribute_to_item({'PartialAttribute', Name, [Value]}) when is_list(Name),
  							    is_list(Value) ->
      {list_to_bitstring(Name), list_to_bitstring(Value)};
  
negative.code:     {Key,_Value} = attribute_to_item(Change),
      object_delete(Key, Entry).
  
  %% @doc Parse eMongo response code
  parse_response([Response]) ->
      case lists:keyfind(<<"err">>, 1, Response) of
  	{<<"err">>, undefined} -> success;
  	_Else -> protocolError
      end.
  
  %% @doc Replace an attribute:value pair in an LDAP object
  %% @spec object_modify(Key, Value, Entry) -> Entry
  %%       Key -> list() | bitstring()
  %%       Value -> list() | bitstring() | tuple()
  %%       Entry -> list()
  object_modify(Key, Value, Entry) when is_list(Key) ->
      object_modify(list_to_bitstring(Key), Value, Entry);
  object_modify(Key, Value, Entry) when is_bitstring(Key),
  