fix: update property filters to work with task status

fixes LOG-3088
This commit is contained in:
Tienson Qin
2024-03-07 17:57:59 +08:00
parent 1e9842733c
commit 4ea0dd257d
2 changed files with 21 additions and 18 deletions

View File

@@ -261,7 +261,7 @@
[property-name]
(let [repo (state/get-current-repo)]
(if (config/db-based-graph? repo)
(str property-name)
(string/lower-case (str property-name))
(keyword property-name))))
(defn- build-property-two-arg
@@ -276,9 +276,8 @@
values (get-in property [:block/schema :values])
v' (if (seq values) ; closed values
(some #(when-let [closed-value (get-in (db-utils/entity [:block/uuid %]) [:block/schema :value])]
(if (= v closed-value)
%
v))
(when (= v closed-value)
%))
values)
v)]
{:query (list 'property '?b (->keyword-property k) v')