Temporary (read: BAD) fix to casing issue in Reactions template vars

yetanalytics · Jan 15, 2024 · 5311636 · 5311636
1 parent b2f2a06
commit 5311636
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/main/lrsql/util/reaction.clj b/src/main/lrsql/util/reaction.clj
@@ -5,6 +5,7 @@
             [lrsql.spec.common :as cs]
             [lrsql.spec.reaction :as rs]
             [lrsql.spec.statement :as ss]
+            [clojure.string :refer [lower-case]]
             [xapi-schema.spec :as xs]))
 
 (s/fdef path->string
@@ -80,7 +81,10 @@
   (walk/postwalk #(if (and (map? %)
                            (= (key (first %)) "$templatePath"))
                     (let [input-path (val (first %))
-                          path (update input-path 0 keyword)
+                          path (update input-path 0 (fn [cn]
+                                                      (-> cn 
+                                                          lower-case 
+                                                          keyword)))
                           result (get-in cond->statement path :not-found)]
                       (case result
                         :not-found (throw (ex-info (str "No value found at " input-path)