anchor.diff:  	  end,
       mnesia:transaction(Fun).
   
  +delete_call(Callid, Type) ->
  +	F = fun() ->
  +		    Q = query
  +			    [E || E <- table(call),
  +				  E.callid = Callid,
  +				  E.type = Type]
  +			end,
  +		    A = mnemosyne:eval(Q),
  +		    Delete = fun(O) ->
  +				   mnesia:delete_object(O)
  +			   end,
  +		    lists:foreach(Delete, A)
  +	    end,
  +    mnesia:transaction(F).
  +
   list_calls() ->
       F = fun() ->
   		Q = query
  
positive.code:     mnesia:transaction(Fun).
  
  create_call() ->
      mnesia:create_table(call, [{attributes, record_info(fields, call)}]).
  
  insert_call(Callid, Type, Headers, Data) ->
      insert_record(#call{callid = Callid, type = Type, headers = Headers,
  
negative.code: -module(database_call).
  -export([create_call/0, insert_call/4, get_call/1, list_calls/0,
  	 insert_call_unique/4, set_data/2, delete_call/2, get_call_type/2]).
  
  -include("database_call.hrl").
  
  