* src/xml.erl: Add new helper function get_subtag_cdata/2.

SVN Revision: 778
This commit is contained in:
Mickaël Rémond 2007-06-05 01:50:28 +00:00
parent b9e790f637
commit 9f48fe49c3
2 changed files with 12 additions and 1 deletions

View File

@ -1,3 +1,7 @@
2007-06-05 Mickael Remond <mickael.remond@process-one.net>
* src/xml.erl: Add new helper function get_subtag_cdata/2.
2007-05-31 Alexey Shchepin <alexey@sevcom.net>
* src/mod_vcard_odbc.erl: Fix for previous commit (thanks to

View File

@ -16,7 +16,7 @@
get_cdata/1, get_tag_cdata/1,
get_attr/2, get_attr_s/2,
get_tag_attr/2, get_tag_attr_s/2,
get_subtag/2,
get_subtag/2, get_subtag_cdata/2,
get_path_s/2,
replace_tag_attr/3]).
@ -209,6 +209,13 @@ get_subtag1([El | Els], Name) ->
get_subtag1([], _) ->
false.
get_subtag_cdata(Tag, Name) ->
case get_subtag(Tag, Name) of
false ->
"";
Subtag ->
get_tag_cdata(Subtag)
end.
get_path_s(El, []) ->
El;