From e54116790e06c0ec0ab0c799d62083df32c7d12a Mon Sep 17 00:00:00 2001
From: ckonstanski <ckonstanski@pippiandcarlos.com>
Date: Thu, 24 Dec 2020 15:38:07 -0700
Subject: login now forwards to /inetorg/view

---
 service/auth-service.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'service/auth-service.lisp')

diff --git a/service/auth-service.lisp b/service/auth-service.lisp
index e6f3ef4..e5e7e27 100644
--- a/service/auth-service.lisp
+++ b/service/auth-service.lisp
@@ -14,6 +14,6 @@
 
 (defmacro with-auth ((instance auth-service) &body body)
   `(let ((,instance (make-instance ',auth-service)))
-     (when (null (errormsg ,instance))
+     (when (string= (session-value :permissions) "admin")
        ,@body)
      (org-ckons-json::objects-to-json `(,,instance))))
-- 
cgit v1.3