|
|
@ -33,10 +33,10 @@
|
|
|
|
(->>
|
|
|
|
(->>
|
|
|
|
(neo4j/exec-query!
|
|
|
|
(neo4j/exec-query!
|
|
|
|
create-new
|
|
|
|
create-new
|
|
|
|
{:u_uuid user-uuid}
|
|
|
|
{:u_uuid user-uuid
|
|
|
|
:name schema-name
|
|
|
|
:name schema-name
|
|
|
|
:s_uuid (neo4j/uuid)
|
|
|
|
:s_uuid (neo4j/uuid)
|
|
|
|
:created_at (neo4j/now-str))
|
|
|
|
:created_at (neo4j/now-str)})
|
|
|
|
first
|
|
|
|
first
|
|
|
|
:uuid))
|
|
|
|
:uuid))
|
|
|
|
|
|
|
|
|
|
|
@ -52,18 +52,6 @@
|
|
|
|
first
|
|
|
|
first
|
|
|
|
:s))
|
|
|
|
:s))
|
|
|
|
|
|
|
|
|
|
|
|
(neo4j/defquery schema-creator
|
|
|
|
|
|
|
|
"MATCH (s:schema)-->(u:user)
|
|
|
|
|
|
|
|
WHERE s.uuid = {uuid}
|
|
|
|
|
|
|
|
RETURN u.uuid as uuid")
|
|
|
|
|
|
|
|
(defn find-schema-creator! [uuid]
|
|
|
|
|
|
|
|
(->>
|
|
|
|
|
|
|
|
(neo4j/exec-query!
|
|
|
|
|
|
|
|
schema-creator
|
|
|
|
|
|
|
|
{:uuid uuid})
|
|
|
|
|
|
|
|
first
|
|
|
|
|
|
|
|
:uuid))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(neo4j/defquery schema-permissions
|
|
|
|
(neo4j/defquery schema-permissions
|
|
|
|
"MATCH (s:schema {uuid:{schema_uuid}})
|
|
|
|
"MATCH (s:schema {uuid:{schema_uuid}})
|
|
|
|
RETURN
|
|
|
|
RETURN
|
|
|
|