Merge branch '1.19' of ssh://gitlab.anubis-lang.com:33000/totoro/hayamiki_lib into 1.19

David RENÉ
2 parents 4d0c7352 8d022f53
Showing 1 changed file with 36 additions and 9 deletions Show diff stats
controller/hk_sql_utils.anubis
@@ -38,15 +38,19 @@ public define Maybe(One)
     String          table_name,    
     List(Int)       ids
   )=
-  if sql_query_timeout(db,
-        "DELETE FROM "+table_name+
-        " WHERE id IN ("+join(", ", to_List_String(ids))+");",
-         [],
-        "delete_from_ids") is
-  {
-    error(_)    then failure,
-    ok(_, _, _) then success(unique)
-  }.
+  if length(ids) = 0 then 
+    success(unique)
+  else
+    if sql_query_timeout(db,
+          "DELETE FROM "+table_name+
+          " WHERE id IN ("+join(", ", to_List_String(ids))+");",
+           [],
+          "delete_from_ids") is
+    {
+      error(_)    then failure,
+      ok(_, _, _) then success(unique)
+    }
+  .
 public define Maybe(One)
   delete_by_clause
@@ -101,6 +105,29 @@ public define Int
   db_get_Int(db, clause, [])
 .
+public define List(String)
+  db_get_List_String
+  (
+    SQLite3DataBase   db,
+    String            clause,
+    List(SQLite3Bind) binds
+  )=
+  if sql_query_timeout(db, clause+";", binds, "db_get_List_String") is
+  {
+    error(sql_error) then println("db_get_List_String SQL ERROR '"+ sql_error.text + "'\n clause ["+clause+";]");[],
+    ok(_, cursor, _) then db_get_List_String(cursor)
+  }
+.
+
+public define List(String)
+  db_get_List_String
+  (
+    SQLite3DataBase   db,
+    String            clause
+  )=
+  db_get_List_String(db, clause, [])
+.
+
 public define Float
   get_count_float_by_full_clause
   (