del_doc by id

regner · Mar 4, 2016 · 7c2d1c5 · 7c2d1c5
1 parent 56dae8a
commit 7c2d1c5
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/core/kazoo_data/src/kzs_doc.erl b/core/kazoo_data/src/kzs_doc.erl
@@ -88,6 +88,16 @@ ensure_saved(#{server := {App, Conn}}, DbName, Doc, Options) ->
 -spec del_doc(map(), ne_binary(), wh_json:object() | ne_binary(), wh_proplist()) ->
                      {'ok', wh_json:objects()} |
                      data_error().
+del_doc(Server, DbName, DocId, Options)
+  when is_binary(DocId) ->
+    case lookup_doc_rev(Server, DbName, DocId) of
+        {'error', _}=Err -> Err;
+        {'ok', Rev} ->
+            JObj = wh_json:from_list([{<<"_id">>, DocId}
+                                      ,{<<"_rev">>, Rev}
+                                     ]),
+            del_doc(Server, DbName, JObj, Options)
+    end;
 del_doc(#{server := {App, Conn}}, DbName, Doc, Options) ->
     kzs_cache:flush_cache_doc(DbName, Doc),
     App:del_doc(Conn, DbName, Doc, Options).