anchor.diff:                  false ->
                       case openidc:authenticate_token("refresh_token", ReqData) of
                           {ok, _} -> Do_get_user();
  -                        {error, Msg} ->
  +                        {error, _} ->
                               case openidc:authenticate_token("access_token", ReqData) of
                                   {ok, _} -> Do_get_user();
  -                                {error, Msg} -> {{halt, 403}, wrq:set_resp_body(Msg, ReqData), State}
  +                                {error, Msg} ->
  +                                    Error = "{\"error\": \"" ++ Msg ++ "\"}",
  +                                    {{halt, 403}, wrq:set_resp_body(Error, ReqData), State}
                               end
                       end
               end
       end.
  -
  -
  -% -spec get_user_by_token(TokenName::string(), TokenValue::string()) -> tuple().
  -% get_user_by_token(TokenName, TokenValue) ->
  -    % Query = TokenName ++ ":" ++ TokenValue,
  -    % case erlastic_search:search_limit(?INDEX, "user", Query, 500) of
  -    %     {error, Reason} -> {error, Reason};
  -    %     {ok, List} ->
  -    %         case List of
  -    %             [] -> {error, "No users found by the given token"};
  -
  -    %             Li when is_tuple(Li) ->
  -    %                 JSONList = lib_json:get_field(Li, "hits.hits"),
  -
  -    %                 Lambda = fun(JSON) ->
  -    %                     Source = lib_json:get_field(JSON, "_source"),
  -    %                     Field = case TokenName of
  -    %                         "Access-Token"  -> "access_token";
  -    %                         "Refresh-Token" -> "refresh_token";
  -    %                         Other           -> Other
  -    %                     end,
  -    %                     Tok = binary_to_list(lib_json:get_field(Source, Field)),
  -    %                     TokenValue == Tok
  -    %                 end,
  -
  -    %                 case lists:filter(Lambda, JSONList) of
  -    %                     []  -> {error, "No users found for this token"};
  -    %                     [X] -> {ok, TokenValue};
  -    %                     L   -> {error, "Too many users found for this token"}
  -    %                 end;
  -
  -    %             _ -> {error, TokenName ++ " not valid"}
  -    %         end
  -    % end.
   
   
   -spec get_user_model(ReqData::tuple(), State::string()) -> {list(), tuple(), string()}.
  
positive.code:     Req = string:sub_string(lists:nth(length(URIList),URIList),1,7),
      case Req of
          "_auth"   -> process_auth_request(ReqData, State);
          % "_signin" -> process_signin(ReqData, State);
          "_search" -> process_search(ReqData, State, post);
          _ -> create_user(ReqData, State)
      end.
      % case api_help:is_auth(ReqData) of
      %     true  -> process_auth_request(ReqData, State);
      %     false ->
  
negative.code:     %         end
      % end.
  
  
  -spec create_user(ReqData::tuple(), State::string()) -> {true, tuple(), string()}.
  create_user(ReqData, State) ->
  