24
1
mirror of https://github.com/processone/ejabberd.git synced 2024-06-02 21:17:12 +02:00
This commit is contained in:
Christophe Romain 2017-01-18 17:11:08 +01:00
parent 3482ee5c75
commit d2b8569452

View File

@ -44,7 +44,7 @@ create(Module, Name, TabDef)
{attributes, Attrs} = lists:keyfind(attributes, 1, Schema), {attributes, Attrs} = lists:keyfind(attributes, 1, Schema),
case catch mnesia:table_info(Name, attributes) of case catch mnesia:table_info(Name, attributes) of
{'EXIT', _} -> {'EXIT', _} ->
mnesia_op(create, [Name, TabDef]); mnesia_op(create_table, [Name, TabDef]);
Attrs -> Attrs ->
case need_reset(Name, Schema) of case need_reset(Name, Schema) of
true -> reset(Name, Schema); true -> reset(Name, Schema);
@ -61,7 +61,7 @@ create(Module, Name, TabDef)
reset(Name, TabDef) reset(Name, TabDef)
when is_atom(Name), is_list(TabDef) -> when is_atom(Name), is_list(TabDef) ->
mnesia_op(delete_table, [Name]), mnesia_op(delete_table, [Name]),
mnesia_op(create, [Name, TabDef]). mnesia_op(create_table, [Name, TabDef]).
update(Name, TabDef) update(Name, TabDef)
when is_atom(Name), is_list(TabDef) -> when is_atom(Name), is_list(TabDef) ->