From 30421258c56accea65ee52f64599c72f73cb053a Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 27 Dec 2020 11:06:24 -0700 Subject: removed unnecessary :url parameter in menu config --- service/menu-service.lisp | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) (limited to 'service/menu-service.lisp') diff --git a/service/menu-service.lisp b/service/menu-service.lisp index b3f05de..0b82f22 100644 --- a/service/menu-service.lisp +++ b/service/menu-service.lisp @@ -3,11 +3,11 @@ (in-package #:ldapadmin) -(defparameter *menu-config* '((:id "a_menu_home" :label "Home" :url "/home" :handler "/home" :permission "t") - (:id "a_menu_login" :label "Login" :url "/login" :handler "/login" :permission "anonymous") - (:id "a_menu_logout" :label "Logout" :url "/logout" :handler "/logout" :permission "admin") - (:id "a_menu_inetorg_view" :label "View InetOrg Entries" :url "/inetorg/view" :handler "/inetorg/view" :permission "admin") - (:id "a_menu_inetorg_add" :label "Add InetOrg Entry" :url "/inetorg/add" :handler "/inetorg/add" :permission "admin"))) +(defparameter *menu-config* '((:id "a_menu_home" :label "Home" :handler "/home" :permissions "t") + (:id "a_menu_login" :label "Login" :handler "/login" :permissions "anonymous") + (:id "a_menu_logout" :label "Logout" :handler "/logout" :permissions "admin") + (:id "a_menu_inetorg_view" :label "View InetOrg Entries" :handler "/inetorg/view" :permissions "admin") + (:id "a_menu_inetorg_add" :label "Add InetOrg Entry" :handler "/inetorg/add" :permissions "admin"))) (defclass menuitem () ((id :initarg :id @@ -16,9 +16,6 @@ (label :initarg :label :initform nil :accessor label) - (url :initarg :url - :initform nil - :accessor url) (handler :initarg :handler :initform nil :accessor handler) @@ -45,11 +42,10 @@ (make-instance 'menuitem :id (getf x :id) :label (getf x :label) - :url (getf x :url) :handler (getf x :handler))) (remove-if 'null (mapcar (lambda (x) (when (find-if (lambda (y) - (string= (getf x :permission) y)) + (string= (getf x :permissions) y)) `("t" ,(session-value :permissions))) x)) *menu-config*))))) -- cgit v1.3