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

This commit is contained in:
Simon Brooke 2025-05-25 12:29:59 +01:00
parent 0a23cacd04
commit d5dbad2c81

View file

@ -369,15 +369,17 @@
(map (map
(fn [f] (fn [f]
(let (let
[farside (entity-for-property f application)] [farside (entity-for-property f application)
farname (safe-name farside :sql)
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))))))))