25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-10-13 15:16:49 +02:00

* src/xml.erl: Remove compilation warnings (EJAB-290).

SVN Revision: 838
This commit is contained in:
Mickaël Rémond 2007-07-30 09:09:24 +00:00
parent 3cd7d1b54b
commit 3f51e73944
2 changed files with 6 additions and 4 deletions

View File

@ -1,5 +1,7 @@
2007-07-30 Mickael Remond <mickael.remond@process-one.net>
* src/xml.erl: Remove compilation warnings (EJAB-290).
* src/xml.erl: Do not crypt binary CData, but enclose the value in
XML CDATA "tag".

View File

@ -58,7 +58,7 @@ crypt(S) when is_list(S) ->
crypt(S) when is_binary(S) ->
crypt(binary_to_list(S)).
remove_cdata_p({xmlelement, Name, Attrs, Els}) -> true;
remove_cdata_p({xmlelement, _Name, _Attrs, _Els}) -> true;
remove_cdata_p(_) -> false.
remove_cdata(L) -> [E || E <- L, remove_cdata_p(E)].
@ -73,7 +73,7 @@ get_cdata([_ | L], S) ->
get_cdata([], S) ->
S.
get_tag_cdata({xmlelement, Name, Attrs, Els}) ->
get_tag_cdata({xmlelement, _Name, _Attrs, Els}) ->
get_cdata(Els).
get_attr(AttrName, Attrs) ->
@ -92,10 +92,10 @@ get_attr_s(AttrName, Attrs) ->
""
end.
get_tag_attr(AttrName, {xmlelement, Name, Attrs, Els}) ->
get_tag_attr(AttrName, {xmlelement, _Name, Attrs, _Els}) ->
get_attr(AttrName, Attrs).
get_tag_attr_s(AttrName, {xmlelement, Name, Attrs, Els}) ->
get_tag_attr_s(AttrName, {xmlelement, _Name, Attrs, _Els}) ->
get_attr_s(AttrName, Attrs).