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

2025-05-25 12:29:59 +01:00 · 2025-05-25 12:29:59 +01:00 · bb30ca3a20
parent 0a23cacd04
commit bb30ca3a20
2 changed files with 10 additions and 9 deletions
--- a/project.clj
+++ b/project.clj
@ -8,7 +8,7 @@
  :dependencies [[adl-support "0.1.8-SNAPSHOT"]
                 [bouncer "1.0.1"]
                 [clojure-saxon "0.9.4"]
-                 [environ "1.1.0"]
+                 [environ "1.2.0"]
                 [hiccup "1.0.5"]
                 [org.clojure/clojure "1.12.0"]
                 [org.clojure/math.combinatorics "0.3.0"]
--- a/src/adl/to_psql.clj
+++ b/src/adl/to_psql.clj
@ -369,13 +369,14 @@
                  (map
                    (fn [f]
                      (let
-                        [farside (entity-for-property f application)]
+                       [farside (entity-for-property f application)
+                        fieldname (safe-name (field-name f) :sql)]
                        (str
                         (safe-name entity :sql)
                         "."
-                          (field-name f)
+                         fieldname
                         " = "
-                          (safe-name farside :sql)
+                         fieldname
                         "."
                         (safe-name (first (key-names farside)) :sql))))
                    entity-properties))))