diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2002-11-29 20:55:12 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2002-11-29 20:55:12 +0000 |
| commit | 9fdf316aaba2fe056270a4cb0609198061e4671d (patch) | |
| tree | ecd021bcaeca42728cd5f9aa7ff12238be8da82e /src/jlib.erl | |
| parent | *** empty log message *** (diff) | |
*** empty log message ***
SVN Revision: 9
Diffstat (limited to 'src/jlib.erl')
| -rw-r--r-- | src/jlib.erl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/jlib.erl b/src/jlib.erl index 0ee2ba74a..b301378c8 100644 --- a/src/jlib.erl +++ b/src/jlib.erl @@ -10,21 +10,20 @@ -author('alexey@sevcom.net'). -vsn('$Revision$ '). --export([make_error_iq_reply/3, make_correct_from_to_attrs/3, +-export([make_error_reply/3, make_correct_from_to_attrs/3, replace_from_to_attrs/3, string_to_jid/1, tolower/1]). %send_iq(From, To, ID, SubTags) -> % ok. -make_error_iq_reply({xmlelement, Name, Attrs, SubTags}, Code, Desc) - when Name == "iq" -> - NewAttrs = make_error_iq_reply_attrs(Attrs), +make_error_reply({xmlelement, Name, Attrs, SubTags}, Code, Desc) -> + NewAttrs = make_error_reply_attrs(Attrs), {xmlelement, Name, NewAttrs, SubTags ++ [{xmlelement, "error", [{"code", Code}], [{xmlcdata, Desc}]}]}. -make_error_iq_reply_attrs(Attrs) -> +make_error_reply_attrs(Attrs) -> To = xml:get_attr("to", Attrs), From = xml:get_attr("from", Attrs), Attrs1 = lists:keydelete("to", 1, Attrs), |