simon/adl
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Bad where links in list views issue now fixed; pastoralist SQL is good.

Browse source
This commit is contained in:
Simon Brooke 2025-05-25 12:29:59 +01:00
parent 0a23cacd04
commit bb30ca3a20
2 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
project.clj
View file

@ -8,7 +8,7 @@
:dependencies [[adl-support "0.1.8-SNAPSHOT"] :dependencies [[adl-support "0.1.8-SNAPSHOT"]
[bouncer "1.0.1"] [bouncer "1.0.1"]
[clojure-saxon "0.9.4"] [clojure-saxon "0.9.4"]
[environ "1.1.0"] [environ "1.2.0"]
[hiccup "1.0.5"] [hiccup "1.0.5"]
[org.clojure/clojure "1.12.0"] [org.clojure/clojure "1.12.0"]
[org.clojure/math.combinatorics "0.3.0"] [org.clojure/math.combinatorics "0.3.0"]

17
src/adl/to_psql.clj
View file

@ -369,15 +369,16 @@
(map (map
(fn [f] (fn [f]
(let (let
[farside (entity-for-property f application)] [farside (entity-for-property f application)
fieldname (safe-name (field-name f) :sql)]
(str (str
(safe-name entity :sql) (safe-name entity :sql)
"." "."
(field-name f) fieldname
" = " " = "
(safe-name farside :sql) fieldname
"." "."
(safe-name (first (key-names farside)) :sql)))) (safe-name (first (key-names farside)) :sql))))
entity-properties)))) entity-properties))))
";" ";"
(emit-permissions-grant view-name :SELECT (find-permissions entity application)))))))) (emit-permissions-grant view-name :SELECT (find-permissions entity application))))))))