diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2002-12-08 17:23:21 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2002-12-08 17:23:21 +0000 |
| commit | 534b6925a399a2ea3ab5477078c463e4d153f1bf (patch) | |
| tree | 840ad386f7483ea19ab1732acfd97a936f89aab7 /src/xml.erl | |
| parent | *** empty log message *** (diff) | |
*** empty log message ***
SVN Revision: 14
Diffstat (limited to '')
| -rw-r--r-- | src/xml.erl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/xml.erl b/src/xml.erl index 9ae4d5091..3bdcb62f7 100644 --- a/src/xml.erl +++ b/src/xml.erl @@ -10,7 +10,8 @@ -author('alexey@sevcom.net'). -vsn('$Revision$ '). --export([element_to_string/1, crypt/1, remove_cdata/1, get_cdata/1, +-export([element_to_string/1, crypt/1, remove_cdata/1, + get_cdata/1, get_tag_cdata/1, get_attr/2, get_attr_s/2]). element_to_string(El) -> @@ -72,7 +73,9 @@ get_cdata([_ | L], S) -> get_cdata(L, S); get_cdata([], S) -> S. - + +get_tag_cdata({xmlelement, Name, Attrs, Els}) -> + get_cdata(Els). get_attr(AttrName, Attrs) -> case lists:keysearch(AttrName, 1, Attrs) of |