yetangitu/ejabberd
1
0
Fork 0
mirror of https://github.com/processone/ejabberd synced 2025-10-03 17:59:31 +02:00
Code Issues Releases Wiki Activity

Fix deletion of multiple offline messages using WebAdmin (#1962)

Browse source
This commit is contained in:
Badlop 2017-08-25 12:44:53 +02:00
parent f7e8d287d5
commit 68dee8cbb3
1 changed files with 15 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/mod_offline.erl
View file

@ -706,20 +706,23 @@ user_queue_parse_query(LUser, LServer, Query) ->
Mod = gen_mod:db_mod(LServer, ?MODULE), Mod = gen_mod:db_mod(LServer, ?MODULE),
case lists:keysearch(<<"delete">>, 1, Query) of case lists:keysearch(<<"delete">>, 1, Query) of
{value, _} -> {value, _} ->
case lists:keyfind(<<"selected">>, 1, Query) of user_queue_parse_query(LUser, LServer, Query, Mod);
{_, Seq} -> _ ->
nothing
end.
user_queue_parse_query(LUser, LServer, Query, Mod) ->
case lists:keytake(<<"selected">>, 1, Query) of
{value, {_, Seq}, Query2} ->
case catch binary_to_integer(Seq) of case catch binary_to_integer(Seq) of
I when is_integer(I), I>=0 -> I when is_integer(I), I>=0 ->
Mod:remove_message(LUser, LServer, I), Mod:remove_message(LUser, LServer, I);
ok;
_ -> _ ->
nothing nothing
end; end,
user_queue_parse_query(LUser, LServer, Query2, Mod);
false -> false ->
nothing nothing
end;
_ ->
nothing
end. end.
us_to_list({User, Server}) -> us_to_list({User, Server}) ->