From ea92c3cf2f04f983addbdd332bca962ddae7ea9e Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Wed, 20 Dec 2006 23:22:05 +0000
Subject: * src/ejd2odbc.erl: Bugfix

SVN Revision: 698
---
 src/ejd2odbc.erl | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3