Статистика для дашборда, расширенная #7

src/core/core_admin.erl

@@ -4,20 +4,25 @@
   update_role/2, block/1, unblock/1, generate_id/0]).
 
 create(Email, Password, Role) ->
-  Id = generate_id(),
-  {ok, Hash} = argon2:hash(Password),
-  Now = calendar:universal_time(),
-  Admin = #admin{
-    id = Id,
-    email = Email,
-    password_hash = Hash,
-    role = Role,
-    status = active,
-    created_at = Now,
-    updated_at = Now
-  },
-  mnesia:dirty_write(Admin),
-  {ok, Admin}.
+  case get_by_email(Email) of
+    {ok, _} ->
+      {error, email_exists};
+    {error, not_found} ->
+      Id = generate_id(),
+      {ok, Hash} = argon2:hash(Password),
+      Now = calendar:universal_time(),
+      Admin = #admin{
+        id = Id,
+        email = Email,
+        password_hash = Hash,
+        role = Role,
+        status = active,
+        created_at = Now,
+        updated_at = Now
+      },
+      mnesia:dirty_write(Admin),
+      {ok, Admin}
+  end.
 
 get_by_email(Email) ->
   Match = #admin{email = Email, _ = '_'},