Author: hhubner Date: 2006-02-19 12:44:08 -0600 (Sun, 19 Feb 2006) New Revision: 1858
Modified: branches/xml-class-rework/bknr/src/web/menu.lisp Log: Revert previous change in order to allow the site to run from a non-root url
Modified: branches/xml-class-rework/bknr/src/web/menu.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:40:53 UTC (rev 1857) +++ branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:44:08 UTC (rev 1858) @@ -50,7 +50,6 @@ (dolist (item (menu-items menu)) (let ((item-is-active (in-subtree (puri:uri-path (net.aserve:request-uri *req*)) (item-url item)))) (with-slots (url title active-image inactive-image) item - (setf url (format nil "/~A" url)) ; XXX Fixme only absolute URLs are possible ATM (cond ((and active-image inactive-image) (if item-is-active