mirror of
https://github.com/processone/ejabberd.git
synced 2024-06-08 21:43:07 +02:00
* src/xml.erl: Add new helper function get_subtag_cdata/2.
SVN Revision: 778
This commit is contained in:
parent
b9e790f637
commit
9f48fe49c3
|
@ -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>
|
2007-05-31 Alexey Shchepin <alexey@sevcom.net>
|
||||||
|
|
||||||
* src/mod_vcard_odbc.erl: Fix for previous commit (thanks to
|
* src/mod_vcard_odbc.erl: Fix for previous commit (thanks to
|
||||||
|
|
|
@ -16,7 +16,7 @@
|
||||||
get_cdata/1, get_tag_cdata/1,
|
get_cdata/1, get_tag_cdata/1,
|
||||||
get_attr/2, get_attr_s/2,
|
get_attr/2, get_attr_s/2,
|
||||||
get_tag_attr/2, get_tag_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,
|
get_path_s/2,
|
||||||
replace_tag_attr/3]).
|
replace_tag_attr/3]).
|
||||||
|
|
||||||
|
@ -209,6 +209,13 @@ get_subtag1([El | Els], Name) ->
|
||||||
get_subtag1([], _) ->
|
get_subtag1([], _) ->
|
||||||
false.
|
false.
|
||||||
|
|
||||||
|
get_subtag_cdata(Tag, Name) ->
|
||||||
|
case get_subtag(Tag, Name) of
|
||||||
|
false ->
|
||||||
|
"";
|
||||||
|
Subtag ->
|
||||||
|
get_tag_cdata(Subtag)
|
||||||
|
end.
|
||||||
|
|
||||||
get_path_s(El, []) ->
|
get_path_s(El, []) ->
|
||||||
El;
|
El;
|
||||||
|
|
Loading…
Reference in New Issue
Block a user