mod_admin_extra: Fix private_get/private_set types

diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl
index e83dddd9f55723810007a2d81bd3c854d270b5c1..a0006dd9ede12b6c222cdf0bd89168074cac1510 100644 (file)
--- a/src/mod_admin_extra.erl
+++ b/src/mod_admin_extra.erl
@@ -460,12 +460,12 @@ commands() ->
      #ejabberd_commands{name = private_get, tags = [private],
                        desc = "Get some information from a user private storage",
                        module = ?MODULE, function = private_get,
-                       args = [{user, string}, {host, string}, {element, string}, {ns, string}],
+                       args = [{user, binary}, {host, binary}, {element, binary}, {ns, binary}],
                        result = {res, string}},
      #ejabberd_commands{name = private_set, tags = [private],
                        desc = "Set to the user private storage",
                        module = ?MODULE, function = private_set,
-                       args = [{user, string}, {host, string}, {element, string}],
+                       args = [{user, binary}, {host, binary}, {element, binary}],
                        result = {res, rescode}},
 
      #ejabberd_commands{name = srg_create, tags = [shared_roster_group],
@@ -1289,7 +1289,7 @@ private_get(Username, Host, Element, Ns) ->
     [{xmlel, <<"query">>,
       [{<<"xmlns">>, <<"jabber:iq:private">>}],
       [SubEl]}] = ResIq#iq.sub_el,
-    xml:element_to_string(SubEl).
+    binary_to_list(xml:element_to_binary(SubEl)).
 
 private_set(Username, Host, ElementString) ->
     case xml_stream:parse_element(ElementString) of