From 33f408170cab340a4f0c16860f6e1158c8f697c3 Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Tue, 15 Mar 2005 21:36:41 +0000
Subject: * src/ejabberd_sm.erl: Bugfix

SVN Revision: 298
---
 src/ejabberd_sm.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/ejabberd_sm.erl b/src/ejabberd_sm.erl
index 85b9b845..cfefa0c9 100644
--- a/src/ejabberd_sm.erl
+++ b/src/ejabberd_sm.erl
@@ -145,7 +145,8 @@ clean_table_from_bad_node(Node) ->
 			 [{'==', {node, '$1'}, Node}],
 			 ['$_']}]),
 		lists:foreach(fun(E) ->
-				      mnesia:delete_object(E)
+				      mnesia:delete_object(E),
+				      mnesia:delete({presence, E#session.ur})
 			      end, Es)
         end,
     mnesia:transaction(F).
-- 
cgit v1.2.3