* src/ejd2odbc.erl: Bugfix

SVN Revision: 698
This commit is contained in:
Alexey Shchepin 2006-12-20 23:22:05 +00:00
parent 7f4d5a806e
commit ea92c3cf2f
2 changed files with 14 additions and 9 deletions

View File

@ -1,3 +1,7 @@
2006-12-21 Alexey Shchepin <alexey@sevcom.net>
* src/ejd2odbc.erl: Bugfix
2006-12-16 Mickael Remond <mickael.remond@process-one.net>
* README: Added this file as a quickstart guide.
@ -67,7 +71,7 @@
* doc/guide.tex: Fixed regexp ACL configuration examples
(Thanks to Massimiliano Mirra).
* src/muc/mod_muc_room.erl: API improvement. It is now possible
to read and write a room config from a developer module (Thanks
to Massimiliano Mirra).

View File

@ -229,17 +229,18 @@ export_vcard_search(Server, Output) ->
export_private_storage(Server, Output) ->
export_common(
Server, private_storage, Output,
fun(Host, #private_storage{usns = {LUser, LServer, XMLNS},
xml = Data})
when LServer == Host ->
Username = ejabberd_odbc:escape(LUser),
Server, private_storage, Output,
fun(Host, #private_storage{usns = {LUser, LServer, XMLNS},
xml = Data})
when LServer == Host ->
Username = ejabberd_odbc:escape(LUser),
LXMLNS = ejabberd_odbc:escape(XMLNS),
SData = ejabberd_odbc:escape(Data),
SData = ejabberd_odbc:escape(
lists:flatten(xml:element_to_string(Data))),
odbc_queries:set_private_data_sql(Username, LXMLNS, SData);
(_Host, _R) ->
(_Host, _R) ->
[]
end).
end).
%%%----------------------------------------------------------------------
%%% Internal functions