anchor.diff:  %% @doc Delete a Resource.
   delete_resource(ResourceID) when is_list(ResourceID) ->
   	F = fun() ->
  -			case mnesia:read(resource, ResourceID) of
  +			case mnesia:read(resource, ResourceID, write) of
   				[#resource{specification = #specification_ref{id = "2"},
   						related = [#resource_rel{name = Table}],
   						characteristic = Chars} = Resource] when is_list(Table) ->
  
positive.code: 								BucketRefs2 = [B5 || #bucket{id = B5} <- Buckets2],
  								P2 = P1#product{balance = [B4#bucket.id | BucketRefs2]},
  								mnesia:write(product, P2, write),
  								{RemainAmount, DeleteRefs, [B4#bucket.id | BucketRefs2],
  		ProductRef}
  						end;
  					[] ->
  						mnesia:abort(not_found)
  
negative.code: %% @doc Delete an entry from the offer table.
  delete_offer(OfferID) ->
  	Ftransaction = fun() ->
  			case mnesia:read(offer, OfferID, write) of
  				[#offer{} = Offer] ->
  					Fselect = fun F(start) ->
  								MatchSpec = [{#product{product = OfferID,
  