* src/odbc/odbc_queries.erl (del_user_return_password): Return

password (thanks to Oleg Palij)

SVN Revision: 1343

diff --git a/ChangeLog b/ChangeLog
index a7033ba7252d00b7f37958e3b162f4987734004d..03fe110b3ca7bf3182fe28417e548070203e6f53 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-31  Badlop  <badlop@process-one.net>
+
+       * src/odbc/odbc_queries.erl (del_user_return_password): Return
+       password (thanks to Oleg Palij)
+
 2008-05-22  Badlop  <badlop@process-one.net>
 
        * README: R12 support: remove compilation warning (EJAB-630)

diff --git a/src/odbc/odbc_queries.erl b/src/odbc/odbc_queries.erl
index bef9837c61219a8a2a52a3323ff6030a4df0109c..1dac2dfdda3a54c4d4097b52e4362682b4b13d93 100644 (file)
--- a/src/odbc/odbc_queries.erl
+++ b/src/odbc/odbc_queries.erl
@@ -129,12 +129,13 @@ del_user(LServer, Username) ->
       ["delete from users where username='", Username ,"';"]).
 
 del_user_return_password(_LServer, Username, Pass) ->
-    ejabberd_odbc:sql_query_t(
-      ["select password from users where username='",
-       Username, "';"]),
+    P = ejabberd_odbc:sql_query_t(
+         ["select password from users where username='",
+          Username, "';"]),
     ejabberd_odbc:sql_query_t(["delete from users "
                               "where username='", Username,
-                              "' and password='", Pass, "';"]).
+                              "' and password='", Pass, "';"]),
+    P.
 
 list_users(LServer) ->
     ejabberd_odbc:sql_query(