mirror of
https://github.com/processone/ejabberd.git
synced 2024-10-13 15:16:49 +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>
|
||||
|
||||
* src/mod_vcard_odbc.erl: Fix for previous commit (thanks to
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user