anchor.diff:  -spec handle_cast(term(), #state{}) ->
       {noreply, #state{}}.
   
  -handle_cast({insert, Keys, Lang}, State) ->
  -    Values = [{{to_bin(Key), Lang}, to_bin(Txt)} || {Key, Txt} <- Keys],
  +handle_cast({insert, SrvId, Keys, Lang}, State) ->
  +    Values = [{{SrvId, to_bin(Key), Lang}, to_bin(Txt)} || {Key, Txt} <- Keys],
       ets:insert(?MODULE, Values),
       {noreply, State};
   
  
positive.code: %% ===================================================================
  
  %% @doc Gets a string for english
  -spec get(key()) ->
      binary().
  
  get(Key) ->
      get(Key, <<"en">>).
  
  
  %% @doc Gets a string for any language, or use english default
  -spec get(key(), lang()) ->
      binary().
  
  get(Key, Lang) ->
      Lang2 = to_bin(Lang),
      case ets:lookup(?MODULE, {to_bin(Key), Lang2}) of
          [] when Lang2 == <<"en">> -> <<>>;
          [] -> get(Key, <<"en">>);
          [{_, Msg}] -> Msg
      end.
  
  
  %% @doc Gets a string an expands parameters
  -spec get(key(), list(), lang()) ->
      binary().
  
  get(Key, List, Lang) when is_list(List) ->
      case get(Key, Lang) of
          <<>> ->
              <<>>;
          Msg ->
  
negative.code: -author('Carlos Gonzalez <carlosj.gf@gmail.com>').
  -behaviour(gen_server).
  
  -export([get/2, get/3, get/4, insert/2, insert/3, load/2]).
  -export([start_link/0, init/1, terminate/2, code_change/3, handle_call/3, handle_cast/2, 
           handle_info/2]).
  
  