mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

nil actions authenticate always as t

Browse source
This commit is contained in:
David Botton 2022-05-03 10:01:05 -04:00
parent f09a2f6ce0
commit fae0485b5b
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-web-dbi.lisp
View file

@ -202,7 +202,8 @@ optional WHERE and ORDER-BY sql."
value where key=PAGE or if FOLLOW-URL-PAGE is true PAGE is default
page if no second on path otherwise page is the second on path (first
must be base-url). If comment-table is nil no comments are shown. User
must authorize on CAN-COMMENT, CAN-SHOW-COMMENTS and if CAN-EDIT."
must authorize on action set by CAN-COMMENT, CAN-SHOW-COMMENTS and if
CAN-EDIT unless they are set to nil."
(lambda (obj)
(let* ((body (connection-body obj))
(prof (profile (get-web-site body)))