|
|
|
@ -189,8 +189,8 @@
|
|
|
|
|
`(:alert ,(utils:get-and-reset-alert) |
|
|
|
|
:pages ,(nera:get-all-pages) |
|
|
|
|
:system-data ,(nera:system-data) |
|
|
|
|
:site-wide-snippet ,(storage:open-text-file-with-raw-path |
|
|
|
|
"static/js/site-wide-snippet.js") |
|
|
|
|
:site-wide-snippet ,(storage:open-text-file |
|
|
|
|
"" "snippets" "site-wide-snippet.html") |
|
|
|
|
;; Should this be replaced by `SYSTEM-DATA'? |
|
|
|
|
:settings ,(nera:get-site-settings)))) |
|
|
|
|
;; Not Authorised |
|
|
|
@ -288,8 +288,8 @@
|
|
|
|
|
(hermetic:auth (:administrator) |
|
|
|
|
;; Authorised |
|
|
|
|
(progn |
|
|
|
|
(storage:store-text-with-raw-path |
|
|
|
|
"static/js/site-wide-snippet.js" code-snippet) |
|
|
|
|
(storage:store-text |
|
|
|
|
"" "snippets" "site-wide-snippet.html" code-snippet) |
|
|
|
|
(utils:set-alert "Site-Wide snippet updated.") |
|
|
|
|
(redirect "/site-settings")) |
|
|
|
|
;; Not Authorised |
|
|
|
|