anchor.diff:  search_reply(_From, SearchResult,_MessageID) when is_atom(SearchResult) ->
       SearchResult;
   search_reply(From, [Item|Result], MessageID) ->
  -    Attrs = lists:flatten(
  -	      lists:map(fun(I) -> 
  -				item_to_attribute(I) 
  -			end, Item)),
  +    Attrs = lists:flatten(lists:map(fun(I) -> item_to_attribute(I) end, Item)),
       {value, {_, "dn", [DN]}, PartialAttrs} = lists:keytake("dn", 2, Attrs),
       Entry = {'SearchResultEntry', DN, PartialAttrs},
       ldap_fsm:reply(From, {{searchResEntry, Entry}, MessageID}),
  
positive.code:     end.	
  
  %% @doc @todo
  add(_BindDN,_DN,_Attributes) ->
      success.
  
  %% @doc @todo
  parse_response([Response]) ->
  
negative.code: %% @doc @todo
  attribute_to_item({'PartialAttribute', Name, [Value]}) when is_list(Name),
  							    is_list(Value) ->
      {list_to_bitstring(Name), list_to_bitstring(Value)};
  attribute_to_item({'PartialAttribute', Name, Value}) when is_list(Name),
  							  is_list(Value) ->
      {list_to_bitstring(Name), {array, [list_to_bitstring(V) || V <- Value]}}.
  
  handle_cast({{bindRequest, Options}, MessageID,_BindDN, From}, State) ->
      {'BindRequest',_, BindDN, Creds} = Options,
  