anchor.diff:      get_xml_elements2(Name, In, []).
   
   get_xml_elements2(Name, [#xmlElement{name = Name} = H | T], Res) ->
  +    get_xml_elements2(Name, T, [H | Res]);
  +get_xml_elements2(Name, [#xmlElement{expanded_name = {_URI, Name}} = H | T], Res) ->
       get_xml_elements2(Name, T, [H | Res]);
   get_xml_elements2(Name, [_H | T], Res) ->
       get_xml_elements2(Name, T, Res);
  
positive.code: %%           PIDF_Doc = pidf_doc record()
  %%           Reason   = atom()
  parse_pidf_xml(#xmlElement{name = presence} = XML) ->
      [Entity] = get_xml_attributes(entity, XML#xmlElement.attributes),
  
      Comment =
  
negative.code: 				    data = PIDF_Doc
  				   }}
  	    catch
  		error : Y ->
  		    ST = erlang:get_stacktrace(),
  		    logger:log(error, "Presence PIDF: Could not parse pidf-xml data,~ncaught error : "
  			       "~p ~p", [Y, ST]),
  		    {error, bad_xml};
  		X : Y ->
  		    logger:log(error, "Presence PIDF: Could not parse pidf-xml data, caught ~p ~p", [X, Y]),
  		    {error, bad_xml}
  