anchor.diff:  %% @doc Delete an entry from the offer table.
   delete_offer(OfferID) ->
   	Ftransaction = fun() ->
  -			case mnesia:read(offer, OfferID) of
  +			case mnesia:read(offer, OfferID, write) of
   				[#offer{} = Offer] ->
   					Fselect = fun F(start) ->
   								MatchSpec = [{#product{product = OfferID,
  
positive.code: %% @doc Delete a Resource.
  delete_resource(ResourceID) when is_list(ResourceID) ->
  	F = fun() ->
  			case mnesia:read(resource, ResourceID) of
  				[#resource{specification = #specification_ref{id = "2"},
  						related = [#resource_rel{name = Table}],
  						characteristic = Chars} = Resource] when is_list(Table) ->
  
negative.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)
  