|
|
|
@ -687,7 +687,7 @@
|
|
|
|
|
(redirect "/user/pages")) |
|
|
|
|
|
|
|
|
|
(t (storage:rename-content-file |
|
|
|
|
"" ; `USERNAME' blank because it's not used/needed. |
|
|
|
|
"" |
|
|
|
|
"pages" slug (utils:slugify new-title)) |
|
|
|
|
(nera:update-page id new-title (utils:slugify new-title)) |
|
|
|
|
(utils:set-alert "File name changed.") |
|
|
|
@ -710,9 +710,9 @@
|
|
|
|
|
(utils:set-alert "Cannot find page in database.") |
|
|
|
|
(redirect "/user/pages")) |
|
|
|
|
|
|
|
|
|
(t (nera:update-nav-menu |
|
|
|
|
(t (nera:update-single-nav-menu-item |
|
|
|
|
slug (if (null show-in-nav) +false+ +true+)) |
|
|
|
|
(utils:set-alert "Updated name changed.") |
|
|
|
|
(utils:set-alert "Update nav. menu settings.") |
|
|
|
|
(redirect (format nil "/edit/page/~a" slug)))) |
|
|
|
|
;; Not Authorised |
|
|
|
|
(progn (utils:set-alert "You are not logged in.") |
|
|
|
@ -968,7 +968,8 @@
|
|
|
|
|
(render |
|
|
|
|
"/user/create-archive.html" |
|
|
|
|
(append (auth:auth-user-data) |
|
|
|
|
`(:alert "Entry with that title already exists. Unable to create entry." |
|
|
|
|
`(:alert |
|
|
|
|
"Entry with that title already exists. Unable to create entry." |
|
|
|
|
:title ,title |
|
|
|
|
:keywords ,keywords |
|
|
|
|
:data ,page-content)))) |
|
|
|
@ -978,7 +979,8 @@
|
|
|
|
|
(render |
|
|
|
|
"/user/create-archive.html" |
|
|
|
|
(append (auth:auth-user-data) |
|
|
|
|
`(:alert "File uploaded is not an image. Entry not created." |
|
|
|
|
`(:alert |
|
|
|
|
"File uploaded is not an image. Entry not created." |
|
|
|
|
:title ,title |
|
|
|
|
:keywords ,keywords |
|
|
|
|
:data ,page-content)))) |
|
|
|
@ -1001,7 +1003,7 @@
|
|
|
|
|
(utils:format-filename (cadr thumbnail-file)) |
|
|
|
|
thumbnail-file) |
|
|
|
|
(utils:create-thumbnail ; Overwrites the original here. |
|
|
|
|
"archive" (utils:slugify (cadr thumbnail-file)) t) |
|
|
|
|
"archive" (utils:format-filename (cadr thumbnail-file)) t) |
|
|
|
|
(utils:set-alert "Archive entry created. Great Success!") |
|
|
|
|
(redirect "/dashboard"))) |
|
|
|
|
;; Not Authorised |
|
|
|
|