* src/mod_muc/mod_muc_room.erl: Resend 'continue' elements in muc

room invitations (EJAB-490)

SVN Revision: 1136

ChangeLog

@@ -1,5 +1,8 @@
 2008-01-01  Badlop  <badlop@process-one.net>
 
+	* src/mod_muc/mod_muc_room.erl: Resend 'continue' elements in muc
+	room invitations (EJAB-490)
+
 	* src/ejabberdctl.template: Create logs_dir if doesn't exist. New
 	parameters --config, --ctl-config, --logs, --spool. Crash dump
 	renamed to erl_crash_DATETIME.dump.

src/mod_muc/mod_muc_room.erl

@@ -2975,12 +2975,19 @@ check_invitation(From, Els, Lang, StateData) ->
 		xml:get_path_s(
 		  InviteEl,
 		  [{elem, "reason"}, cdata]),
+	    ContinueEl =
+		case xml:get_path_s(
+		       InviteEl,
+		       [{elem, "continue"}]) of
+		    [] -> [];
+		    Continue1 -> [Continue1]
+		end,
 	    IEl =
 		[{xmlelement, "invite",
 		  [{"from",
 		    jlib:jid_to_string(From)}],
 		  [{xmlelement, "reason", [],
-		    [{xmlcdata, Reason}]}]}],
+		    [{xmlcdata, Reason}]}] ++ ContinueEl}],
 	    PasswdEl =
 		case (StateData#state.config)#config.password_protected of
 		    true ->