diff options
Diffstat (limited to 'src/xml.erl')
| -rw-r--r-- | src/xml.erl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/xml.erl b/src/xml.erl index 9f047c82..e14f54c1 100644 --- a/src/xml.erl +++ b/src/xml.erl @@ -17,7 +17,8 @@ get_attr/2, get_attr_s/2, get_tag_attr/2, get_tag_attr_s/2, get_subtag/2, - get_path_s/2]). + get_path_s/2, + replace_tag_attr/3]). element_to_string(El) -> case El of @@ -190,3 +191,10 @@ get_path_s(El, [{attr, Name}]) -> get_path_s(El, [cdata]) -> get_tag_cdata(El). + +replace_tag_attr(Attr, Value, {xmlelement, Name, Attrs, Els}) -> + Attrs1 = lists:keydelete(Attr, 1, Attrs), + Attrs2 = [{Attr, Value} | Attrs1], + {xmlelement, Name, Attrs2, Els}. + + |