anchor.diff:  		{ disc_copies, Nodes }]),
   	rpc:multicall(Nodes,application,stop, [ mnesia ]).
   
  -filter_objects(Objects,_Filters) ->
  -	Objects.
  +filter_objects(Objects,Filters) ->
  +	lists:filter(fun(O) ->
  +		lists:foldl(fun ({K,V},B) ->
  +			B and (V =:= proplists:get_value(K,O))
  +		end, true, Filters)
  +	end,[ json:decode(Object) || #rest{ object = Object } <- Objects]).
   
  +
  +to_json(Value) ->
  +	json:decode(list_to_binary(Value)).
  +
  +list_to_filters([],Acc) ->
  +	Acc;
  +list_to_filters([ K, V | T ], Acc) ->
  +	list_to_filters(T, [ { list_to_binary(K),to_json(V) } | Acc ]).
  +
  +list_to_filters(List) ->
  +	list_to_filters(List,[]).
  +
  +
  
positive.code: 		[ Bucket | Filters ] ->
  			F = fun() ->
  				Objects = mnesia:match_object(#rest{ guid = '_', bucket = Bucket, object = '_' }),
  				filter_objects(Objects, Filters)
  			end,
  			mnesia:activity(transaction,F);
  		_ ->
  
negative.code: 			F = fun() ->
  				Objects = mnesia:match_object(#rest{ guid = '_', bucket = Bucket, object = '_' }),
  				Guids = [ list_to_binary(Guid) || #rest{ guid = Guid } <- Objects ],
  				JSON = json:encode(Guids),
  				#response{ status = 200, headers = [ {<<"Content-Length">>, integer_to_binary(byte_size(JSON))}], body = JSON }
  			end,
  