add delete_by_clause

totoro
1 parent 1aa79ba3
Showing 1 changed file with 17 additions and 0 deletions Show diff stats
controller/hk_sql_utils.anubis
@@ -48,6 +48,23 @@ public define Maybe(One)
     ok(_, _, _) then success(unique)
   }.
  
+public define Maybe(One)
+  delete_by_clause
+  (
+    SQLite3DataBase db,
+    String          table_name,    
+    String          clause
+  )=
+  if sql_query_timeout(db,
+        "DELETE FROM "+table_name+
+        " "+ clause +";",
+         [],
+        "delete_by_clause") is
+  {
+    error(_)    then failure,
+    ok(_, _, _) then success(unique)
+  }.
+  
 public define Int
   get_count_by_full_clause
   (