|
|
|
@ -130,17 +130,23 @@
|
|
|
|
|
"MATCH (i:instance {uuid:{from}}),
|
|
|
|
|
(u:user {uuid:{by}}),
|
|
|
|
|
(t:instance)
|
|
|
|
|
WHERE t.uuid IN {to}
|
|
|
|
|
WHERE t.uuid = {target}
|
|
|
|
|
CREATE (l:link {uuid:{uuid}})-[:created_by]->(u)
|
|
|
|
|
SET l.created_at = {created_at},
|
|
|
|
|
l.name = {name}
|
|
|
|
|
CREATE (i)<-[:link_from]-(l)-[:link_to]->(t)")
|
|
|
|
|
|
|
|
|
|
(defn create-link! [link]
|
|
|
|
|
(neo4j/exec-query! create-link
|
|
|
|
|
(assoc link
|
|
|
|
|
:uuid (neo4j/uuid)
|
|
|
|
|
:created_at (neo4j/now-str))))
|
|
|
|
|
(let [tuples (map (fn [target-uuid]
|
|
|
|
|
[create-link
|
|
|
|
|
{:from (:from link)
|
|
|
|
|
:by (:by link)
|
|
|
|
|
:target target-uuid
|
|
|
|
|
:uuid (neo4j/uuid)
|
|
|
|
|
:created_at (neo4j/now-str)
|
|
|
|
|
:name (:name link)}])
|
|
|
|
|
(:to link))]
|
|
|
|
|
(apply neo4j/exec-queries! tuples)))
|
|
|
|
|
|
|
|
|
|
(neo4j/defquery outgoing-links
|
|
|
|
|
"MATCH (i:instance {uuid:{uuid}}),
|
|
|
|
|