Bugfixing, compile-error-sqhashung.

This commit is contained in:
Jonathan Bernard
2011-06-15 00:54:58 -05:00
parent 7d11112226
commit 658091e947
6 changed files with 50 additions and 22 deletions

View File

@ -22,7 +22,7 @@ set_property(Ref=#ts_timeline{}, entry_exclusions, ExclusionList) ->
set_property(Ref, Key, Value) ->
throw(io_lib:format("Property '~s' not available for a ~s record.",
[Key, element(1, Ref)]).
[Key, element(1, Ref)])).
get_property(Ref, PropKey) ->
{atomic, Result} = mnesia:transaction(fun() ->
@ -42,6 +42,6 @@ get_properties(Ref) ->
do_set_property(Ref, PropKey, Val) ->
{atomic, Result} = mnesia:transaction(fun() ->
mnesia:write(#ts_ext_data{ref = {Ref, PropKey}, value = Val}).
mnesia:write(#ts_ext_data{ref = {Ref, PropKey}, value = Val})
end),
Result.