|
@@ -965,7 +965,7 @@
|
|
|
_ (db-async/<get-block (state/get-current-repo) block-uuid :children? false)
|
|
_ (db-async/<get-block (state/get-current-repo) block-uuid :children? false)
|
|
|
db? (config/db-based-graph? (state/get-current-repo))
|
|
db? (config/db-based-graph? (state/get-current-repo))
|
|
|
key-ns? (and (keyword? key) (namespace key))
|
|
key-ns? (and (keyword? key) (namespace key))
|
|
|
- key (if key-ns? key (-> (if (keyword? key) (name key) key) (util/safe-lower-case)))
|
|
|
|
|
|
|
+ key (if key-ns? key (if (keyword? key) (name key) key))
|
|
|
key (if (and db? (not key-ns?))
|
|
key (if (and db? (not key-ns?))
|
|
|
(api-block/get-db-ident-for-user-property-name
|
|
(api-block/get-db-ident-for-user-property-name
|
|
|
key (api-block/resolve-property-prefix-for-db this))
|
|
key (api-block/resolve-property-prefix-for-db this))
|
|
@@ -982,7 +982,7 @@
|
|
|
(when-let [properties (some-> block-uuid (db-model/get-block-by-uuid) (:block/properties))]
|
|
(when-let [properties (some-> block-uuid (db-model/get-block-by-uuid) (:block/properties))]
|
|
|
(when (seq properties)
|
|
(when (seq properties)
|
|
|
(let [key (api-block/sanitize-user-property-name key)
|
|
(let [key (api-block/sanitize-user-property-name key)
|
|
|
- property-name (-> (if (keyword? key) (name key) key) (util/safe-lower-case))
|
|
|
|
|
|
|
+ property-name (if (keyword? key) (name key) key)
|
|
|
ident (api-block/get-db-ident-for-user-property-name
|
|
ident (api-block/get-db-ident-for-user-property-name
|
|
|
property-name (api-block/resolve-property-prefix-for-db this))
|
|
property-name (api-block/resolve-property-prefix-for-db this))
|
|
|
property-value (or (get properties key)
|
|
property-value (or (get properties key)
|