|
@@ -41,11 +41,11 @@
|
|
|
|
|
|
|
|
(defn ^:api validate-built-in-pages
|
|
(defn ^:api validate-built-in-pages
|
|
|
"Validates built-in pages shouldn't be modified"
|
|
"Validates built-in pages shouldn't be modified"
|
|
|
- [entity]
|
|
|
|
|
|
|
+ [entity & {:keys [message]}]
|
|
|
(when (uneditable-page? entity)
|
|
(when (uneditable-page? entity)
|
|
|
(throw (ex-info "Rename built-in pages"
|
|
(throw (ex-info "Rename built-in pages"
|
|
|
{:type :notification
|
|
{:type :notification
|
|
|
- :payload {:message "Built-in pages can't be edited"
|
|
|
|
|
|
|
+ :payload {:message (or message "Built-in pages can't be edited")
|
|
|
:type :warning}}))))
|
|
:type :warning}}))))
|
|
|
|
|
|
|
|
(defn- validate-unique-by-extends-and-name [db entity new-title]
|
|
(defn- validate-unique-by-extends-and-name [db entity new-title]
|