Browse Source

tidy-up code and leave comment in /edit/archive about Meilisearch.

This defroute doesn't change anything relevant in the Meilisearch DB so it
doesn't need updating. I've left a comment (mostly for future me) to remind me
not to think I've missed a defroute and try to integrate the Meilisearch stuff
into it.
stable
Craig Oates 2 years ago
parent
commit
94122e7741
  1. 8
      src/web.lisp

8
src/web.lisp

@ -1309,11 +1309,13 @@
(:logged-in)
;; Authorised
(cond ((utils:string-is-nil-or-empty? slug)
(utils:set-alert "Archive entry cannot be found."
"missing-data")
(utils:set-alert
"Archive entry cannot be found." "missing-data")
(redirect "/user/archive"))
(t (storage:store-text "" "archive" slug page-content)
;; Meilisearch integration not needed here because
;; nothing has changed from the Meilisearch DB
;; perspective.
(utils:set-alert "Archive entry updated." "success")
(redirect (format nil "/edit/archive/~a" slug))))
;; Not Authorised

Loading…
Cancel
Save