Fix /v1/admin/stats всегда пустые данные
Добавлено поле с датой последнего логина пользователям и админам #20
This commit is contained in:
@@ -1,7 +1,7 @@
|
||||
-module(core_admin).
|
||||
-include("records.hrl").
|
||||
-export([create/3, get_by_email/1, get_by_id/1, list_all/0,
|
||||
update_role/2, block/1, unblock/1, generate_id/0]).
|
||||
update_role/2, block/1, unblock/1, generate_id/0, update_last_login/1]).
|
||||
|
||||
create(Email, Password, Role) ->
|
||||
case get_by_email(Email) of
|
||||
@@ -49,6 +49,15 @@ update_role(Id, NewRole) when is_atom(NewRole) ->
|
||||
Error -> Error
|
||||
end.
|
||||
|
||||
update_last_login(Id) ->
|
||||
case get_by_id(Id) of
|
||||
{ok, Admin} ->
|
||||
Updated = Admin#admin{last_login = calendar:universal_time()},
|
||||
mnesia:dirty_write(Updated),
|
||||
{ok, Updated};
|
||||
Error -> Error
|
||||
end.
|
||||
|
||||
block(Id) ->
|
||||
update_status(Id, blocked).
|
||||
|
||||
|
||||
Reference in New Issue
Block a user