mod_configure: Fix editing of access rules
This commit is contained in:
parent
16b1d8541a
commit
8e04a7ef4d
|
@ -1368,10 +1368,9 @@ get_form(Host, [<<"config">>, <<"access">>], Lang) ->
|
|||
[{xmlcdata, S}]}
|
||||
end,
|
||||
str:tokens(iolist_to_binary(io_lib:format("~p.",
|
||||
[ets:select(local_config,
|
||||
[{{local_config,
|
||||
{access,
|
||||
'$1',
|
||||
[ets:select(access,
|
||||
[{{access,
|
||||
{'$1',
|
||||
'$2'},
|
||||
'$3'},
|
||||
[{'==',
|
||||
|
@ -1826,10 +1825,9 @@ set_form(_From, Host, [<<"config">>, <<"access">>],
|
|||
Lang, XData) ->
|
||||
SetAccess = fun (Rs) ->
|
||||
mnesia:transaction(fun () ->
|
||||
Os = mnesia:select(local_config,
|
||||
[{{local_config,
|
||||
{access,
|
||||
'$1',
|
||||
Os = mnesia:select(access,
|
||||
[{{access,
|
||||
{'$1',
|
||||
'$2'},
|
||||
'$3'},
|
||||
[{'==',
|
||||
|
@ -1843,9 +1841,8 @@ set_form(_From, Host, [<<"config">>, <<"access">>],
|
|||
lists:foreach(fun ({access,
|
||||
Name,
|
||||
Rules}) ->
|
||||
mnesia:write({local_config,
|
||||
{access,
|
||||
Name,
|
||||
mnesia:write({access,
|
||||
{Name,
|
||||
Host},
|
||||
Rules})
|
||||
end,
|
||||
|
|
Loading…
Reference in New Issue