action_transfer.erl 461 B

1234567891011121314151617181920212223
  1. -module(action_transfer).
  2. %%-author('Andrey Martemyanov').
  3. -include_lib("nitro/include/nitro.hrl").
  4. -export([
  5. render_action/1
  6. ]).
  7. render_action(Record) ->
  8. case Record#transfer.state of
  9. undefined -> ok;
  10. List when is_list(List) -> [ erlang:put(K, V) || {K, V} <- List ];
  11. Single -> erlang:put(state,Single)
  12. end,
  13. Events = case Record#transfer.events of
  14. E when is_list(E) -> E;
  15. E -> [E]
  16. end,
  17. [ self() ! M || M <- Events ],
  18. ok.