diff options
| author | Alexey Shchepin <alexey@process-one.net> | 2006-12-20 23:22:05 +0000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2006-12-20 23:22:05 +0000 |
| commit | ea92c3cf2f04f983addbdd332bca962ddae7ea9e (patch) | |
| tree | ebaa8a95f65b3f283f5b9fb5b0e8256735e8cb40 /src | |
| parent | * README: Added this file as a quickstart guide. (diff) | |
* src/ejd2odbc.erl: Bugfix
SVN Revision: 698
Diffstat (limited to 'src')
| -rw-r--r-- | src/ejd2odbc.erl | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/src/ejd2odbc.erl b/src/ejd2odbc.erl index 6dfc3a406..1513a1abc 100644 --- a/src/ejd2odbc.erl +++ b/src/ejd2odbc.erl @@ -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 |