From b88de50eb5fc2c3162f9b5c29ce65c1ccce2f0e9 Mon Sep 17 00:00:00 2001
From: Josha von Gizycki <josha.von.gizycki@triology.de>
Date: Fri, 5 Oct 2018 09:23:23 +0200
Subject: [PATCH] multiqueries in neo4j

---
 src/wanijo/framework/neo4j.clj | 11 +++++++++++
 src/wanijo/schema/domain.clj   | 17 ++++++++---------
 2 files changed, 19 insertions(+), 9 deletions(-)

diff --git a/src/wanijo/framework/neo4j.clj b/src/wanijo/framework/neo4j.clj
index a32a539..6e1c3ed 100644
--- a/src/wanijo/framework/neo4j.clj
+++ b/src/wanijo/framework/neo4j.clj
@@ -37,6 +37,17 @@
           params))
     (qry session params)))
 
+(defn exec-queries! [& tuples]
+  (with-open [session (db/get-session @conn)]
+    (doseq [tuple tuples]
+      (let [qry (first tuple)
+            params (second tuple)]
+        (devmode/send-to-bar
+         (str (butiful-query qry)
+              "<br>---Params---<br>"
+              params))
+        (qry session params)))))
+
 (defn now-str []
   (time-format/unparse
    (time-format/formatters :basic-date-time)
diff --git a/src/wanijo/schema/domain.clj b/src/wanijo/schema/domain.clj
index c946314..d60da92 100644
--- a/src/wanijo/schema/domain.clj
+++ b/src/wanijo/schema/domain.clj
@@ -155,12 +155,11 @@
    CREATE (s)<-[:permission{type:{permtype}}]-(u)")
 
 (defn assign-users! [uuid users permission]
-  (neo4j/exec-query!
-   remove-assignments
-   {:uuid uuid
-    :permtype permission})
-  (neo4j/exec-query!
-   create-assignments
-   {:uuid uuid
-    :users users
-    :permtype permission}))
+  (neo4j/exec-queries!
+   [remove-assignments
+    {:uuid uuid
+     :permtype permission}]
+   [create-assignments
+    {:uuid uuid
+     :users users
+     :permtype permission}]))