gistfile1.hrl

remove_field_from_collection(FieldValue, FieldCollectionName, ObjectId) when is_binary(FieldValue) ->
    case fetch_document(ObjectId) of
        {true, Document} ->
            case doc_field(FieldCollectionName, Document) of
                undefined -> undefined;
                FieldCollection ->                         
                    case lists:member(FieldValue, FieldCollection) of
                        true ->
                            UpdatedDocument = erlang_couchdb:set_value(FieldCollectionName, lists:delete(FieldValue, DocFiel), Document),
                            erlang_couchdb:update_document(?OPSCODE_COUCH, ?AUTH_DATABASE, ObjectId, UpdatedDocument);
                        false ->
                            undefined
                    end
            end
    end.

remove_field_from_collection1(FieldValue, FieldCollectionName, ObjectId) when is_binary(FieldValue) ->
    try
        {true, Document} = fetch_document(ObjectId),
        DocField = doc_field(FieldCollection, Document),
        UpdatedDocument = erlang_couchdb:set_value(FieldCollectionName, lists:delete(FieldValue, FieldCollection), Document),
        erlang_couchdb:update_document(?OPSCODE_COUCH, ?AUTH_DATABASE, ObjectId, UpdatedDocument)
    catch
        error:_X -> none
    end.