exmpp fixes in mod_muc (thanks to Karim Gemayel)

SVN Revision: 2931

src/mod_muc/mod_muc.erl

@@ -616,9 +616,23 @@ iq_disco_items(Host, From, Lang, Rsm) ->
 			 {item, Desc} ->
 			     flush(),
 			     {true,
-			      {xmlelement, "item",
+            #xmlel{name = 'item',
-			       [{"jid", jlib:jid_to_string({Name, Host, ""})},
+                   attrs = [
-				{"name", Desc}], []}};
+                     #xmlattr{
+                       name = 'jid',
+                       value = jlib:jid_to_string({Name, Host, ""})
+                     },
+                     #xmlattr{
+                       name = 'name',
+                       value = Desc
+                     }
+                   ]
+                  }
+           };
+			      %{xmlelement, "item",
+			       %[{"jid", jlib:jid_to_string({Name, Host, ""})},
+				%{"name", Desc}], []}};
+
 			 _ ->
 			     false
 		     end

src/mod_muc/mod_muc_room.erl

@@ -1691,7 +1691,9 @@ add_new_user(From, Nick, Packet, StateData) ->
 		    case ejabberd_captcha:create_captcha(
 			   ID, SID, RoomJID, To, Lang, From) of
 			{ok, CaptchaEls} ->
-			    MsgPkt = {xmlelement, "message", [{"id", ID}], CaptchaEls},
+                            MsgPkt = #xmlel{name = 'message',
+                                attrs = [#xmlattr{name = 'id', value = ID}],
+                                children = CaptchaEls},
 			    Robots = ?DICT:store(From,
 						 {Nick, Packet}, StateData#state.robots),
 			    ejabberd_router:route(RoomJID, From, MsgPkt),