anchor.diff:              case Domain of
                   CName ->
                       {ok,
  -                            [dns_server:answer_record(DomainNotNormalized, TTLSOA, soa, Authority)] ++
  -                            [dns_server:authority_record(DomainNotNormalized, TTLNS, ns, NSHostname) || NSHostname <- NSServers] ++
  +                            [dns_server:answer_record(DomainNotNormalized, TTLSOA, ?S_SOA, Authority)] ++
  +                            [dns_server:authority_record(DomainNotNormalized, TTLNS, ?S_NS, NSHostname) || NSHostname <- NSServers] ++
                               lists:flatten([begin
                                                  IPAddrList = proplists:get_value(NSHostname, IPAddresses, []),
  -                                               [dns_server:additional_record(NSHostname, TTLA, a, IPAddress) || IPAddress <- IPAddrList]
  +                                               [dns_server:additional_record(NSHostname, TTLA, ?S_A, IPAddress) || IPAddress <- IPAddrList]
                                              end || NSHostname <- NSServers]) ++
                               [dns_server:authoritative_answer_flag(true)]
                       };
  
positive.code:                         #dns_zone{ip_addresses = IPAddresses, ttl_a = TTL} = DNSZone,
                          IPAddressList = proplists:get_value(GRDomain, IPAddresses),
                          {ok,
                                  [dns_server:answer_record(Domain, TTL, a, IPAddress) || IPAddress <- IPAddressList] ++
                                  [dns_server:authoritative_answer_flag(true)]
                          };
                      _ ->
                          #dns_zone{ttl_oneprovider_ns = TTL} = DNSZone,
                          {ok, {_Scheme, _UserInfo, HostStr, _Port, _Path, _Query}} = http_uri:parse(gui_str:to_list(RedPoint)),
                          {ok,
                              [dns_server:answer_record(Domain, TTL, ns, HostStr)]
                          }
                  end;
              _ ->
  
negative.code:                             provider_logic:get_default_provider_for_user(UserID),
                          ok = user_logic:modify(UserID, [{default_provider, NewDefProv}]),
                          {ok, Data2} = provider_logic:get_data(NewDefProv),
                          Data2\
                      end,
                  GRDomain = get_canonical_hostname(),
                  RedPoint = binary_to_list(proplists:get_value(redirectionPoint, DataProplist)),
  