anchor.diff:  		TS = list_to_integer(TimeStamp),
   		N = list_to_integer(Serial),
   		Events = ocs_log:auth_query(TS, TS, '_', '_', '_', '_'),
  -		JsonObj = usage_aaa_auth(lists:keyfind(N, 2, Events)),
  +		JsonObj = usage_aaa_auth(lists:keyfind(N, 2, Events), []),
   		Body = mochijson:encode(JsonObj),
   		Headers = [{content_type, "application/json"}],
   		{ok, Headers, Body}
  
positive.code: 			{struct, [{name, "type"}, {value, atom_to_list(EventType)}]}],
  	AttributeChars = usage_characteristics(Attributes),
  	UsageChars = EventChars ++ AttributeChars,
  	{struct, [{id, ID}, {href, Href},
  			{date, Date}, {type, Type}, {status, Status},
  			{usageSpecification, UsageSpec},
  			{usageCharacteristic, {array, UsageChars}}]};
  usage_aaa_acct(Events) when is_list(Events) ->
  	usage_aaa_acct(Events, []).
  %% @hidden
  usage_aaa_acct([H | T], Acc) ->
  	usage_aaa_acct(T, [usage_aaa_acct(H) | Acc]);
  usage_aaa_acct([], Acc) ->
  	lists:reverse(Acc).
  
  %% @hidden
  
negative.code: 					{content_range, ContentRange}],
  			{ok, Headers, Body}
  	end;
  get_acct_usage(_Query, _Filters) ->
  	{error, 400}.
  
  %% @hidden
  filter([H | T], Acc) ->
  	filter(T, lists:keydelete(H, 1, Acc));
  filter([], Acc) ->
  	lists:reverse(Acc).
  
  