anchor.diff:  
   -spec build_user_json(Data::tuple(), AccToken::string(), RefToken::string()) -> string().
   build_user_json(Data, AccToken, RefToken) ->
  -    Id = proplists:get_value(<<"id">>, Data),
  +    ID = proplists:get_value(<<"id">>, Data),
       % Etag = proplists:get_value(<<"etag">>, Data),
  -    Email = list_to_binary(binary_to_list(Id) ++ "@openid.ericsson"),
  +    LID = binary_to_list(ID),
  +    case LID of
  +        "107908217220817548513" -> Admin = true;
  +        _ -> Admin = false
  +    end,
  +
  +    Email = list_to_binary(LID ++ "@openid.ericsson"),
       Password = list_to_binary("pa55w0rd"),
       Description = proplists:get_value(<<"occupation">>, Data),
   
  
positive.code:             {description, Description},
              {image_url, URL},
              {access_token, AccToken},
              {refresh_token, RefToken}
          ]
      }).
  
  
  -spec user_is_new(UserData::string()) -> tuple().
  user_is_new(UserData) ->
      Username = binary_to_list(proplists:get_value(<<"id">>, UserData)),
      check_and_sanitize(Username).
      % Username = binary_to_list(lib_json:get_field(UserJSON, "username")),
      % case check_and_sanitize(Username) of
      %     invalidcharacters ->
  
negative.code:     end.
  
  
  %% @doc
  %% Function: get_user/2
  %% Purpose: Returns the JSON representation of a json-object or multiple json-objects.
  