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
(fn [f]
(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
(safe-name entity :sql)
"."
(field-name f)
" = "
(safe-name farside :sql)
"."
(safe-name (first (key-names farside)) :sql))))
(safe-name entity :sql)
"."
fieldname
" = "
fieldname
"."
(safe-name (first (key-names farside)) :sql))))
entity-properties))))
";"
(emit-permissions-grant view-name :SELECT (find-permissions entity application))))))))