diff options
| -rw-r--r-- | src/main.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/main.lisp b/src/main.lisp index 1d65531..f42b1f0 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -277,7 +277,9 @@ (defun api-token-authorization () "This request must be made with an API access token." - (request-contributor)) + (a:when-let (contributor (request-contributor)) + (or (not (contributor-lockedp contributor)) + (adminp contributor)))) ;;; DATABASE TRANSACTIONS |