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

SVN Revision: 778

diff --git a/ChangeLog b/ChangeLog
index 7055110db3c5956017a7b2602a3d1c3b8a274d6b..ac79ca6f1333d260c071461ee7e4d1e6c7ac4aa2 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -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

diff --git a/src/xml.erl b/src/xml.erl
index 8886188671e40f4987827fd7e413326dc15918b4..002239668d7bbf161fe6c2b81578b6b3bff3f11f 100644 (file)
--- a/src/xml.erl
+++ b/src/xml.erl
@@ -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;